Dim Temp Temp = ((Mid$(Date$, 4, 2)) / 2) If Len(Temp) <= 2 Then ' nbr paire Else ' nbr impaire End If End Sub
NE PAS faire Mid$(Date$, 4, 2)dans l'espoir d'extraire ainsi la date du jour... cela dépend en effet des parametres regionnaux definis sur le poste.faire plutot :Day ( Date )et pour le test de parité :If (Day ( Date ) And 1) Then MsgBox "Date = nbr impaire"Else MsgBox "Date = nbr paireEnd If
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte