<%
'*********************************
'Funktion: Workdays (DATE_BEGIN, DATE_END)
'Argumente: Date_Begin, Startdatum; Datum_end, Enddatum
'Autor: Alixi
'Datum: 2007/7/15
'Beschreibung: Berechnen Sie die Arbeitstage innerhalb von zweimal
'Beispiel: Workdays ("2007-05-18", "2007-05-21")
'*********************************
Funktionsworkdays (DATE_BEGIN, DATE_END)
DATE_BEGIN = CDATE (DATE_BEGIN)
DATE_END = CDATE (DATE_END)
ifisDate (DATE_BEGIN) andisDate (Date_end) dann
Arbeitstage = 0
ford = 0todatediff ("D", DATE_BEGIN, DATE_END)
IfWeekday (Datum_Begin+D) <> 1 und Weekday (DATE_BEGIN+D) <> 7Then
Arbeitstage = Arbeitstage+1
Endif
nächste
anders
workdays = "unbekannt"
Endif
Endfunktion
%>