[vb]scadenza data

[teto]

Buon giorno a tutti!!!!
vi espongo il mio problema....
ho la mia bella data1 in un textbox!!
in una seconda textbox dovra uscire un'altra data2=(data1 + 30GIORNI) oppure x facilitare le cose data2=(text1.text + 30GIORNI)
come si fa?

Scusate l'ignoranza

[Pedar]

credo che questo vada bene:

Private Sub Form_Load()
Dim a As Date, b As Date

a = "12/12/2002"
b = a + Day(30)

Text1.Text = b

End Sub

Ciao Pedar :metallica

[ladyBlu]

puoi anche utilizzare la funzione DateAdd (ho un form contenente 2 textbox e un commandbutton):

Private Sub Command1_Click()
    Text2 = DateAdd("d", 30, Text1)
End Sub

Private Sub Form_Load()
    Text1 = "01/04/2003"
End Sub

[teto]

si ho risolto con dateadd...grazie e tutti