Datum zu Kalenderwoche in VB.NET

Private Function StartDatumDerKW(ByVal Jahr As Integer, ByVal KW As Integer) As DateTime
' > der vierte Januar des gegebenen Jahres wird erst mal benötigt
Dim dteStartTag As New DateTime(Jahr, 1, 4)
' > hole den ersten Wochentag der ersten Woche
Dim intWochentag As Integer = ((Int(dteStartTag.DayOfWeek) + 6) Mod 7) + 1
' > die Kalenderwoche beginnt aber eventuell n Tage vorher
Dim dteErsterTag As DateTime = dteStartTag.AddDays(1 - intWochentag)
Return CDate(dteErsterTag.AddDays((KW - 1) * 7))
End Function