Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub CommandButton6_Click()
- sMo = lastMonth
- vDte = sMo & "1, " & cboYr
- vMo = Month(vDte)
- 'set fiscal month ACTUAL year
- If vMo > 4 Then vDte = DateAdd("yyyy", -1, vDte)
- TextBox2 = TextBox1.Value & Format(vDte, "mmyy")
- TextBox3 = "Sales Rebate Due - " & UCase(Format(vDte, "mmm yyyy"))
- End Sub
Add Comment
Please, Sign In to add comment