Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 04 02:31:28

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

[VISUAL STUDIO 2010] LES TESTS CASES C'EST BIEN, MAIS JE VAIS DEVOIR TOUT RééCRIRE ? par Etienne Margraff

MVP[GRIBOUILLON].ADDYEAR par Gribouillon

EMPêCHER UN PROGRAMME D'ACCEDé à INTERNET [VB2008] par NoNeed2Know

PUBLIER SON APPLICATION SANS SETUP... par steeventide

RE : FONCTION COMBOBOX par shenkool

RE : DéCLARER UNE VARIABLE TABLEAU SELON L'INFORMATIONS DES DIMENSIONS CONTENUE DANS UN ARRAY SANS CONNAITRE LE NOMBRE DE DIMENSIONS DANS L'ARRAY par jeremiesauve

+ de logiciels à télécharger

1 464 123 membres
24 nouveaux aujourd'hui
15 044 membres club

Trouver une ressource

Trouvez une ressource parmi 40 093 codes, 1 302 726 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

EXECUTER UNE ACTION UN JOUR SUR 2

Information sur la source

Catégorie :Date & Heure Classé sous : action, jour, pair, impair Niveau : Débutant Date de création : 19/07/2001 Date de mise à jour : 25/10/2002 21:46:31 Vu : 4 637

Auteur : Majen

Site perso

Ecrire un message privé

Note :

5,50 / 10

Commentaire sur cette source (1)

Ajouter un commentaire et/ou une note

Description

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

Source

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

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

Sources du même auteur

SERIAL RENAMER

TEST DE LUCIDIDÉ

MORSE

INTRODUCTION AU VISUAL BASIC

SUBSTITUTION POLYALPHABÉTIQUE (VIGENERE)

Toutes les sources de Majen

Sources de la même categorie

HORLOGE À AIGUILLES (RADIAN) par brainbass

HORLOGE BINAIRE A LEDS par Blodox

CHRONOMETRE par fredatcs

CALCUL HEURE DE NUIT par ocejade

CALENDRIER CONVERTISSEUR par Sechaud

Toutes les sources de la catégorie Date & Heure

Sources en rapport avec celle ci

LE SECRET DU TOMBEAU par Alfosaure

INTERFACE WEB DYNAMIQUE PERMETTANT LA SELECTION DE DONNÉES D... par vsgn

LAUNCHER - VÉRIFICATEUR DE NOUVELLE VERSION AVANT EXÉCUTION ... par UnrealH

APPLICATION AUTO UPDATE IN VB.NET par christian_grandjean

SAVOIR SI UN NOMBRE EST PAIR OU IMPAIR par Mr X

Commentaires et avis

Commentaire de Renfield le 02/01/2007 08:34:07 administrateur CS

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

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

calcul du bit de parité (pair ou impair) [ par senga34 ] Bonjour ! Etant débutant dans VB, qui peut m'indiquercomment faire pour générer le bit de parité pair ou impair , sachant que je sais mise a jour d'un tableau excel sans l'ouvrir [ par topic1 ] Voila mon problèmeJ'ai créé une boîte de dialogue sous vb5 contenant un lien ole vers un fichier excel.Cette boite contient de plus divers champs et u VBA : mise à jour d'un champ d'une table [ par Enaira ] SalutMon code ne marche pas. qqun peut me dire ce qui ne va pas ou me donner un autre code?Je cherche à mettre à jour un champ d'une table (tous les e VBA access : mise à jour d'un champ [ par Enaira ] SalutMon code ne marche pas. qqun peut me dire ce qui ne va pas ou me donner un autre code?Je cherche à mettre à jour un champ d'une table (tous les e Arret du pc [ par Guigui76 ] Voila je voudai faire sur mon premier prog un boutton en liberty basic et qu il est comme action de arret de pc mais le probleme c ke j arrive a fair Mettre à jour un champ suivant un choix ! [ par lestat5 ] Bonjour, J'ai un petit souci que je n'arrive pas à résoudre, J'aimerais dans un formulaire mettre à jour un champ texte suivant une selection faite da Affichage Excel [ par benben00 ] BonjourLorsque je lance une macro Visual qui trace un graphe excel. Le compilateur met a jour le graphe pour chaque points en solicitant la carte gra mise a jour du contenu des controles [ par ludwig89 ] bonjourj'ai un controle text et un controle listboxj'ai un module qui lit un fichier texte et qui increment les 2 controles, le module fonctionne corr Nombre de jour ovre en france [ par tfoutu1 ] sous Access , je dois calculer le nb de jour ouvre en tenant compte de jours feriesje passe sous excel avec 1 feuille qui contient le calendrier a com Excel: mise a jour de liaison [ par EvilGost ] Bonjour,J'ai un petit soucis, j'ai une macro excel qui va lire dans un autre fichier excel certaines informations. Le probleme, c'est qu'a chaque fois