Re: Calcul dans un fichier
Posté par drcharly93 le 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()
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
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=3772&post_id=16005