tester une heure

[ericTA]

Bonsoir à tous,
comment faire pour tester une heure en VB.
j'ai en A1 une heure de début ex "15:00" et en A2 une heure de fin ex " 20:00" je dois afficher un message si entre le début et la fin il y a plus de 8h.
Merci d'avance car je n'y arrive pas avec les heures.
Eric

 

[JCGL]

Re : tester une heure

Bonjour à tous,

Peux-tu essayer:

=SI(MOD(A2-A1;1)<0.3333;"Il manque du temps";MOD(A2-A1;1))

Affiche un message si le temps est inférieur à 08h00.

Je te laisse adapter pour ton cas particulier (Excercice....)

A + à tous

 

[ericTA]

Re : tester une heure

Merci pour ta réponse rapide.
Deux questions :
comment détermines tu la valeur pour 8H ?
As-tu la même chose en VBA ?
Eric

 

[JCGL]

Re : tester une heure

Bonjour à tous,

24h00 pour XL est égale à 1 donc 08:00 est égale au tiers (0.33333333)
En VBA et avec les heures en A1 et A2 :

Option Explicit

Sub Test()
    Range("B1").Formula = _
    "=IF(MOD(R2C1-R1C1,1)>0.33333333,""Plus de 08h00"",MOD(R2C1-R1C1,1))"
    MsgBox Format(Range("A2") - Range("A1"), "HH:MM")
    If Range("A2") - Range("A1") > 0.3333333 Then MsgBox "Plus de 08h00"
    Range("C1") = Range("A2") - Range("A1")
End Sub

A + à tous

 

[ericTA]

Re : tester une heure

Merci
maintenant c'est plus claire.
Eric