Home
Impressum
Kontakt
News
Suche

Was ist hier los?

Besucher: 1413781
Vorlagen, Muster und Ratgeber zum Download

Heise News

Nachrichten nicht nur aus der Welt der Computer
PageRank Verifizierung www.officetipps.net
Home arrow Excel arrow Pivottabellen arrow Excel arrow Kalenderwoche per Code/Formel


Kalenderwoche per Code/Formel PDF Drucken E-Mail
Benutzer Bewertung: / 20
SchlechtSehr gut 
Geschrieben von Horst Schulte   
Samstag, 30. September 2006 
Image 
Aus dem ehemaligen Forum von Officetipps.net
Autor war: Hajo Ziplies (MVP für Excel)

Function KALENDERWOCHE_DIN(datum As Date) As Integer
'    von Christoph Kremer, Aachen
'    Berechnet die KW nach DIN 1355
    Dim t&
    t = DateSerial(Year(datum + (8 - Weekday(datum)) Mod 7 - 3), 1, 1)
    KALENDERWOCHE_DIN = (datum - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1
End Function

Tabelle1
  A B
23 31.12.07 1
Formeln der Tabelle
B23 : =KALENDERWOCHE_DIN(A23)
 



Tabelle1
  G H
6 31.12.2007 1. KW
Formeln der Tabelle
H6 : =KÜRZEN((G6-WOCHENTAG(G6;2)-DATUM(JAHR(G6+4-WOCHENTAG(G6;2));1;-10))/7)&". KW"


Erklärung von WF Warum muß es so eine komplizierte Formel sein? 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.
Letzte Aktualisierung ( Freitag, 20. Oktober 2006 )
 
< Zurück   Weiter >
[ Zurück ]