datum verhogen

[Jack Nouws]

Goedemiddag,

Ik wil graag een datum in een textbox bij elke klik met 1 verhogen.
Ben al enige tijd bezig met deze code maar krijg het niet voor elkaar.

Private Sub CommandButton1_Click()
    Txt_datum.Value = Format(Txt_datum.Value + 1, "dd-mm-yyyy")
End Sub

 

[Cobbe]

Zou het zo lukken?

Private Sub CommandButton1_Click()
   Txt_datum = DateValue(Txt_datum) + 1
End Sub

 

[edmoor]

Ik neem aan dat er in Txt_datum.Value een tekst staat en niet een echte datum, al zal die tekst er zo uitzien.
Dat gaat je dat op die manier niet lukken en moet je de tekst eerst naar een datum converteren voordat je er wat mee kunt doen.
Bihvoorbeeld;
http://stackoverflow.com/questions/10162424/convert-string-variable-to-date

*Botsing met Cobbe.
En zijn voorbeeld lijkt me prima

 

[Jack Nouws]

Jaah Cobbe zo doet ie precies wat ik wil!
Bedankt!

Private Sub CommandButton1_Click()
   Txt_datum = DateValue(Txt_datum) + 1
End Sub