c't 7/11
Function DinKW(Optional dat As Date) As Integer
Dim a As Integer
If dat = 0 Then dat = Date
a = Int((dat - DateSerial(Year(dat), 1, 1) + _
((Weekday(DateSerial(Year(dat), 1, 1)) + 1) _
Mod 7) - 3) / 7) + 1
If a = 0 Then
a = DinKW(DateSerial(Year(dat) - 1, 12, 31))
ElseIf a = 53 And (Weekday(DateSerial(Year(dat), _
12, 31)) -1) Mod 7 <= 3 Then
a = 1
End If
DinKW = a
End Function
RSS=DinKW(A1). Lässt man den Parameter weg, liefert DinKW() die Kalenderwoche des aktuellen Datums zurück.
(db)Version zum Drucken | Per E-Mail versenden | Heft bestellen
Permalink: http://heise.de/-1201497
Das aktuelle Heft ist jetzt im Handel erhältlich.
Ältere Artikel können Sie über unser Zeitschriften-Archiv bestellen.
