Wie ermittelt man die Kalenderwoche eines beliebigen Datums? Wenn man der VB-Hilfe Glauben schenkt, sollte dies mit der Format-Funktion ein Leichtes sein: Dim nWeek As Integer nWeek = Format$(vDate, "ww", vbMonday, vbFirstFourDays) Im ersten Moment scheint es so, als würde die Kalenderwoche korrekt ermittelt werden: ' Beispiel: 22.03.04 nWeek = Format$(DateSerial(2004, 3, 22), "ww", vbMonday, vbFirstFourDays) MsgBox CStr(nWeek) ' ' Ergebnis: 13 - KORREKT! ' Beispiel: 31.12.07 nWeek = Format$(DateSerial(2007, 12, 31), "ww", vbMonday, vbFirstFourDays) MsgBox CStr(nWeek) ' ' Ergebnis: 53 - FALSCH! Korrekt wäre 1!!! ' Beispiel: 29.12.03 nWeek = Format$(DateSerial(2003, 12, 29), "ww", vbMonday, vbFirstFourDays) MsgBox CStr(nWeek) ' ' Ergebnis: 53 - FALSCH! Korrekt wäre 1!!! Fazit: Nachfolgender Tipp errechnet die Kalenderwoche auch dann korrekt, wenn es sich um die letzte Woche eines Kalenderjahres handelt. Das Problem wird umgangen, indem man das Datum des Dienstags in dieser Woche ermittle (also losgelöst vom Montag und vom Jahresletzten) und daran die Datepart-Funktion ausführt. Dann klappt's und das Ergebnis muss ggf. nur noch auf die jeweilige Wochendarstellung zurückgerechnet werden. ' *** Ermittelt die Kalenderwoche mit dem zur Kalenderwoche gehörigem Jahr ' *** fConvKW wird in der Form YYYYWW zurückgegeben *** Public Function fConvKW(ByVal ZuKonvertDat As Date) As String ' PROBLEM: ' DatePart - in der uns üblichen Arbeitsweise ' DatePart("ww", Datum, vbMonday, vbFirstFourDays) - ' wirft für folgende Daten folgende Werte aus ' So, 28.12.2003 oder 30.12.2007 -> KW52 -> richtig ' Mo, 29.12.2003 oder 31.12.2007 -> KW53 -> QUATSCH ' Di, 30.12.2003 oder 01.01.2008 -> KW01 -> richtig ' deshalb bestimme ich vorsichtshalber die Kalenderwoche ' des Dienstags ?!?!?!?!?! If Weekday(ZuKonvertDat) = vbMonday Then _ ZuKonvertDat = ZuKonvertDat + 1 fConvKW = DatePart("ww", ZuKonvertDat, vbMonday, vbFirstFourDays) ' Anpassung des Jahres und Ergänzung der Null ' (in den Kalenderwochen 01, 52 und 53 kann das Jahr des Datums ' anders sein als das Jahr der zugehörigen Kalenderwoche. ' So liegt der 31.12.2001 in KW01/2002) If fConvKW < 10 Then fConvKW = Year(ZuKonvertDat + 6) & "0" & fConvKW Else fConvKW = Year(ZuKonvertDat - 6) & fConvKW End If End Function Beispiel: ' Beispiel: 29.12.03 Dim sKW As String sKW = fConvKW(CDate("29.12.03")) MsgBox Right$(sKW, 2) & "/" & Left$(sKW, 4) ' ' Ergebnis: 01/2004 - KORREKT! Dieser Tipp wurde bereits 28.022 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
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. Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 sevWizard für VB5/6 Professionelle Assistenten im Handumdrehen Erstellen Sie eigene Assistenten (Wizards) im Look & Feel von Windows 2000/XP - mit allem Komfort und zwar in Windeseile :-) |
||||||||||||||||
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. |