Nombre de jours ouvrés
Résolu
masterpopeye
Messages postés
27
Date d'inscription
lundi 8 octobre 2007
Statut
Membre
Dernière intervention
11 décembre 2007
-
5 déc. 2007 à 10:32
masterpopeye Messages postés 27 Date d'inscription lundi 8 octobre 2007 Statut Membre Dernière intervention 11 décembre 2007 - 5 déc. 2007 à 15:16
masterpopeye Messages postés 27 Date d'inscription lundi 8 octobre 2007 Statut Membre Dernière intervention 11 décembre 2007 - 5 déc. 2007 à 15:16
3 réponses
Molenn
Messages postés
797
Date d'inscription
mardi 7 juin 2005
Statut
Membre
Dernière intervention
23 février 2011
7
5 déc. 2007 à 10:46
5 déc. 2007 à 10:46
La fonction DateAdd répondra à ton besoin : pour ajouter un jour dateAdd("d",1,Tadate)
Molenn
Molenn
masterpopeye
Messages postés
27
Date d'inscription
lundi 8 octobre 2007
Statut
Membre
Dernière intervention
11 décembre 2007
1
5 déc. 2007 à 14:47
5 déc. 2007 à 14:47
Merci beaucoup
Je mettrais la fonction finale, un peu plus tard pour ceux que ça pourrait intéresser.
@+
Masterpopeye
Je mettrais la fonction finale, un peu plus tard pour ceux que ça pourrait intéresser.
@+
Masterpopeye
masterpopeye
Messages postés
27
Date d'inscription
lundi 8 octobre 2007
Statut
Membre
Dernière intervention
11 décembre 2007
1
5 déc. 2007 à 15:16
5 déc. 2007 à 15:16
Comme promis voici la fonction finale.
Public Function nombre_jour_ouvre(ByVal date1 As String) As Double
Dim nb, nb_ouvre As Integer
Dim jour, date2 As String
nb = DateDiff("d", date1, Format$(Now, "dd/mm/yyyy"))
nb_ouvre = 0
For i = 0 To nb
date2 = DateAdd("d", i, date1)
jour = Format(date2, "dddd")
If jour <> "samedi" And jour <> "dimanche" Then
nb_ouvre = nb_ouvre + 1
End If
Next
nombre_jour_ouvre = nb_ouvre
End Function
Masterpopeye
Public Function nombre_jour_ouvre(ByVal date1 As String) As Double
Dim nb, nb_ouvre As Integer
Dim jour, date2 As String
nb = DateDiff("d", date1, Format$(Now, "dd/mm/yyyy"))
nb_ouvre = 0
For i = 0 To nb
date2 = DateAdd("d", i, date1)
jour = Format(date2, "dddd")
If jour <> "samedi" And jour <> "dimanche" Then
nb_ouvre = nb_ouvre + 1
End If
Next
nombre_jour_ouvre = nb_ouvre
End Function
Masterpopeye