fejl ved ugenummer

Der kan godt være 53 uger på et år - men 2003 er vist ikke sådan et år (kan ikke lige huske reglen :)

har selv løst det..
det er åbenbart torsdag der afgører ugenumret...
så hvis andre skulle få samme problem kan i se løsningen her:
    Public Function getWeekNumber(ByVal org_date As Date) As Integer
        Dim New_Date As Date
        Dim weekday As Integer = DatePart(DateInterval.Weekday, org_date, FirstDayOfWeek.Monday, FirstWeekOfYear.FirstFourDays)
        Dim value As Integer = 0

        value = (4 - weekday)
        New_Date = DateAdd(DateInterval.DayOfYear, value, org_date)
        Return DatePart(DateInterval.WeekOfYear, New_Date, FirstDayOfWeek.Monday, FirstWeekOfYear.FirstFourDays)
    End Function

der er en fejl i MS's udregning af uge... som beskrevet her:
http://support.microsoft.com/default.aspx?scid=kb;EN-US;q200299

her havde vi en laang diskussion om uger osv og kom frem til den løsning der virker i alm VB (ikke .et) men der er mange paraleller
http://www.eksperten.dk/spm/406685

Ja, den side har jeg også set..
Jeg tror jeg holder mig til min egen løsning.. :o)