credo che questo vada bene:
Ciao Pedar :metallicacodice:Private Sub Form_Load() Dim a As Date, b As Date a = "12/12/2002" b = a + Day(30) Text1.Text = b End Sub
credo che questo vada bene:
Ciao Pedar :metallicacodice:Private Sub Form_Load() Dim a As Date, b As Date a = "12/12/2002" b = a + Day(30) Text1.Text = b End Sub