PROCEDURE DiffToJoursHeuresMinutes(pDateHeureTxt1,pDateHeureTxt2,pDiffTexte)
//Format pDateHeureTxt : AAAAMMJJHHmm ou AAAAMMJJHHmmss ou AAAAMMJJHHmmsscc
sDiff est une chaîne
sBuff est une chaîne
nValeur est un entier
pDiffTexte=""
sDiff=DateHeureDifférence(pDateHeureTxt1,pDateHeureTxt2)
nValeur = Val(Gauche(sDiff, 8))
SI nValeur > 0 ALORS sBuff += nValeur + " Jours "
nValeur = Val(Milieu(sDiff, 9, 2))
SI nValeur > 0 ALORS sBuff += nValeur + " heures "
nValeur = Val(Milieu(sDiff, 11, 2))
SI nValeur >0 ALORS sBuff += nValeur + " minutes"
pDiffTexte = sBuff
RENVOYER sDiff
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=12&topic_id=1174&post_id=4725