| |
| 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.970 | 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 |
|
|
sevISDN 1.0
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats sevGraph (VB/VBA)
Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Weitere 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
|
|