| |
| 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! | Fragen zu Tipps & Tricks und Workshops im vb@rchivTipp 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.975 | 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 |
|
|
TOP! Unser Nr. 1
Neu! sevDataGrid 3.0
Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|