KW
26.09.2003 15:12:16
golem
Function DINKW(Datum)
Dim tmp
tmp = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1)
DINKW = ((Datum - tmp - 3 + (Weekday(tmp) + 1) Mod 7)) \ 7 + 1
End Function
Wie gebe ich diesen code der die Kalenderwoche berechnet in einer bestimmten zelle aus? Habe Probleme mit Function()- Befehlen: ist das wie:
Sub xy() eine Prozedur oder eine Unterfkt von
Sub xy().
Bitte um Rat
Anzeige