1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
|
Public Function HeuresOuvrees(DD As Date, HD As Date, DF As Date, HF As Date) As Integer
If DateDiff("d", DD, DF) = 0 Then
If (#8:00:00 AM# <= TimeValue(HD)) And (#8:00:00 PM# >= TimeValue(HF)) Then
HeuresOuvrees = DateDiff("h", HD, HF)
ElseIf (#8:00:00 AM# > TimeValue(HD)) And (#8:00:00 PM# <= TimeValue(HF)) Then
HeuresOuvrees = 12 ' N'arrivera jamais
ElseIf (#8:00:00 AM# > TimeValue(HD)) And (#8:00:00 AM# < TimeValue(HF)) Then
HeuresOuvrees = DateDiff("h", #8:00:00 AM#, TimeValue(HF))
ElseIf (#8:00:00 PM# > TimeValue(HD)) And (#8:00:00 PM# <= TimeValue(HF)) Then
HeuresOuvrees = DateDiff("h", TimeValue(HD), #8:00:00 PM#)
End If
Else
If TimeValue(HD) >= (#8:00:00 AM#) And TimeValue(HD) <= (#8:00:00 PM#) Then
HeuresOuvrees = DateDiff("h", TimeValue(HD), #8:00:00 PM#)
ElseIf TimeValue(HD) < (#8:00:00 AM#) Then
HeuresOuvrees = 12 ' N'arrivera jamais
End If
If TimeValue(HF) >= (#8:00:00 AM#) And TimeValue(HF) <= (#8:00:00 PM#) Then
HeuresOuvrees = HeuresOuvrees + DateDiff("h", #8:00:00 AM#, TimeValue(HF))
ElseIf TimeValue(HF) > (#8:00:00 PM#) Then
HeuresOuvrees = HeuresOuvrees + 12
End If
End If
End Function |
Partager