WDForge.org - Forums

[Résolu] SVP Calcul de nombre de jours

Sujet: [Résolu] SVP Calcul de nombre de jours
par massimo sur 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

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