Function Tot1#(dat#, horaire$)
Dim test1 As Boolean, test2 As Boolean, temp#
test1 = Application.CountIf([Férié], dat) = 0 And Weekday(dat) <> 6
test2 = Application.CountIf([Férié], dat + 1) = 0 And Weekday(dat + 1) <> 6
Calcul "Jour", test1, test2, horaire, temp
Tot1 = temp
End Function
Function Tot2#(dat#, horaire$)
Dim test1 As Boolean, test2 As Boolean, temp#
test1 = Application.CountIf([Férié], dat) = 0 And Weekday(dat) <> 6
test2 = Application.CountIf([Férié], dat + 1) = 0 And Weekday(dat + 1) <> 6
Calcul "Nuit", test1, test2, horaire, temp
Tot2 = temp
End Function
Function Tot3#(dat#, horaire$)
Dim test1 As Boolean, test2 As Boolean, temp#
test1 = Application.CountIf([Férié], dat)
test2 = Application.CountIf([Férié], dat + 1)
Calcul "Jour", test1, test2, horaire, temp
Tot3 = temp
End Function
Function Tot4#(dat#, horaire$)
Dim test1 As Boolean, test2 As Boolean, temp#
test1 = Application.CountIf([Férié], dat)
test2 = Application.CountIf([Férié], dat + 1)
Calcul "Nuit", test1, test2, horaire, temp
Tot4 = temp
End Function
Function Tot5#(dat#, horaire$)
Dim test1 As Boolean, test2 As Boolean, temp#
test1 = Application.CountIf([Férié], dat) = 0 And Weekday(dat) = 6
test2 = Application.CountIf([Férié], dat + 1) = 0 And Weekday(dat + 1) = 6
Calcul "Jour", test1, test2, horaire, temp
Tot5 = temp
End Function
Function Tot6#(dat#, horaire$)
Dim test1 As Boolean, test2 As Boolean, temp#
test1 = Application.CountIf([Férié], dat) = 0 And Weekday(dat) = 6
test2 = Application.CountIf([Férié], dat + 1) = 0 And Weekday(dat + 1) = 6
Calcul "Nuit", test1, test2, horaire, temp
Tot6 = temp
End Function