EXECUTER UNE ACTION UN JOUR SUR 2
Muad-Dib
-
20 juil. 2001 à 10:42
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 2 janv. 2007 à 08:34
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 2 janv. 2007 à 08:34
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/1523-executer-une-action-un-jour-sur-2
https://codes-sources.commentcamarche.net/source/1523-executer-une-action-un-jour-sur-2
2 janv. 2007 à 08:34
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 paire
End If
20 juil. 2001 à 16:51
20 juil. 2001 à 15:41
If Val(Mid$(Date$,4,2)) Mod 2 =0 Then
MsgBox "Date = nbr paire"
Else
MsgBox "Date = nbr impaire"
End If
20 juil. 2001 à 10:42