Hi,
Also, der Bug geht noch einen Schritt weiter ist aber an sich nicht sooo
schlimm.
Ich w�rde von der "if year=2003"-Methode stark abraten.
Zum einen kommt der Bug nur am 29.12 vor (Ab morgen stimmts schon wieder),
die �berpr�fung ist einfach und zum anderen ist 2003 auch keine
Ausnaheerscheinung(2008 das n�chste mal - und ich glaub nicht -wenn Dein
System bis dahin noch l�uft - dass Du dann immer noch dran denkst *g*).
Der Bug ist an sich schon sehr lange bekannt...
Kl. Funktion:
Function GetRealWeekOfYear(ByVal d As Date) As Integer
Dim ret As Integer
ret = DatePart(DateInterval.WeekOfYear, d, FirstDayOfWeek.Monday,
FirstWeekOfYear.FirstFourDays)
If ret = 53 AndAlso DatePart(DateInterval.WeekOfYear, d.AddDays(7),
FirstDayOfWeek.Monday, FirstWeekOfYear.FirstFourDays) = 2 Then
ret = 1
End If
Return ret
End Function
Mit dem Calendar-Objekt und "getWeekOfYear()" funktionierts genauso.
Viele Gr��e,
DateTime never .. Wolfgang
http://www.vbwelt.de/
_______________________________________________
Asp.net mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/asp.net
