textbox date rajouter + 1 jour

Question

Bonjour,

Dans textbox4 j'ai une date qui est affichée sous ce format (22.07.2013)
en cliquant sur un bouton.
Comment rajouter + 1 jour à chaque fois que je clique sur ce bouton ? 
Merci pour votre aide

pijaku · Answer

Bonjour,

Question : s'il existe des formats de date "préformatés", pourquoi vouloir en créer d'autres?
Une date, compréhensible par Excel et VBA serait au format 22/07/2013, pas avec des points (22.07.2013)...

Passons, dans l'état et si tu souhaite conserver tes points :
Private Sub CommandButton1_Click()
Dim maDate As Date

If TextBox4 = "" Then
    TextBox4 = Replace(Date, "/", ".")
Else
    maDate = CDate(Replace(TextBox4, ".", "/"))
    maDate = maDate + 1
    TextBox4 = Replace(maDate, "/", ".")
End If
End Sub 
 
Cordialement,
Franck P

Textbox date rajouter + 1 jour

1 réponse

Votre réponse

Discussions similaires

Newsletters