Accueil > > > SAVOIR SI L'ON A AFFAIRE À UNE HEURE APRES UN ISDATE()
SAVOIR SI L'ON A AFFAIRE À UNE HEURE APRES UN ISDATE()
Information sur la source
Description
Cette fontion permet de verifier la validité d'une Heure. Et elle permet de differencier une date d'une heure, car isdate() qui ne fait pas la différence.
Source
- Dim Second_Temp As Integer
- Dim Minute_Temp As Integer
- Dim Heure_Temp As Integer
-
- 'Pour verifier qu'une heure est valide
- Private Function IsTime(ByRef Heure As String)
- IsTime = False
- Second_Temp = Val(Right(Heure, 2))
- Minute_Temp = Val(Mid(Heure, 4, 2))
- Heure_Temp = Val(Left(Heure, 2))
- If Second_Temp < 60 And Minute_Temp < 60 And Heure_Temp < 24 And Heure = Format(Heure_Temp, "0#") & ":" & Format(Minute_Temp, "0#") & ":" & Format(Second_Temp, "0#") Then IsTime = True
- End Function
Dim Second_Temp As Integer
Dim Minute_Temp As Integer
Dim Heure_Temp As Integer
'Pour verifier qu'une heure est valide
Private Function IsTime(ByRef Heure As String)
IsTime = False
Second_Temp = Val(Right(Heure, 2))
Minute_Temp = Val(Mid(Heure, 4, 2))
Heure_Temp = Val(Left(Heure, 2))
If Second_Temp < 60 And Minute_Temp < 60 And Heure_Temp < 24 And Heure = Format(Heure_Temp, "0#") & ":" & Format(Minute_Temp, "0#") & ":" & Format(Second_Temp, "0#") Then IsTime = True
End Function
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Procédure conditionnelle [ par LAM ]
Bonjour chers amis...Depuis pratiquement un mois je travaille sur une base de donnée avec MS ACCESS dans le but de faire la gestion d'une école: emplo
afficher l'heure [ par FDA ]
Le but est de mesurer le temps d'utilisation d'un logiciel.Dans visual basic (vers 5) il est possible de stocker l'heure de départ, avant utilisation
cycles processeurs [ par whrein ]
Mon problême est de savoir si mon programme prend le maximum decycle process qu'il peut ou si il laisse la main pour la reprendre lorsd'un evenement
Tache de fond [ par whrein ]
Mon problême est de savoir si mon programme laisse la main pourla reprendre lors d'un evenement type " changement de l'heure " ( seconde suivante) Le
dao, mdi et isdate [ par Altic ]
Salut,_ y a t'il un moyen pour qu'une image se mette à la taille d'une feuille mdi mère_ sous access pour changer le format d'une date, soit on utilis
Heure ? [ par M$Trou ]
<%=TIME%>
heure et texte [ par haroun ]
bonjour j'aimerai savoir comment inscrire une heure dans un textBox merci d'avance
calcule d'heure [ par x20ab ]
comment faire pour calcul 2 heures difpar exp: 1) 12:15:002) 12:45:00-------------- 00:30:00voila je suis claire.j'ai essay avec l'exp mais ca march
Recuperer le jour et l'heure systeme [ par tom ]
Comment puis je récuperer le jour et l'heure du systeme d'exploitation pour ensuite l'afficher dans un labelMerci d'avanceTom
|
Derniers Blogs
[HTML5] SLIDES ET DéMOS : AUTOUR DU W3C , NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] SLIDES ET DéMOS : AUTOUR DU W3C , NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Très bonne après-midi passée lors cette conférence avec le W3C, organisée par L' Inria sur les nouveaux standards, ce Mardi 14 Février, on sent vraiment que çà bosse au W3C, et l'avenir est très très prometteur pour le HTML5, notamment ...
Cliquez pour lire la suite de l'article par Gio GESTION D'EXCEPTION AVEC LES TASKSGESTION D'EXCEPTION AVEC LES TASKS par richardc
Nous avons vu dans un précédent article comment utiliser Task pour effectuer des opérations dans un autre thread.
Malheureusement, comme tout le monde n'est pas parfait, il se peut que cette exécution se passe mal et qu'une exception se produise.
La...
Cliquez pour lire la suite de l'article par richardc DéMARRONS AVEC LES TASKSDéMARRONS AVEC LES TASKS par richardc
Que vous le vouliez ou non, le développement multi-tâche est maintenant une obligation pour toute nouvelle application. Il est donc vital d'en comprendre les mécanismes et de s'y mettre le plus tôt possible.
En attendant le .NET Framework 4.5 avec le...
Cliquez pour lire la suite de l'article par richardc SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPSSLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko
Retrouvez les slides et les démo de ma session Fast & Furious XAML Apps. A ceux qui se posent la question : "est-ce que le code de la DataGrid est disponible?", je vous répondrais "pas encore". Je vais mettre en place un projet codeplex pour part...
Cliquez pour lire la suite de l'article par Vko
Forum
RE : VITESSERE : VITESSE par ossama261988
Cliquez pour lire la suite par ossama261988 RE : VITESSERE : VITESSE par ucfoutu
Cliquez pour lire la suite par ucfoutu
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|