welche Funktion kann aus einem Datum die aktuelle Woche berechnen.
z.b. Heute 13.03.03 ist die 11te Woche. Der 20.03.03 ist in der 12ten Woche.
Danke
Danke
Gruss
M@x
für 2003 und 2004 stimmt die Funktion Kalenderwoche() mit Aus-
nahme der Tage 29.,30. u. 31. Dez. 2003 mit der deutschen DIN-
Norm überein!
Gruß
Sigi
Function din_kw(datum As Date) As Integer
Dim i, j, k As Integer
i = datum - DateSerial(Year(datum), 1, 1)
k = WeekDay(DateSerial(Year(datum), 1, 1), vbMonday)
j = Int((i - (8 - k)) / 7) + 1
If k <= 4 Then j = j + 1
If j = 0 Then
j = din_kw(DateSerial(Year(datum) - 1, 12, 31))
ElseIf j = 53 And WeekDay(DateSerial(Year(datum), 12, 31), vbMonday) <= 3 Then
j = 1
End If
din_kw = j
End Function
Gruß Jörg
ich wollte damit nur zum Ausdruck bringen, dass diese Funktion
manchmal durchaus 'brauchbar' sein kann, sofern man die Unter-
schiede zwischen DIN-Norm u. US-Norm kennt.
Gruß
Sigi