[VBA]Format d'heure incorrecte !(CDate ?)

Résolu/Fermé

lml-mike Messages postés 453 Date d'inscription vendredi 16 février 2007 Statut Contributeur Dernière intervention 18 novembre 2018 - Modifié par lml-mike le 7/09/2010 à 15:21
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 7 sept. 2010 à 18:08

Bonjour,

J'aimerais que le programme contrôle une boucle par ce moyen :

heure_début = Cdate(Time) 

If heure_début >= CDate("10:00:00") And heure_début <= CDate("14:30:00") Or heure_début >= CDate("19:00:00") And heure_début <= CDate("21:30:00") Then 
        msgbox("OK !") 
End If

Ne peut-on pas y arriver par Cdate ?

J'ai besoin de ce format pour faire le calcul heure_maintenant - heure_début pour avoir le temps total, et parfois l'heure est le lendemain entre minuit et 2 heures du matin.

merci pour votre aide !

A voir également:

[VBA]Format d'heure incorrecte !(CDate ?)
Telecharger format factory - Télécharger - Conversion & Codecs
Format epub - Guide
Format apfs - Guide
Hp format tool - Télécharger - Stockage
35 go internet équivalent en heure ✓ - Forum Mobile

2 réponses

Réponse 1 / 2

lml-mike Messages postés 453 Date d'inscription vendredi 16 février 2007 Statut Contributeur Dernière intervention 18 novembre 2018 120
7 sept. 2010 à 15:48

Bon, j'ai trouvé la solution :

If heure_début >= #10:00:00 AM# And heure_début <= #2:30:00 PM# Or  heure_début >= #7:00:00 PM# And heure_début <= #9:30:00 PM# Then
         msgbox("OK !") 
end if

Ca fait deux fois en une journée, faut que j'arrête de remplir le forum pour rien j'embête tout le monde ^^'

Réponse 2 / 2

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
7 sept. 2010 à 18:08

bonjour,

je comprend mal ton pb

par ex

heure_début = Time
If heure_début >= "18:05:00" And heure_début <= "18:30:00" Then...

fpnctionne très bien

tu diS.....

Discussions similaires

Problème Whatsapp - "La date est incorrecte"

Menace "Interpol" après webcam coquine

Je tiens combien de temps avec 2Go d'internet ?

Pix

[Excel VBA] Formater une cellule en texte

Discussions similaires

Newsletters