05.02.2017, 17:05
Hallo,
ich habe eine Frage zu einem VBA-Skript das ich nicht verstehe.
Und zwar berechnet mir der Code zu einem Datum die Kalendarwoche. Aber ich verstehe nicht, wie das zu stande kommt. Kann mir das jemand erklären?
Private Function KW(d As Date) As Integer
Dim t As Variant
t = DateSerial(Year(d + (8 - Weekday(d)) Mod 7 - 3), 1, 1)
KW = (d - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1
End Function
Gibt es auch andere Möglichkeiten, die Kalendarwochen zu einem Jahr/Monaten zu berechnen?
ich habe eine Frage zu einem VBA-Skript das ich nicht verstehe.
Und zwar berechnet mir der Code zu einem Datum die Kalendarwoche. Aber ich verstehe nicht, wie das zu stande kommt. Kann mir das jemand erklären?
Private Function KW(d As Date) As Integer
Dim t As Variant
t = DateSerial(Year(d + (8 - Weekday(d)) Mod 7 - 3), 1, 1)
KW = (d - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1
End Function
Gibt es auch andere Möglichkeiten, die Kalendarwochen zu einem Jahr/Monaten zu berechnen?