Frage zu Public Function
20.02.2006 13:45:30
Henri
ich habe eine Arbeitszeittabelle erstellt, die u.a. mit mehreren Funktionen arbeitet. Davon sind:
Public Function Wochenende(Datum As Date) As Date
Wochenende = WeekDay(Datum, vbMonday) > 5
End Function
und
Public Function FeiertagOderWochenende(Datum As Date) As Boolean
'Samstag, Sonntag oder Feiertag.
FeiertagOderWochenende = Feiertag(Datum) Or Wochenende(Datum)
End Function
Damit kann ich dann in meiner Tabelle nach Feiertag oder Wochenende unterscheiden. Jetzt möchte ich aber noch optional Samstag zum Wochenende hinzufügen oder entfernen können.
Ich hatte mir das so vorgestellt. Ich baue noch eine Funktion in etwa so:
Public Function Samstag(Datum As Date) As Date
Samstag = WeekDay(Datum, vbMonday) = 6
End Function
und modifiziere die FeiertagOderWochenende Funktion so:
Public Function FeiertagOderWochenende(Datum As Date) As Boolean
'Samstag, Sonntag oder Feiertag.
If Sheets("Settings").Range("A1").Value = 1 Then
FeiertagOderWochenende = Feiertag(Datum) Or Samstag(Datum)
Else
FeiertagOderWochenende = Feiertag(Datum) Or Wochenende(Datum)
End If
End Function
Aber leider ist es doch nicht so einfach, da es nicht funktioniert.
Hat vielleicht einer von euch einen Tipp für mich?
Danke
Henri