Calculation in User Form

[mal.b.graham]

Hi All

I have created a User form with a Date Picker to enable the user to select the date of training I have then a drop down list for validation (i.e. 1 year, 2 years, 3 years & 5 years), what I would like to know if I added a txt box is there any way that once you select a date and the validation it will automatically completed the next txt box with an expiry date


Date Picker Validation Formula to work out this date in user form
30/08/2000 2 years 29/08/2002

Regards

Malcolm

[royUK]

Add a ComboBox to the Form, a DatePicker Control & I would suggest a Label with a white background. Then this code

Option Explicit

Private Sub ComboBox1_Change()
    Dim dte As Date
    With Me
        dte = .DTPicker1.Value
        dte = DateSerial(Year(dte) + Val(.ComboBox1.Value), Month(dte), Day(dte) - 1)
        .Label1.Caption = ""
        .Label1.Caption = Format(dte, "long date")
    End With
End Sub

Private Sub UserForm_Initialize()
    Me.ComboBox1.List = Array(1, 2, 3)
End Sub