KW Problem mit Formatierung
27.05.2004 19:19:19
Pit
habe wieder mal ein Problem ...
Ich möchte anhand eines Datums in einer Zelle die Kalenderwoche ausgeben. Nachdem die interne Analysefunktion ja die DIN-KW nicht berücksichtigt, mache ich die Berechnung über die bekannte Funktion.
Der Aufruf in der Ausgabezelle lautet dann =dt_KW(Zelle des Datums)
Jetzt zu meinem Problem:
Die KW soll im Format: KW 22/04 ausgegeben werden. Leider finde ich weder per Zelle, noch per VBA-Aufruf den richtigen Weg. Was ist in der vorletzten Zeile falsch?
bin für jede Anregung zur Lösung des Problems dankbar ...
Function dt_KW(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 = dt_KW(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
dt_KW = "KW " & kw & "/" & Format(Datum, "yy")
End Function
Danke im Voraus
Pit