Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Kalenderwoche nach DIN1355 mit/ohne Jahreszahl
zurück: Dateien mit der passenden Anwendung öffnen, drucken usw. weiter: Formularreferenzen auf UFOs/UFO-Container vereinfacht Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Tutorial Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
JMalberg
Es wird so langsam sinnig ...


Verfasst am:
28. Jan 2012, 19:54
Rufname:
Wohnort: Saarbrücken

Kalenderwoche nach DIN1355 mit/ohne Jahreszahl - Kalenderwoche nach DIN1355 mit/ohne Jahreszahl

Nach oben
       Version: (keine Angabe möglich)

Hier eine Funktion zur Berechnung der Kalenderwoche und wahlweise Ausgabe im Format WW oder JJJJWW:
Code:
Public Function fnISOWeekYear(AnyDate As Date, Optional IsYearWeek As Boolean = True) As Long
    Dim bytWeek As Byte
    Dim lngFirstThursday As Long
   
    lngFirstThursday = DateSerial(Year(AnyDate - Weekday(AnyDate - 1) + 4), 1, 3)
    bytWeek = Int((AnyDate - lngFirstThursday + Weekday(lngFirstThursday) + 5) / 7)

    If IsYearWeek Then
        If Month(AnyDate) = 12 And bytWeek = 1 Then
            fnISOWeekYear= (Year(AnyDate) + 1) * 100 + bytWeek
          Else
            If Weekday(AnyDate) > vbSunday And Weekday(AnyDate) < vbThursday Then
                fnISOWeekYear= (Year(AnyDate)) * 100 + bytWeek
              Else
                fnISOWeekYear= (Year(CDate(lngFirstThursday))) * 100 + bytWeek
            End If
        End If
      Else
        fnISOWeekYear= bytWeek
    End If
End Function
Die Jahreszahl muss explizit getrennt von der Woche berechnet werden da zB der So 1.1.2012 noch zur 52.Woche 2011 zählt.

Die Funktion entstand aus der Diskussion hier: Wie ist die Kalenderwoche des 31.12.2012?

Ein Dank an alle Mithelfer.

_________________
Gruß
Jürgen

Der Unterschied zwischen Theorie und Praxis ist in der Praxis größer als in der Theorie!
jens05
Moderator


Verfasst am:
28. Jan 2012, 21:50
Rufname:
Wohnort: ~~~~~

AW: Kalenderwoche nach DIN1355 mit/ohne Jahreszahl - AW: Kalenderwoche nach DIN1355 mit/ohne Jahreszahl

Nach oben
       Version: (keine Angabe möglich)

{Dieser Beitrag nimmt das Thema aus den unbeantworteten Themen heraus}
JMalberg
Es wird so langsam sinnig ...


Verfasst am:
08. Jul 2013, 12:52
Rufname:
Wohnort: Saarbrücken


AW: Kalenderwoche nach DIN1355 mit/ohne Jahreszahl - AW: Kalenderwoche nach DIN1355 mit/ohne Jahreszahl

Nach oben
       Version: (keine Angabe möglich)

So, mal die letzten 50 Jahre nachgeprüft. Zu den folgenden Kalendertagen gibt es Probleme mit DatePart
Code:
IDDatum   fnISOWeekYear   WeekDatepart
Mo 30.12.2019   1   53
Mo 31.12.2007   1   53
Mo 29.12.2003   1   53
Mo 30.12.1991   1   53
Mo 31.12.1979   1   53
Mo 29.12.1975   1   53
Mo 30.12.1963   1   53

_________________
Gruß
Jürgen

Der Unterschied zwischen Theorie und Praxis ist in der Praxis größer als in der Theorie!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: In einer Abfrage das Datum als Kalenderwoche darstellen? 22 IV 19846 17. Sep 2013, 11:11
Gast150313 In einer Abfrage das Datum als Kalenderwoche darstellen?
Keine neuen Beiträge Access Tabellen & Abfragen: Darstellung Kalenderwoche 14 Jan1980 6650 05. Dez 2012, 14:50
KlausMz Darstellung Kalenderwoche
Keine neuen Beiträge Access Tabellen & Abfragen: Kalenderwoche immer eine voraus 2 nakoda 288 21. Jul 2010, 12:37
nakoda Kalenderwoche immer eine voraus
Keine neuen Beiträge Access Tabellen & Abfragen: Probleme mit Umrechnung Datum in Kalenderwoche 2 Access_newbie111 1413 11. Apr 2009, 15:32
Access_newbie111 Probleme mit Umrechnung Datum in Kalenderwoche
Keine neuen Beiträge Access Tabellen & Abfragen: fortlaufende Nummerierung von der Jahreszahl abhängig 26 jomei 2430 05. Jan 2009, 15:56
jomei fortlaufende Nummerierung von der Jahreszahl abhängig
Keine neuen Beiträge Access Formulare: Kalenderwoche ermitteln 1 levvoo 2729 08. Sep 2008, 15:26
icke___ Kalenderwoche ermitteln
Keine neuen Beiträge Access Formulare: Textfeld nur für Jahreszahl im Formular 4 waldwuffel 393 29. Jul 2008, 10:01
waldwuffel Textfeld nur für Jahreszahl im Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Datumsfunktion die nur die aktuelle Jahreszahl ausgibt 2 azwinzds 2221 06. Mai 2008, 11:54
azwinzds Datumsfunktion die nur die aktuelle Jahreszahl ausgibt
Keine neuen Beiträge Access Tabellen & Abfragen: Einfügen einer Kalenderwoche! 2 Easy091981 3225 15. Feb 2008, 18:39
KlausMz Einfügen einer Kalenderwoche!
Keine neuen Beiträge Access Formulare: Nur Jahreszahl erstellen 5 RainerK 505 14. Feb 2008, 00:35
Nouba Nur Jahreszahl erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: Problem mit Datum bzw. Kalenderwoche nach Jahreswechsel 14 Cinderella_2008 4138 16. Jan 2008, 10:17
Willi Wipp Problem mit Datum bzw. Kalenderwoche nach Jahreswechsel
Keine neuen Beiträge Access Tabellen & Abfragen: Noch was mit dem Datum/Kalenderwoche 1 Markos 401 23. Nov 2007, 13:58
Willi Wipp Noch was mit dem Datum/Kalenderwoche
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP Forum