=Kürzen((A2-Wochentag(A2;2)-Datum(Jahr(A2+4-Wochentag(A2;2));1;-10))/7)
Danke für die Hilfe
Uwe
181. Kalenderwoche nach DIN
Function DINKwoche(Datum)
Dim tmp
tmp = DateSerial(Year(Datum + (8 - WeekDay(Datum)) Mod 7 - 3), 1, 1)
DINKwoche = ((Datum - tmp - 3 + (WeekDay(tmp) + 1) Mod 7)) \ 7 + 1
End Function
Diese Funktion stammt von Christoph Kremer.
Zweite Möglichkeit:
Die nachfolgende Funktion hat vielleicht einen Fehler bei Jahresende.
Function kw(Datum As Date) As Single
Dim i%
If Weekday(Datum) = 1 Then i = 1 Else i = 0
kw = Format(Datum, "ww", , vbFirstFourDays) - i
End Function
letzte KW im Jahr feststellen
Sub kw()
Dim Kalenderwoche As Integer
Dim Testtag as Date
Testtag = CDate("31.12." & "1998")
Kalenderwoche = Int((Testtag - DateSerial(Year(Testtag), 1, 1) + ((WeekDay(DateSerial(Year(Testtag), 1, 1)) + 1) Mod 7) - 3) / 7) + 1
If Kalenderwoche = 0 Then
Kalenderwoche = DateSerial(Year(Testtag) - 1, 12, 31)
ElseIf Kalenderwoche = 53 And (WeekDay(DateSerial(Year(Testtag), 12, 31)) - 1) Mod 7 <= 3 Then
Kalenderwoche = 52
End If
End Sub
Oder im Register
Warum muß es so eine komlizierte Formel sein Erklärung von WF
Die Funktion KALENDERWOCHE rechnet falsch oder sagen wir es gnädiger: nach amerikanischem Standard. Der 01.01.2000 z.B. ist laut DIN die 52. KW des Jahres 1999; - in den USA die erste im Jahre 2000. Das hab ich mir irgendwann mal kopiert:
Erst 1976 wurde der Wochenbeginn auf Montag festgelegt. Die erste Woche des Jahres ist definiert als die Woche,in die mindestens 4 Tage fallen. Beides = DIN 1355 (1974) Entspricht der internationalen Norm ISO 8601 (1988); -übernommen von der EU als EN 28601 (1992) und in Deutschland als DIN EN 28601 (1993) umgesetzt.
=KÜRZEN((G6-WOCHENTAG(G6;2)-DATUM(JAHR(G6+4-WOCHENTAG(G6;2));1;-10))/7)&". KW"
von WF
Gruß Hajo
das ist doch richtig so!
01.01.2005 = KW 53/2004
Gruß
Sigi
Dank für die prompte Hilfe - waren ja interessante Infos. Habe immer gedacht, "unser" Jahr hätte max. 52 Wochen.
Gruß
Uwe
...Folgende Möglichkeit ist ja ganz nett, versagt....;-)))
Das ist immerhin ne Formel von unserem absoluten Excel-Ober-Guru WF.;-)
Wenn du künftig nen Link auf www.excelformeln.de als Antwort bekommst oder besser noch eine direkte Antwort von WF:
Schätze dich einfach glücklich;-)
So lernt man dann auch, wie unsere Datumsrechnung funktioniert...
Mit schmunzelndem Gruß
Boris