WDForge.org - Forums

Re: Calcul dans un fichier

Sujet: Re: Calcul dans un fichier
par drcharly93 sur 31/3/2006 14:28:14

Bonjour,

Les champs qui contiennent les dates doivent être de type date et non en type Chaine, de plus la valeur retournée doit être au format AAAAMMJJ.

Si toute fois les dates sont au format chaîne alors il faut modifier le procédure proAfficheDateDiff()

PROCEDURE proAfficheDateDiff()
sChampResultat est une chaine = lblNbJours..nom
sDateSaisie est une chaîne = txtDateSaisie..Nom
sDateDiff est une chaîne = lblNbJours..Nom

nDateJour est un entier = DateVersEntier(DateSys())

SI PAS DateValide(ChaîneVersDate({sDateSaisie,indChamp})) ALORS RETOUR
nDateSaisie est un entier = DateVersEntier(ChaîneVersDate({sDateSaisie,indChamp}))
sDateDiff = NumériqueVersChaîne(nDateJour - nDateSaisie)
{sChampResultat,indChamp} = sDateDiff