[Résolu] SVP Calcul de nombre de jours
Posté par massimo le 1/2/2008 14:20:43
Je doit calculer un nombre de jours entre deux dates selon le mode de gestion, càd, le nombre de jours varie d'une sté à une autre 360j/an ou 312j/an, et celà sans compter les dimanches et avec un max de 26j pour 312 et 30j pour 360, la procedure que j'utilise ne me donne pas le nombre excate, y a t il une âme charitable pour me corriger et merci:
Procédure NbreJrs()
//Pour le calcul de difference de date le premier et dernier jour y compri
//Date_Debut et Date_Fin sont paramètres à fournir
Procédure NbreJrs()
//Pour le calcul de difference de date le premier et dernier jour y compri
//Date_Debut et Date_Fin sont paramètres à fournir
Date_Calc est une chaine
Res est un booleen
Nbre_Jrs, II est une entier
Compteur_Jrs=0
Nbre_Jrs=datedifference(Date_Debut,Date_Fin)
Date_Calc=Date_Debut
//Nombre de jours travaillés 26 ou 30
Si SOCIETE.NJTM=312 Alors
Pour II=1 à Nbre_Jrs
Res=datevalide(Date_Calc)
Si Res=Vrai et droite(Date_Calc,2)<>"31" et EntierVersJourEnLettre(DateVersEntier(Date_Calc))<>"Dimanche" Alors
Compteur_Jrs=Compteur_Jrs+1
FIN
Date_Calc=EntierVersDate((DateVersEntier(Date_Calc)+1))
FIN
Sinon
Pour II=1 à Nbre_Jrs
Res=datevalide(Date_Calc)
Si Res=Vrai et droite(Date_Calc,2)<>"31" alors
Compteur_Jrs=Compteur_Jrs+1
FIN
Date_Calc=EntierVersDate((DateVersEntier(Date_Calc)+1))
FIN
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=18&topic_id=5669&post_id=23128