WDForge.org - Forums

Re: Procédure : Renvoyer plusieurs valeurs ?

Sujet: Re: Procédure : Renvoyer plusieurs valeurs ?
par drcharly93 sur 30/7/2004 1:19:47

Bonjour,

Voici une petite procédure qui renvoi la valeur de la différence entre deux dates sous format texte
JJJJJJJHHMMSSCC et quipeut être enregistrée directement dans un fichier Hyper File au format Texte de 16 caractères.
J = Jours
H = Heures
M = Minutes
S = Secomdes
C = Centiemes de seconde

le paramètre pDiffTexte permet de stocké la valeur sous forme de texte en clair la différences entre les deux dates
Soit
- X jours X heures X minutes
- X HeuresX minutes
- X minutes

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 procedure peut bien sur être améliorée.