Code mit KW
04.01.2005 18:11:58
Erich
habe ein problem mit meiner KW funktion, sie berechnet als KW die 0 statt die KW1 was muss ich in ´meinen code ändern.
Function KALENDERWOCHE_DIN(Datum As Date) As Integer Dim t& t = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1) KALENDERWOCHE_DIN = (Datum - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 / 1 End Function
für eure hilfe wäre ich sehr dankbar!
gruß
erich