Re: calcul sur heure

Posté par stant le 22/12/2004 0:59:25
Finalement j ai reussi a trouver
comme il ne me fallait que la duree sur un seul jour ou une seule nuit j ai rajoute 1 a la date
je ne sais pas si c est propre mais ca marche
voici le code pour avoir votre avis
Merci encore

//calcul la difference entre 2 heures dans la meme journee
diff est un entier=HeureDifférence(h_fin,h_deb)
Résultat est une chaîne = EntierVersHeure(Abs(diff))


//calcul la difference si la nuit ou un jour d ecart
SI h_deb>h_fin ALORS
	
	// Calculs sur dates et heures
	heureDébut,heureFin sont des DateHeure
	
	//prends la date du champ date
	heureDébut..PartieDate =date_deb
	//prends l heure du champ heure de debut
	heureDébut..PartieHeure = h_deb
	
	//prends  la date du champ date debut et ajoute un jour
	heureFin..PartieDate = date_deb
	heureFin..Jour +=1
	//prends l heure du champ heure de fin
	heureFin..PartieHeure = h_fin
	
	//calcul la difference entre les 2 heures
	dDurée est une Durée = heureFin - heureDébut
	
	//le champ nombre d heure pas jour affiche la duree formatee
	nbr_h_jour=dDurée
	nbr_h_jour=NumériqueVersChaine(dDurée..Heure,"02d")+NumériqueVersChaine(dDurée..Minute,"02d")
	
	
SINON
nbr_h_jour=Résultat
FIN


Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=12&topic_id=1578&post_id=6544