In Microsoft ACCESS Version 2.0 für WINDOWS möchte ich mit Hilfe einer Funktion das Startdatum einer gegebenen Kalenderwoche bestimmen. Wie muß diese Funktion aussehen?


Antwort:

Nachfolgende Funktion erwartet als Eingabeparameter die Kalenderwoche und das Jahr und liefert nach den deutschen Kalenderrichtlinien den ersten Tag dieser Kalenderwoche als Rückgabewert.

Function anfang_kw (kw As Integer, jhr As Integer) As Double
Dim erstertag As Double

'* Bestimmung des ersten Tages von KW2
erstertag = DateSerial(jhr, 1, 1)
Do Until DatePart("ww", erstertag, 2, 2) = 2
erstertag = erstertag + 1
Loop

'* Anfangsdatum bestimmen
anfang_kw = DateAdd("ww", kw - 2, erstertag)

End Function

Beispielsweise können Sie die Funktion zum Test durch folgende Eingabe im Direktfenster aufrufen:

?format(anfang_kw(10,1992),"dd.mm.yy")

Das Ergebnis lautet: 
02.03.92

Der 02.03.92 ist der erste Tag der 10.Kalenderwoche des Jahres 1992.