Calul de la date de fin à partir d'une durée - enlève les week-ends
Soyez le premier à donner votre avis sur cette source.
Snippet vu 8 667 fois - Téléchargée 28 fois
Contenu du snippet
Cette fonction calcule la date de fin à partir d'une date de début et d'une durée. Pas compliqué. Mais là où ça se corse c'est qu'il faut enlever les week-ends.
Cette fonction utilise la récursivité.
J'espère que cette fonction sera utile à quelqu'un.
J'ai la même fonction en C++ et une autre plus simple qui calcule la durée entre 2 dates sans compter les week-ends
A bientôt
Tatal
Cette fonction utilise la récursivité.
Source / Exemple :
<%
'//---------------------------------------------------------------------------
'// 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
%>
Conclusion :
J'espère que cette fonction sera utile à quelqu'un.
J'ai la même fonction en C++ et une autre plus simple qui calcule la durée entre 2 dates sans compter les week-ends
A bientôt
Tatal
A voir également
- Calul de la date de fin à partir d'une durée - enlève les week-ends
- C / C++ / C++.NET : Calcul d'une date d'arrivee à partir d'une date de départ - CodeS - Guide
- Cette source permet de donner la date du lendemain à partir d'un date saisie - Codes sources - C / C++ / C++.NET (Date / Heure)
- Visual Basic / VB.NET : Calcul de la date de pâques à partir de 1583 selon oudin - Code - Guide
- Probleme Script calendrié avec date de debut et date de fin. ✓ - Forum - PHP
- Date de fin de mois ✓ - Forum - Visual Basic 6
Commentaires
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...
- Messages postés
- 6814
- Date d'inscription
- dimanche 15 décembre 2002
- Statut
- Modérateur
- Dernière intervention
- 13 octobre 2010
18Vous 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.