Comparer Date

[piep14]

Bonjour tout le monde !!!

Je cherche a savoir si la date de demain est un dimanche !!!! Si oui, on affiche la date à J+1. J'ai essayé comme ceci mais cela ne fonctionne pas !!!

 Private Sub UserForm_Initialize()
    datedemain = FormatDateTime(Date + 1, 1)
    dimanche = Weekday(Date, 1)
    MsgBox (datedemain)
    MsgBox (dimanche)
    If (datedemain = 7) Then
        txtBxDate.Text = FormatDateTime(Date + 2, 1)
        
     Else
        txtBxDate.Text = FormatDateTime(Date + 1, 1)
    End If
End Sub

Merci de vos corrections !!!

 

[soft]

Bonjour piep14, le forum,

Ton code corrigé :

Private Sub UserForm_Initialize()
    Dim Demain As Integer
    Demain = Weekday(Date + 1, 1)
    If Demain = 1 Then
        txtBxDate.Text = FormatDateTime(Date + 2, 1)
    Else
        txtBxDate.Text = FormatDateTime(Date + 1, 1)
    End If
End Sub

 

[MichelXld]

bonjour

tu peux tester cette adaptation


Private Sub UserForm_Initialize()
If Format(Date + 1, 'dddd') = 'dimanche' _
Then txtBxDate = Format(Date + 1, 'dddd dd mmmm yyyy')
End Sub


bonne soirée
MichelXld

 

[MichelXld]

Oouppss...

bonsoir Soft ...;o)

bonne soirée
MichelXld

 

[piep14]

Et oui, soft a été plus rapide et son code fonctionne très bien. Merci a vous !!! J'ai un autre probleme, je vous retrouve sur un nouveau post