WDForge.org - Forums

Re: Calcul dans un fichier

Sujet: Re: Calcul dans un fichier
par drcharly93 sur 28/3/2006 11:09:27

Bonjour,

Ici mon champs de saisie de date se nomme 'txtDateSaisie'
Le code sera saisie à la sortie du champs en question

//Ici on récupère le nom des champs manipuler
sDateSaisie est une chaîne = txtDateSaisie..Nom
sDateDiff est une chaîne = lblNbJours..Nom

//On récupèere la date du jour sous forme d'entier
nDateJour est un entier = DateVersEntier(DateSys())

//On vérifie si la date saisie est une date valide
SI PAS DateValide({sDateSaisie,indChamp}) ALORS RETOUR

//On récupère la date saisie sous forme d'entier
nDateSaisie est un entier = DateVersEntier({sDateSaisie,indChamp}..Valeur)

//On calcul le nombre de jour entre les deux dates
{sDateDiff,indChamp} = NumériqueVersChaîne(nDateJour - nDateSaisie)

Note :
{sDateDiff,indChamp}
Cette syntaxe permet de faire de l'indirection sur les champs
sDateDiff contient le nom champs manipulé
indChamp cette constante permet d'optimiser en indiquent qu'il s'agit d'un champs.
les {} permettent de faire de l'indirection.