Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
528to532
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
528to532
528to532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kalenderwochen () Problem

Kalenderwochen () Problem
09.12.2004 11:41:44
Falk
Hallo alle zusammen,
folgendes: in A1 steht das Datum 30.09.2005 in B2 die Funktion =Kalenderwoche(A1;1) ergibt 40.
Aber laut Kalender ist der 30.09.05 in der 39 Kalenderwoche
Auch die Umstellung auf "1904" hat kein richtiges Ergebnis gebracht.
Kann mir einer weiterhelfen?
Grüße
Falk
Danke im voraus ...
Ach ja, mit Kalenderwoche ()-1 bekomme ich zwar das richtige Ergebnis, aber ich möchte, das die Funktion richtig rechnet!

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kalenderwochen () Problem
=Peter=
1976 wurde der Wochenbeginn auf Montag festgelegt. Die erste Woche des Jahres ist definiert als die Woche, in die mindestens 4 der ersten 7 Januartage fallen (also die Woche, in der der 4. Januar liegt) -> DIN 1355 (z.B. 1981). Dies entspricht der internationalen Norm ISO 8601 (1988); übernommen von der EU als EN 28601 (1992) und in Deutschland als DIN EN 28601 (1993) umgesetzt. Demzufolge haben die meisten Jahre 52 Wochen. Der jährliche überzählige Tag sowie die Schaltjahre führen aber dazu, dass es alle 5 bis 6 Jahre ein Jahr mit 53 Wochen gibt, so die Jahre 1992, 1998, 2004, 2009, 2015.
Da es keine "halben" Wochen gibt, gehören manche Tage ihrer Kalenderwoche nach zu einem anderen Jahr als es der üblichen Datumsangabe entspricht (z.B. gehört der 2. Jan. 2000 noch zur 52. Kalenderwoche 1999).
Lösung: das Datum (größer 31.12.1900) steht in A1
=KÜRZEN((A1-WOCHENTAG(A1;2)-DATUM(JAHR(A1+4-WOCHENTAG(A1;2));1;-10))/7)
Man kann auch eine benutzerdefinierte Funktion verweden (in ein Modul einfügen)

Function DIN_KW(Datum As Date) As Integer
'   von Christoph Kremer, Aachen
Dim t&
t = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1)
DIN_KW = (Datum - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1
End Function

HTH
Gruss
Peter
Anzeige
AW: Kalenderwochen () Problem
Josef
Hallo falk!
Die Funktion Kalenderwoche() rechnet nach US-Standard!
Nimm diese Formel:
~f~
=KÜRZEN((A1-DATUM(JAHR(A1+3-REST(A1-2;7));1;REST(A1-2;7)-9))/7)
Gruß Sepp
... Danke Euch Beiden hat geholfen ...
09.12.2004 12:56:55
Falk
Danke

157 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige