berechnung kalenderwochen
18.03.2003 21:32:18
heiko
wie berechne ich zuverlässig die kalenderwochen, ohne dass ich jedes
jahr die hilfsaddition korigieren muss?
voriges jahr (2002) habe ich diff = diff + 1 gerechnet, damit der kw-wechsel
von sonntag zu montag funktionierte. dieses jahr muss ich 2 addieren.
danke für eure hilfe!
anbei meine funktion
'$$ ---------------------------------------------- $$
' Wochennummer des aktuellen Datums ermitteln
'$$ ---------------------------------------------- $$
Function WOCHENR(dat)
j = Year(dat)
m = Month(dat)
d = Day(dat)
erster_tag_im_jahr = "1. " & "1. " & j
'lfd Nr. des Tages im aktuellen Jahr "j"
diff = DateSerial(j, m, d) - DateSerial(j, 1, 1)
diff = diff + 2 ' Hilfsaddition zum Runden ----------------> muss jedes Jahr angepasst werden !
tag_nr = (diff / 7) + 1
WOCHENR = Application.RoundDown(tag_nr, 0)
End Function
Anzeige