WDForge.org - Forums

Re: Formulaire + date

Sujet: Re: Formulaire + date
par drcharly93 sur 12/10/2004 15:30:01

Bonjour,

et si vous voulez calculer la date avec

nDate est un entier  
nDateDebut est un entier = <Date de debut>
POUR i=1 A nbrCopie
        nDate = DateVersEntier(nDateDebut+(i-1))
        <Fichier>.<RubriqueDate>=EntierVersDate(nDate)
	<Fichier>.<Rubrique1>= <Saisie1>
	<Fichier>.<Rubrique2>= <Saisie2>
        ...
        <Fichier>.<RubriqueN>= <SaisieN>
	HAjoute(Fic_client)
FIN

nDate = DateVersEntier(nDateDebut+(i-1))
j'utilise un entier pour prévoir les changement de mois ou d'année
-1 car la boucle commence à 1 etla date de debut n'a pas besoin d'être incrémentée.