Datum als KW darstellen

Hi ich bins wieder

Ihr merkt ich hab ein neuen job und muß gerade einiges Lernen.

Wie bekomme ich ein Datum als Kalenderoche umgewandel entweder als formel oder in VBA.

Danke im vorraus


Kinki

Ich will net unfair sein, da das Forum echt geil ist, aber es gibt ein Zauberwort und das heißt: GOOGELN
da findet man dann folgende VBA-Funktion:

Function dt_Kalenderwoche(dat As Date) As Integer
Dim a As Integer
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 = dt_Kalenderwoche(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
dt_Kalenderwoche = a
End Function

cu
findus

upppps

Trozdem Danke

Kinki :be: :be:

Original geschrieben von Findus
Ich will net unfair sein, da das Forum echt geil ist, aber es gibt ein Zauberwort und das heißt: GOOGELN

Zum Vergrößern anklicken....

Das hat mit unfair nichts zu tun. Das Forum ist dafür da das hier Fragen gestellt werden können und diese Frage ist doch völlig ok. Hier sind auch viele Leser und die haben dann auch was davon und über die Suche findet man das hier auch mal wieder.

Es spricht also aber nichts dagegen regelmäßig die Suche zu benutzen ... !!!

Gruß cookie