Soyez le premier à donner votre avis sur cette source.
Snippet vu 8 781 fois - Téléchargée 28 fois
<% '//--------------------------------------------------------------------------- '// CALCULE la date de fin et Enlève les jours des week-ends '//--------------------------------------------------------------------------- dim cpte Function CalculDateFin(DateD, duree) Dim NbJourWE Dim DateC, DateFin '//Cas de la durée non entière : ex. 2,5 jours If (CStr(duree) > CStr(Int(duree))) Then duree = duree + 1 End If DateC = DateD DateFin = DateAdd("d", Int(duree), DateC) If (cpte = 0) Then DateFin = DateAdd("d", duree - 1, DateC) Else If (DatePart("w", DateC) = 1 Or DatePart("w", DateC) = 7) Then DateC = DateAdd("d", 1, DateC) End If End If cpte = cpte + 1 While (CDate(DateC) <= DateFin) If (DatePart("w", DateC) = 1 Or DatePart("w", DateC) = 7) Then NbJourWE = NbJourWE + 1 End If DateC = DateAdd("d", 1, DateC) Wend If (NbJourWE > 0) Then DateFin = CalculDateFin(DateFin, NbJourWE) NbJourWE = 0 End If cpte = 0 CalculDateFin = DateFin End Function %>
DatePart("w", DateC, vbSunday) dans ton cas.
Comme le dit Bud, y a plus simple ;o)
DateT = DateD
i = 0
tant que i < duree faire
DateT = DateAdd("d",1,DateT)
si DatePart("w", DateT, vbSunday) <> 1 and DatePart("w", DateT, vbSunday) <>7 faire
i = i +1
fin si
fin tant que
mafonction = DateT
ca devrait etre un truc du genre :o)
Mais il n'y aurait pas eu plus simple?
Du style compter le nombre de semaine dans la durée (sachant qu'il y a 5 jours dans la semaine) et rajouter encore 2 jours si il faut...
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.