calculer intervalle entre 2 heuresRésolu

Question

Bonjour,
mon probl&#232;me est que je choisi mettons 03:00:00 le matin
je suis capable de caculer jusqu'&#224; minuit le soir 
&#224; la place de mettre 21h au compteur &#224; minuit il me retourne 3h
et je suis rendu avec un compte &#224; rebour &#224; la place d'un compteur

j'ai essayer plusieures chose et lu beaucoup sur le forum et toute les r&#233;ponses me redonne ce probl&#232;me

l'application doit calculer la diff&#233;rence entre une heure donn&#233;e par l'usager par rapport &#224; l'heure courante tout va bien
pourvu que l'heure choisi par l'usager est plus petite que l'heure courante

mon retour doit &#234;tre un compteur qui dure 24h 

mon format final sera  xx heures  xx minutes  xx secondes

merci

Gobillot · Accepted Answer

Dim d1 As Date
    Dim d2 As Date
    Dim dd As Date
    
    d1 = "03:00:00"
    d2 = "00:00:00"
    
    dd = d2 - d1
    If dd < 0 Then dd = dd + 1
    MsgBox "interval= " & dd

Daniel

cs_Pingouin · Answer

Bon je suis loin d'etre specialiste des dates et tout ca mais essie
d'entrer une date (au sens VB du terme) complete c'est a dire la date
et l'heure puis de faire la difference entre ces dates a l'aide d'une
fonction de VB (ya un truc je crois DateDiff ou kkchose comme ca) Voila
a mon avis ca vient du fait kil fait la difference entre les deux
heures alors forcement si c'est sur deux jours diff&#233;rents meme a 24h
d'ecart ya un pb.
Si ce n'est pas ca on trouvera bien autre chose (meme si ce n'est pas moi ;-) )



@+


The Pingouin

crenaud76 · Answer

commele dit pingouin, fait un datediff


Christophe R

xtc007 · Answer

Salut,

datediff meme probleme...

il retourne les secondes que je reconverti en heure
mais quand l heure est plus petite que la courante  
mettons 6h du matin c'est usager 
courante c'est 7h au lieu de me dire qu'il y a 23h de pass&#233;
et il monte il me dit il te reste 1 h et il decend

j ai vraiment besoin juste de l'heure
car la fonction pour la date est faite   annee &#233;coul&#233;  mois &#233;coul&#233;  jour &#233;coul&#233;
il me reste l'heurequi devient un compte a rebours
quand l heure usager et plus petite que l heure courante....
a moin d'integrer mydate = date - 1 jour sur la date usager dans l'instruction datediff ca pourrait etre une solution

je vais essayer voir ca va etre quoi le resultat

merci

crenaud76 · Answer

Si tu fait un datediff entre 6h et 7h, ton datediff doit &#234;tre n&#233;gatif, auquel cas tu sait que en fait, ce n'est pas -1 h mais 24-1h !



Christophe R

xtc007 · Answer

c'est justement ca que j'arrive pas &#224; mettre en code....
je reviens toujours au meme pont de d&#233;part 

compteur &#224; rebours

je suis en train d essayer d'arrenger ca

Ray

crenaud76 · Answer

D = DateDiff( ...)
If D <0 then D = 24 - D
Msgbox "Intervalle = " & D

Un truc dans ce genre

Christophe R

xtc007 · Answer

je comprend ton principe..

j essaye de l appliquer ca fait une journee....

je retombe &#224; la case depart....

il y a quelque chose que je saisie pas ou que j exprime mal dans vb mais je le lache pas

je suis un peu d&#233;courag&#233; mais je vais le trouver 

mais si quelqu un as une solution miracle ou un code qui peux me mettre sur la piste.....
car pr&#233;sentement j'ai plein de code trash dans mes fichier .txt qui sont des solutions qui marche pas malgr&#233; que c'est peux etre juste une mauvaise interpr&#233;tation,mais le r&#233;sultat est toujours le m&#234;me...je fini avec un compte a rebours quand  mon heure choisi est plus petite que l heure courante ou bien je tombe avec une date a la place d une heure....

j'ai une solution toute &#233;crit dans ma t&#234;te mais c de la mettre en code que je bloque.....

Ray

xtc007 · Answer

Merci Daniel 

ca fonctionne

Ray

cs_cosmic · Answer

Vraiment super ce code!!!
incomparable parmis plusieurs sources d&#233;j&#224; test&#233;!!! 

Quand toutes les rivi&#232;res auront &#233;t&#233; polu&#233; et toutes les for&#234;ts d&#233;vat&#233;s, les industrielles et les grandes puissances de ce monde apprendrons qu'ont ne ce nourrit pas que de billets de banques!!!!

Calculer intervalle entre 2 heures

10 réponses