AW: Darstellung der Kalenderwoche
16.09.2005 11:41:10
Dieter
Hallo Tom,
hier die benutzerdefinierten Funktionen dafür
Function KalWo(d)
' Kalenderwoche als Integer-Zahl
Dim Don As Date
Dim Jahr As Integer
Dim Wochen As Integer
Don = d - WeekDay(d, vbMonday) + 4
Jahr = Year(Don)
Wochen = ((Don - DateSerial(Jahr, 1, 1)) \ 7) + 1
KalWo = Wochen
End Function
Function KalWoStr(d)
' Kalenderwoche als String
Dim Don As Date
Dim Jahr As Integer
Dim Wochen As Integer
Don = d - WeekDay(d, vbMonday) + 4
Jahr = Year(Don)
Wochen = ((Don - DateSerial(Jahr, 1, 1)) \ 7) + 1
KalWoStr = CStr(Wochen & "/" & Jahr)
End Function
Habe ich irgendwann mal im Internet gefunden.
Gruß
Dieter