Pb script jours feriésRésolu

Question

Bonjour a tous. j'ai tenté d'utiliser ce scritp http://www.aspfr.com/codes/CALCUL-NOMBRE-JOURS-OUVRABLES-ENTRE-DEUX-DATES_8717.aspx et j'ai un soucis au niveau du resultat je vous copie mon code : <% function nbjourouvrable(datdeb,datfin) if datdeb="" or datfin="" then exit function nbjourtot = DateDiff("d",datdeb,datfin) + 1 for i=1 to nbjourtot if ferie(datdeb) then nbjourtot = nbjourtot - 1 end if datdeb=DateAdd("d",1,datdeb) next nbjour=nbjourtot End function function ferie(Jour) if jour="" then exit function Dim JJ,AA Dim NbOr, Epacte Dim PLune, Paques, Ascension, Pentecote JJ = Day(Jour) mm = Month(Jour) AA = Year(Jour) If JJ 1 And mm 1 Then ferie = True: Exit Function '1 Janvier If JJ 1 And mm 5 Then ferie = True: Exit Function '1 Mai If JJ 8 And mm 5 Then ferie = True: Exit Function '8 Mai If JJ 14 And mm 7 Then ferie = True: Exit Function '14 Juillet If JJ 15 And mm 8 Then ferie = True: Exit Function '15 Août If JJ 1 And mm 11 Then ferie = True: Exit Function '1 Novembre If JJ 11 And mm 11 Then ferie = True: Exit Function '11 Novembre If JJ 25 And mm 12 Then ferie = True: Exit Function '25 Décembre NbOr = (AA Mod 19) + 1 Epacte = (11 * NbOr - (3 + Int((2 + Int(AA / 100)) * 3 / 7))) Mod 30 PLune = CDate("19/04/" & AA) - ((Epacte + 6) Mod 30) If Epacte 24 Then PLune PLune - 1 If Epacte = 25 And (AA >= 1900 And AA < 2000) Then PLune = PLune - 1 Paques = PLune - Weekday(PLune) + vbMonday + 7 'Paques If JJ Day(Paques) And mm Month(Paques) Then ferie=true : Exit Function Ascension = Paques + 38 'Ascension If JJ Day(Ascension) And mm Month(Ascension) Then ferie=true : Exit Function 'Pentecote = Ascension + 11 'Pentecote 'If JJ Day(Pentecote) And mm Month(Pentecote) Then ferie=true : Exit Function ferie = False Dim numjour numjour=weekday(jour,vbmonday) 'fixe à 6 et 7 la valeur du samedi & dimanche if numjour=6 or numjour=7 then ferie=true : Exit function End function %> <% dim cnt,trai,traitement if request.querystring("date1")<>"" then date_debut=request.querystring("date1") date_fin=request.querystring("date2") dim ors dim objconn dim strconn set objconn = server.createobject("ADODB.connection") strconn= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("../../fpdb/ti.mdb")& ";Persist Security Info=False" objconn.open strconn reqsql = "select * from ti;" set ors = objconn.execute(reqsql) do while not ors.eof diff_debut=datediff("d",date_debut,ors("date1")) diff_fin=datediff("d",ors("date1"),date_fin) if (diff_debut>0 or diff_debut=0) and (diff_fin>0 or diff_fin=0) then cnt=cnt+1 if ors("nature")<>"Circulaire" then if ors("date4")<>"01/01/1900" then trai=trai+1 call nbjourouvrable(ors("date2"),ors("date4")) traitement=nbjour response.write(ors("date2")) response.write(" ") response.write(ors("date4")) response.write(" ") response.write(traitement) response.write(" ") response.write(" ") end if end if end if ors.movenext loop end if %> pardon c'est un peu long.... bon je m'explique, dans ma base de donnée c'est une liste de document qui comporte differentes dates. date1 la date du document, date2 et date4 d'autres dates que je dois comparer pour recuperer le nb de jours ouvrés qui les separent. je dois faire cette comparaison pour tous les documents dont la date (date1) est comprise entre les dates du formulaires. (vous suivez toujours ??) ca marche presque, mon probleme, et je ne comprends vraiment pas pourquoi c'est qu'il m'affiche tout ca, sauf pour la premiere ligne!! a priori sur la premiere opération la variable nbjourtot n'est pas reconnue... aidez moi par pitié je vais devenir fou !!!

isu_san · Accepted Answer

bon ben voila, pour une fois le newbbie a trouver tout seul...


 


merci a ceux qui ont cherché

isu_san · Answer

Hello
Bon puisque ca n'a pas l'air de vous inspirer on va faire plus simple
toujours cette fonction:
function nbjourouvrable(datdeb,datfin)
if datdeb="" or datfin="" then exit function 
nbjourtot = DateDiff("d",datdeb,datfin) + 1 
for i=1 to nbjourtot 
  if ferie(datdeb) then 
    nbjourtot = nbjourtot - 1 
  end if 
 datdeb=DateAdd("d",1,datdeb) 
next 
nbjour=nbjourtot
End function 
function ferie(Jour) 
if jour="" then exit function 
Dim JJ,AA 
Dim NbOr, Epacte 
Dim PLune, Paques, Ascension, Pentecote 
JJ = Day(Jour) 
mm = Month(Jour) 
AA = Year(Jour) If JJ 1 And mm 1 Then ferie = True: Exit Function '1 Janvier If JJ 1 And mm 5 Then ferie = True: Exit Function '1 Mai If JJ 8 And mm 5 Then ferie = True: Exit Function '8 Mai If JJ 14 And mm 7 Then ferie = True: Exit Function '14 Juillet If JJ 15 And mm 8 Then ferie = True: Exit Function '15 Août If JJ 1 And mm 11 Then ferie = True: Exit Function '1 Novembre If JJ 11 And mm 11 Then ferie = True: Exit Function '11 Novembre If JJ 25 And mm 12 Then ferie = True: Exit Function '25 Décembre 
NbOr = (AA Mod 19) + 1 
Epacte = (11 * NbOr - (3 + Int((2 + Int(AA / 100)) * 3 / 7))) Mod 30 
PLune = CDate("19/04/" & AA) - ((Epacte + 6) Mod 30) If Epacte 24 Then PLune PLune - 1 
If Epacte = 25 And (AA >= 1900 And AA < 2000) Then PLune = PLune - 1 
Paques = PLune - Weekday(PLune) + vbMonday + 7 'Paques If JJ Day(Paques) And mm Month(Paques) Then ferie=true : Exit Function 
Ascension = Paques + 38 'Ascension If JJ Day(Ascension) And mm Month(Ascension) Then ferie=true : Exit Function 
'Pentecote = Ascension + 11 'Pentecote 'If JJ Day(Pentecote) And mm Month(Pentecote) Then ferie=true : Exit Function 
ferie = False 
Dim numjour 
numjour=weekday(jour,vbmonday)     'fixe à 6 et 7 la valeur du samedi & dimanche 
if numjour=6 or numjour=7 then ferie=true : Exit function 
End function 

ensuite plus loin je fais

call nbjourouvrable(date1,date2)

ca fonctionne
mon soucis, c'est que je dois le faire plusieurs fois avec un while et que je n'arrive pas a recuperer le resultat de la fonction dans une variable. ou et quand dois je recuperer le resultat ???

Pb script jours feriés

2 réponses

Votre réponse

Discussions similaires