Traitements d'une période (date à date)
Résolu
cs_Jordel
Messages postés
27
Date d'inscription
vendredi 1 février 2002
Statut
Membre
Dernière intervention
14 décembre 2007
-
6 déc. 2007 à 16:40
cs_Jordel Messages postés 27 Date d'inscription vendredi 1 février 2002 Statut Membre Dernière intervention 14 décembre 2007 - 7 déc. 2007 à 09:56
cs_Jordel Messages postés 27 Date d'inscription vendredi 1 février 2002 Statut Membre Dernière intervention 14 décembre 2007 - 7 déc. 2007 à 09:56
A voir également:
- Traitements d'une période (date à date)
- Sql insert date ✓ - Forum SQL
- Vba date to string - Forum Visual Basic
- Sql comparaison date - Forum SQL
- Sql max date ✓ - Forum SQL
- Insert date sql ✓ - Forum Visual Basic
2 réponses
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
6 déc. 2007 à 16:48
6 déc. 2007 à 16:48
WeekDay pour samedi ou dimanche
pour les jours fériés, referes toi aux sources du site les concernant
For maDate = DateDepart To DateFin
...
Next maDate
Renfield
Admin CodeS-SourceS- MVP Visual Basic
pour les jours fériés, referes toi aux sources du site les concernant
For maDate = DateDepart To DateFin
...
Next maDate
Renfield
Admin CodeS-SourceS- MVP Visual Basic
cs_Jordel
Messages postés
27
Date d'inscription
vendredi 1 février 2002
Statut
Membre
Dernière intervention
14 décembre 2007
7 déc. 2007 à 09:56
7 déc. 2007 à 09:56
Hello,
Merci :)
J'ai trouvé des choses sympas sur le net après quelques recherches :)
Je me suis inspiré de ce code pour effectuer mes traitements :
Public Function nombre_jour_ouvre(ByVal date1 As String, ByVal date2 As String) As Double
Dim nb, nb_ouvre As Integer
Dim jour, date3 As String
nb = DateDiff("d", date1, date2)
nb_ouvre = 0
For i = 0 To nb
date3 = DateAdd("d", i, date1)
jour = Format(date3, "dddd")
If jour <> "samedi" And jour <> "dimanche" Then
nb_ouvre = nb_ouvre + 1
End If
Next
nombre_jour_ouvre = nb_ouvre
End Function
Voili, voilou...
Merci en tout cas ;)
Merci :)
J'ai trouvé des choses sympas sur le net après quelques recherches :)
Je me suis inspiré de ce code pour effectuer mes traitements :
Public Function nombre_jour_ouvre(ByVal date1 As String, ByVal date2 As String) As Double
Dim nb, nb_ouvre As Integer
Dim jour, date3 As String
nb = DateDiff("d", date1, date2)
nb_ouvre = 0
For i = 0 To nb
date3 = DateAdd("d", i, date1)
jour = Format(date3, "dddd")
If jour <> "samedi" And jour <> "dimanche" Then
nb_ouvre = nb_ouvre + 1
End If
Next
nombre_jour_ouvre = nb_ouvre
End Function
Voili, voilou...
Merci en tout cas ;)