Userform add number of months to date

[sd77000]

Hello all,

I am creating a userform that I need to add the number of months to a date. I have a combo box where they select between 1-12 (months) and a text box where they enter a date. What I would like is that when the user exits the text box (date), the 'end' date (months entered * the date entered) is displayed in a label.

Thanks in advance,
Steve

 

[mikerickson]

Try

Dim startDate as Date
Dim endDate as Date

startDate = DateValue(txtStartDate.Text)
endDate = DateSerial(Year(startDate), Month(startDate) + Val(ComboBox1.Value), Day(startDate)

txtEndDate = Format(endDate, "dd. mmm yyyy")

 

[sd77000]

Thank you for the assistance, but was unable to get it to work. Am unable to get the date posted in the EndDate box. Here is the code

Private Sub startdate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim startdate As Date
Dim enddate As Date

startdate = DateValue(txtStartDate.Text)
enddate = DateSerial(Year(startdate), Month(startdate) + Val(ComboBox1.Value), Day(startdate))

txtEndDate = Format(enddate, "dd. mmm yyyy")
End Sub

 

[mikerickson]

You need to change the name of the controls to match your names. My code assumes a text box named txtStartDate, but your event code shows that the name is actually startdate. The other controls also need to have their names match.

 

[sd77000]

Thank you so much for the help. Works great.