vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
Anzahl Wochen im Jahr mit GregorianCalendar 
Autor: Jumula
Datum: 06.04.05 11:02
Hallo,
ich möchte für ein vorgegebenes Jahr die Anzahl der Wochen rausfinden.
Bin eigentlich auch davon überzeugt,dass es geht..aber kriege leider dauernd was falsches raus.
Hier meine angewendete Methode: 

Public Function getANZWOCHEN(ByVal jahr As String) As Long
        Dim d As New Date
        d = CDate("31.12." & jahr)
 
        Dim cal As New System.Globalization.GregorianCalendar( _
          Globalization.GregorianCalendarTypes.Localized)
        getANZWOCHEN = CLng(cal.GetWeekOfYear(d, _
        Globalization.CalendarWeekRule.FirstFourDayWeek, DayOfWeek.Monday))
 
    End Function
Habe außerdem auch noch diese Version probiert..also ohne übergabe eines Calendartypes.... 

Public Function getANZWOCHEN(ByVal jahr As String) As Long
        Dim d As New Date
        d = CDate("31.12." & jahr)
 
        Dim cal As New System.Globalization.GregorianCalendar
        getANZWOCHEN = CLng(cal.GetWeekOfYear(d, _
          Globalization.CalendarWeekRule.FirstFourDayWeek, DayOfWeek.Monday))
 
    End Function
Naja. Hier die Ergebnisse (Jahr, RICHTIG, Programmergebnis)

1999 52 52
2000 52 52
2001 52 53
2002 52 53
2002 52 53
2003 52 53
2004 53 53
2005 53 53

So, welche Einstellung ist falsch? Oder welcher CalendarType ist denn richtig für Deutschland?
Auf jedenfall bin ich mir sicher dass FirstFourDayWeek richtig ist. Und Monday sollte auch stimmen.

Kennt sich jemand damit aus?
Vielen Dank!

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Anzahl Wochen im Jahr mit GregorianCalendar886Jumula06.04.05 11:02
Re: Anzahl Wochen im Jahr mit GregorianCalendar659Jumula06.04.05 11:04
Re: Anzahl Wochen im Jahr mit GregorianCalendar700Jumula06.04.05 13:53
Re: Anzahl Wochen im Jahr mit GregorianCalendar626Jumula06.04.05 14:02

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 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