C
Christian T
Guest
Bonjour le forume,
J'ai déjà posé ma question mais les réponses reçues affirmaient qu'il n'y avait pas de problème. Or le problème persiste, je vais le poser différemment.
Je cherche à calculer le nombre de jours travaillés entre deux dates et j'introduis le nombre de jours fériés par une inpubox.
Voici mon code :
Function NbJoursTravail(Début As Date, Fin As Date)
Dim Vdate As Date
Dim NbJours As Byte
Dim NbJoursWE As Byte
Dim NbJoursFeriés As Byte
NbJours = 0
NbJoursFeriés = 0
NbJoursWE = 0
If Début = 0 Or Fin = 0 Then
NbJoursTravail = 0
Else
NbJoursFeriés = InputBox('Combien de jours feriés dans la période considérée ?', _
'Jours fériés', 0)
For Vdate = Début To Fin
If Weekday(Vdate) = 1 Or Weekday(Vdate) = 7 Then
NbJoursWE = NbJoursWE + 1
End If
Next Vdate
NbJours = Fin - Début + 1
End If
NbJoursTravail = NbJours - NbJoursWE - NbJoursFeriés
End Function
[li]Quand j'insère la première fois[/li] ma fonction la boite de dialogue s'ouvre 5 fois.
Où est l'erreur?
Merci d'avance
Christian
J'ai déjà posé ma question mais les réponses reçues affirmaient qu'il n'y avait pas de problème. Or le problème persiste, je vais le poser différemment.
Je cherche à calculer le nombre de jours travaillés entre deux dates et j'introduis le nombre de jours fériés par une inpubox.
Voici mon code :
Function NbJoursTravail(Début As Date, Fin As Date)
Dim Vdate As Date
Dim NbJours As Byte
Dim NbJoursWE As Byte
Dim NbJoursFeriés As Byte
NbJours = 0
NbJoursFeriés = 0
NbJoursWE = 0
If Début = 0 Or Fin = 0 Then
NbJoursTravail = 0
Else
NbJoursFeriés = InputBox('Combien de jours feriés dans la période considérée ?', _
'Jours fériés', 0)
For Vdate = Début To Fin
If Weekday(Vdate) = 1 Or Weekday(Vdate) = 7 Then
NbJoursWE = NbJoursWE + 1
End If
Next Vdate
NbJours = Fin - Début + 1
End If
NbJoursTravail = NbJours - NbJoursWE - NbJoursFeriés
End Function
[li]Quand j'insère la première fois[/li] ma fonction la boite de dialogue s'ouvre 5 fois.
Où est l'erreur?
Merci d'avance
Christian