Hallo Forum,
Wer kann mir einen Tip geben wie ich durch Berechnung aus einem Tagesformat
z.B.: 20.12.2004 die Kalenderwoche kreieren kann ?
Vielen Dank
Gruesse
Ernst
AW: Tages-Datumsformat als Kalenderwoche darstelle
=Peter=
Hallo Ernst,
neben der von Udo vorgeschlagenen Formel kann man auch eine benutzerdefinierte Funktion nehmen:
Function DIN_KW(Datum As Date) As Integer
' von Christoph Kremer, Aachen
Dim t&
t = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1)
DIN_KW = (Datum - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1
End Function
Gruss
Peter
AW: Tages-Datumsformat als Kalenderwoche darstellen