In diesem Forum haben Sie die Möglichkeit Kommentare, Fragen und Verbesserungsvorschläge zu den im vb@rchiv gelisteten Tipps und Workshops zu posten. Hinweis: Ein neues Thema kann immer nur über die jeweilige Tipps & Tricks bzw. Workshop Seite eröffnet werden!

Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Tipp 740: Wochendatum anhand Kalenderwoche ermitteln
Autor: faherrmann
Tipp anzeigenDatum: 04.09.14 12:27
Moin, auch wenn der Tipp uralt ist, ein paar unentwegte VB6ler scheinen ja noch zu existieren...;) Eine Kleinigkeit, über die ich eben gestolpert bin: Die Zeile nCurWeek = Val(Format$(vStart, "ww", vbMonday)) sollte durch diese ersetzt werden: nCurWeek = Val(Format$(vStart, "ww", vbMonday, vbUseSystem)) Hintergrund: Hierzulande ist als erste Kalenderwoche im Jahr diejenige definiert, die mindestens 4 Tage des betroffenen Jahres umfasst, der Standard bei vb6 ist - aus welchen Gründen aber nicht die Einstellung des Systems, sondern die Woche, in die der 1. Januar fällt. Mit dem Code der hier gezeigten Funktion, tritt damit in der folgenden kleinen Zeitreihe 2021 der erste Fehler auf... nCurWeek = Val(Format$(vStart, "ww", vbMonday)) Montag der ersten KW im Jahr 2014: 30.12.2013 Montag der ersten KW im Jahr 2015: 29.12.2014 Montag der ersten KW im Jahr 2016: 28.12.2015 Montag der ersten KW im Jahr 2017: 26.12.2016 Montag der ersten KW im Jahr 2018: 01.01.2018 Montag der ersten KW im Jahr 2019: 31.12.2018 Montag der ersten KW im Jahr 2020: 30.12.2019 Montag der ersten KW im Jahr 2021: 28.12.2020 Mit nCurWeek = Val(Format$(vStart, "ww", vbMonday, vbUseSystem)) wird als Montag der ersten KW im Jahr 2021 korrekt der 04.01.2021 ausgewiesen, da die Vorwoche weniger als vier Tage des Jahres 2021 umfasst...) Montag der ersten KW im Jahr 2014: 30.12.2013 Montag der ersten KW im Jahr 2015: 29.12.2014 Montag der ersten KW im Jahr 2016: 04.01.2016 Montag der ersten KW im Jahr 2017: 02.01.2017 Montag der ersten KW im Jahr 2018: 01.01.2018 Montag der ersten KW im Jahr 2019: 31.12.2018 Montag der ersten KW im Jahr 2020: 30.12.2019 Montag der ersten KW im Jahr 2021: 04.01.2021 Lg, Falk Beitrag wurde zuletzt am 04.09.14 um 12:28:11 editiert.

Tipp 740: Wochendatum anhand Kalenderwoche ermitteln

3.968

faherrmann

04.09.14 12:27

Sie sind nicht angemeldet! Um einen neuen Beitrag schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen