operazioni con le date

[BOYROMA1]

in una text ho una data 12/06/2003 come faccio a togliere un giorno e aggiungere 2 mesi alla data?

data 12/06/2003 deve diventare 11/08/2003


come posso fare??

[ladyBlu]

usa la funzione DateAdd
la trovi sull'Help di VB

[BOYROMA1]

newdate = DateAdd("m", 2, "txtdata.text")
Text33.Text = newdate

come devo dichiararla la variabile newdate?

[BOYROMA1]

[code]
newdate = DateAdd("m", 2, txtdata.Text)
Text33.Text = newdate
[\code]

e per sottrarre un giorno?

[ladyBlu]

Dim NewDate As Date
NewDate = DateAdd("m", 1, CDate(Text33.Text))
NewDate = NewDate - 1
Text33.Text = NewDate

[BOYROMA1]

mi da tipo non corrispondente

io ho il formato gg/mm/aaaa
mentre newdate 00/00/00

[ladyBlu]

Originariamente inviato da BOYROMA1
mi da tipo non corrispondente

io ho il formato gg/mm/aaaa
mentre newdate 00/00/00

no, scusa, dov'è che ti da questo errore? :master:
forse nella tua textbox l'anno è di due cifre?
perchè a me funziona benissimo con l'anno di 4 cifre.

[BOYROMA1]

sull' evento click di un pulsante ho scritto il seguente codice

Private Sub Command1_Click()

Dim NewDate As Date
NewDate = DateAdd("m", 1, CDate(Text33.Text))
NewDate = NewDate - 1
Text33.Text = NewDate

End Sub

le 2 text sono associate ad un campo data di una tab di un database

il cui formato è 99/99/9999

[ladyBlu]

Originariamente inviato da BOYROMA1
sull' evento click di un pulsante ho scritto il seguente codice

Private Sub Command1_Click()

Dim NewDate As Date
NewDate = DateAdd("m", 1, CDate(Text33.Text))
NewDate = NewDate - 1
Text33.Text = NewDate

End Sub

le 2 text sono associate ad un campo data di una tab di un database

il cui formato è 99/99/9999

che significa "associate"?
hai un oggetto Data collegato al db?

[BOYROMA1]

si