1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Executer une action un jour sur 2

Executer une action un jour sur 2

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 192 fois - Téléchargée 59 fois

Commenter

Contenu du snippet

(J'ai fais cette petite fonction pour mon keylogger afin qu'il upload les logs sur un ftp tout les 2 jours)

Source / Exemple : 


Dim Temp
Temp = ((Mid$(Date$, 4, 2)) / 2)
    If Len(Temp) <= 2 Then
        ' nbr paire
    Else
        ' nbr impaire
    End If
End Sub

A voir également

Ajouter un commentaire Commentaires
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
2 janv. 2007 à 08:34
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 paire
End If
Muad-Dib
20 juil. 2001 à 16:51
c sur qu'il faut pas essayer de faire passer ca en c++ naardin :)
naärdin
20 juil. 2001 à 15:41
euh???? tu divises une chaîne par un entier? j'avoue que si ça marche ben faut engueuler microsoft. Sinon super pour toi. Enfin bon vla la correcte version (cqfd) :

If Val(Mid$(Date$,4,2)) Mod 2 =0 Then
MsgBox "Date = nbr paire"
Else
MsgBox "Date = nbr impaire"
End If
Muad-Dib
20 juil. 2001 à 10:42
malin...
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Majen)