Calculate Next 1 Year Date Based On Userform Textbox

[HECGroups]

Hello Again,

I am looking for a help to calculate next year date when a user enter any date on userform textbox 9

Example: If a user enter 01-01-2016 in textbox9 then the result on textbox10 will be 31-12-2016.

Can someone help me please.

 

[dmt32]

Hi,
try:

Private Sub TextBox9_Change()
    With Me.TextBox9
        If IsDate(.Text) Then Me.TextBox10.Text = DateSerial(Year(.Text) + 1, Month(.Text), 0) Else Me.TextBox10.Text = ""
    End With
End Sub

Dave

 

[HECGroups]

Thanks for your reply.

I have another question. How can I check multiple textbox's length of characters is more than 3 or not.