FlowFact - Entwicklungstools

zurück

Function - IsArbeitstag
Datum auf ArbeitsTag prüfen

  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