1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Function CompteJours1(Date1 As Date, Date2 As Date, DateEntree As Date, DateSortie As Date) As Long
If (Date1 < DateEntree) And IsNull(DateSortie) Then
CompteJours1 = DateDiff("d", DateEntree, Date2)
ElseIf (Date1 > DateEntree) And IsNull(DateSortie) Then
CompteJours1 = DateDiff("d", Date1, Date2)
ElseIf (Date1 <= DateEntree) And (Date2 >= DateSortie) Then
CompteJours1 = DateDiff("d", DateEntree, DateSortie)
ElseIf (Date1 > DateEntree) And (Date2 <= DateSortie) Then
CompteJours1 = DateDiff("d", Date1, Date2)
ElseIf (Date1 > DateEntree) And (Date1 < DateSortie) Then
CompteJours1 = DateDiff("d", Date1, DateSortie)
ElseIf (Date2 > DateEntree) And (Date2 <= DateSortie) Then
CompteJours1 = DateDiff("d", DateEntree, Date2)
ElseIf (Date2 >= DateEntree) And (Date2 < DateSortie) Then
CompteJours1 = DateDiff("d", DateEntree, Date2)
ElseIf (Date1 < DateEntree) And (Date2 < DateSortie) Then
CompteJours1 = 0
ElseIf (Date2 < DateEntree) Then
CompteJours1 = 0
End If |
Partager