Kalenderwoche berechnen aber wie?

Computer: Software & Programmierung Microsoft Access
1

Hallo Experten!

Mein Problem:

Ich habe ein Modul, das mir automatisch die Kalenderwoche berechnet, wenn ich das Datum in ein Textfeld schreibe. Ich möchte aber das Datum alle sieben Tage (jede Woche) automatisch anzeigen lassen. Für alle die es interessiert hier der Code für das Modul:

Function Kalenderwoche(DT As Variant) As Variant
Dim KWoche As Variant, KJahr As Variant

DT = DateValue(DT)
KJahr = Year(DT)
KWoche = Int((DT - DateSerial(KJahr, 1, 1) + ((WeekDay(DateSerial(KJahr, 1, 1)) + 1) Mod 7) - 3) / 7) + 1

Select Case KWoche
Case 0
KWoche = Kalenderwoche(DateSerial(KJahr - 1, 12, 31))
Case 53
If (WeekDay(DateSerial(KJahr, 12, 31)) - 1) Mod 7

2

FAQ 2.25
http://www.donkarl.com/FAQ/FAQ2Allgemein.htm#2.25 - FAQ 2.25

Gruß aus dem Norden
Reinhard Kraasch
(http://www.kraasch.de - Access Tipps & Tricks)

3

Hi,

Wie du die Kalenderwoche berechnest, dürfte jetzt klar sein. Eins habe ich noch nicht verstanden:

Ich
möchte aber das Datum alle sieben Tage (jede Woche)
automatisch anzeigen lassen.

Meinst du sowas?

Public Sub day\_in\_week(A\_date As Date)

Dim erster As Date
Dim i As Integer

erster = A\_date - Weekday(A\_date, vbMonday)

For i = 1 To 7
 Debug.Print erster + i
Next i

End Sub

Aufruf:

call day\_in\_week(#26-sep-2003#)
22.09.2003 
23.09.2003 
24.09.2003 
25.09.2003 
26.09.2003 
27.09.2003 
28.09.2003

Gruß

Sancho