0160-93 82 19 37 | Nehmen Sie 
Kalenderwoche nach DIN ermitteln
40010
Mit diesem Makro kann die Kalenderwoche nach Deutscher Industrienorm (DIN) 1355 ermittelt werden.
Diese Funktion erlaubt, sowohl durch die direkte Übergabe des Datums als auch durch den
Bezug auf eine Zelle die Kalenderwoche zu ermitteln.
Public Sub kw_ermitteln()
'kw = DINKw("01.08.2002")
kw = DINKw(Range("A1"))
MsgBox kw
End Sub
Function DINKw(dat As Date) As Integer
Dim kw As Integer
kw = Int((dat - DateSerial(Year(dat), 1, 1) + _
((Weekday(DateSerial(Year(dat), 1, 1)) + 1) _
Mod 7) - 3) / 7) + 1
If kw = 0 Then
kw = DINKw(DateSerial(Year(dat) - 1, 12, 31))
ElseIf kw = 53 And (Weekday(DateSerial(Year(dat), 12, 31)) - 1) Mod 7 <= 3 Then
kw = 1
End If
DINKw = kw
End Function
