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