|
| Calcul de Durée entre 23:30 et 00:30 |
| Started by lionel.kerbrat, Apr., 27 2006 12:56 PM - 4 replies |
| |
| | | |
|
| |
Posted on April, 27 2006 - 12:56 PM |
Bonjour,
Quelqu'un connait-il la solution pour récupérer une durée de 60 minutes pour une heure de début à 23:30 et une heure de fin à 00:30 ?
MERCI. |
| |
| |
| | | |
|
| | |
| |
Posted on April, 27 2006 - 1:19 PM |
Bonjour,
Pour cela il te faut la date et l'heure
Ensuite tu peux utiliser DateHeureDifference |
| |
| |
| | | |
|
| | |
| |
Posted on April, 27 2006 - 1:52 PM |
Sinon si l'heure de début est postérieure à l'heure de fin, tu calcules la différence entre l'heure de début et minuit, puis entre minuit et l'heure de fin.
Frédéric. |
| |
| |
| | | |
|
| | |
| |
Posted on April, 27 2006 - 2:08 PM |
PROCEDURE
DateHeureDifferenceVersSecondes(Dth1,Dth2=DateSys()+HeureSys(),EnCentieme=Faux)
Dur est une Durée = ChaîneVersDurée(DateHeureDifférence
(Dth1,Dth2),duréeCentième )
Tps est réel =
86400*Dur..Jour+3600*Dur..Heure+60*Dur..Minute+Dur..Seconde
SI EnCentieme ET Dur..Milliseconde>0 ALORS
Tps=Tps+(Dur..Milliseconde/1000)
FIN
RENVOYER Tps
PROCEDURE DateHeureDifferenceVersDuree(Dth1,Dth2=DateSys()+HeureSys())
Dth3 est chaîne = Remplace(Remplace(Dth1,"-","")," ","")
Dth4 est chaîne = Remplace(Remplace(Dth2,"-","")," ","")
Dth est une chaîne
SI PAS DateHeureValide(Dth3) OU PAS DateHeureValide(Dth4) ALORS
RENVOYER ""
Durée est une Durée =
ChaîneVersDurée(DateHeureDifférence(Dth3,Dth4),duréeCentième)
SI Durée..Jour>0 ALORS
Dth=Durée..Jour+" j "
FIN
SI Durée..Heure>0 ALORS
Dth=Dth+Durée..Heure+" h "
FIN
SI Durée..Minute>0 ALORS
Dth=Dth+Durée..Minute+" min "
FIN
SI Durée..Seconde>0 ALORS
Dth=Dth+Durée..Seconde+" s "
FIN
RENVOYER Dth
PROCEDURE DateHeureValide(Dth)
SI DateValide(Gauche(Dth, ) ET HeureValide(Milieu(Dth,9)) ALORS
RENVOYER Vrai
SINON
RENVOYER Faux
FIN
Yoyo avait soumis l'idée :
Bonjour,
Quelqu'un connait-il la solution pour récupérer une durée de 60 minutes pour
une heure de début à 23:30 et une heure de fin à 00:30 ?
MERCI.
--
Pierre BOUSQUET
" Ne me dites pas que ce problème est difficile.
S'il n'était pas difficile, ce ne serait pas un problème. " |
| |
| |
| | | |
|
| | |
| |
Posted on April, 27 2006 - 7:28 PM |
Merci pour toutes les infos, avec ça je pense pouvoir m'en sortir.
Merci encore.
Yoyo. |
| |
| |
| | | |
|
| | | | |
| | |
|