Hoi.

Onderstaande functie haalt de juiste weeknummer volgens NEN 2772 uit een bepaalde datum.

Ik heb deze functie gemaakt uit een excel formule.

Deze omgezet naar een VB functie omdat ik op het internet geen goede fomule/functie kon geven.

Heeft me wel de nodige bloed zweet en tranen gekost maar werkt voor zover ik het kan zien perfect.

Groeten.

Erich.

Edit (25-01-2010):

  De Excel formule zag er zo uit:

      =INTEGER((A1-DATUM(JAAR(A1-WEEKDAG(A1-1)+4);1;3)+WEEKDAG(DATUM(JAAR(A1-WEEKDAG(A1-1)+4);1;3))+5)/7)

En ik heb er nog een paar type fouten uitgehaald.
In het onderwerp is de tekst 'jaar' aangepast naar 'datum' aangezien het om een bepaalde datum ging en niet direct een jaar.

Code:

Public Function GetWeekNummer(ByVal dtDatum As Date) As Integer
    Dim dtNieuweDatum As Date
    Dim iWeekNummer As Integer

    dtNieuweDatum = New Date(DateSerial(dtDatum.Year, _
                    dtDatum.Month, _
                    (dtDatum.Day - (DateAdd(DateInterval.Weekday, -1, dtDatum).DayOfWeek + 1)) + 4).Year, _
                    1, _
                    3)

    iWeekNummer = Fix((DateDiff(DateInterval.Day, dtNieuweDatum, dtDatum) + Weekday(dtNieuweDatum) + 5) / 7)

    Return iWeekNummer
  End Function