Forums Neueste Beiträge
 

Prüfung ob Wochenende oder Feiertag

06/11/2008 - 16:30 von Thomas Wolf | Report spam
Hallo NG

Ich habe ein Problem beim behandeln eines Datum:

Nun möchte ich eine Prozedur erstellen welche so lange durchlàuft, bis ein
Datum kein Feiertag UND kein Wochenende ist (Wenn eines der Bedingungen
erfüllt ist, dann Tag = Tag + 1 und wieder von vorne).

Ich weiss, wie ich Wochentage berechne (Weekday...) und habe eine Funktion,
welche mir Feiertage berechnet.

Beispiel: Ich möchte das Datum 01.01.2009 auswerten.

Der 1. + 2. Januar ist ein Feiertag
Der 3 + 4 sind Wochenenden

Die Funktion sollte mir deshalb den 05.01.2009 zurückgeben

Es könnte ja aber auch sein, dass der 05.01.2009 wieder ein Feiertag ist. In
diesem Fall brauche ich als Rückgabe den 06.01.2009...

Wer kann mir weiterhelfen, wie meine Funktion aussieht?

Danke und Gruss
Thomas
 

Lesen sie die antworten

#1 Stefan Hoffmann
06/11/2008 - 16:42 | Warnen spam
hallo Thomas,

Thomas Wolf schrieb:
Es könnte ja aber auch sein, dass der 05.01.2009 wieder ein Feiertag
ist. In
diesem Fall brauche ich als Rückgabe den 06.01.2009...


z.B.:

Dim Count As Long
Dim Datum As Date

Count = 0
Datum = Date()

Do While IstFeiertag(Datum) Or IstWochende(Datum)
Count = Count + 1
If Count > 366 Then
MsgBox "Fehler in der Feiertagstabelle..."
Exit Do
End If
Datum = CDate(Datum + 1)
Loop


mfG

Access-FAQ http://www.donkarl.com/
KnowHow.mdb http://www.freeaccess.de
Newbie-Info http://www.doerbandt.de/Access/Newbie.htm

Ähnliche fragen