1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
Protected Function JourTravail(ByVal jh As Date) As Boolean
Dim dataj As String = "Monday,Friday,Sunday"
Dim datah As String = "0,1,2,3,4,5,6,7,8,13,19,20,21,22,23"
Dim rboo As Boolean = True
Dim JourTravaille As String() = Split(dataj, ",")
Dim HeureTravail As String() = Split(datah, ",")
For Each h As String In HeureTravail
If jh.Hour.ToString = h Then
rboo = False
End If
Next
For Each s As String In JourTravaille
If jh.DayOfWeek.ToString = s Then
rboo = False
End If
Next
Return rboo
End Function |
Partager