![]() |
FlowFact - Entwicklungstools |
![]() |
Function | IsArbeitstag(ByVal datDate As Date, Optional blnFeiertag As Boolean = True, Optional blnSaturday As Boolean = True, Optional blnSunday As Boolean = True) As Boolean |
datDate: Der zu untersuchende Datumswert blnFeiertag: True: Feiertage werden berücksichtigt; Feiertage sind keine Arbeitstage Rückgabe: True, wenn kein Feiertag oder Wochenende Public Function IsArbeitstag(ByVal datDate As Date, Optional blnFeiertag As Boolean = True, Optional blnSaturday As Boolean = True, Optional blnSunday As Boolean = True) As Boolean IsArbeitstag = True Select Case Weekday(datDate, vbSunday) Case vbSunday If blnSunday = True Then IsArbeitstag = False End If Case vbSaturday If blnSaturday = True Then IsArbeitstag = False End If Case Else If blnFeiertag = True Then If IsFeiertag(datDate) <> "" Then IsArbeitstag = False End If End If End Select End Function |