week van het jaar

[djpaulski]

Hallo,

Ik wil automatisch de week van het jaar invullen in mijn kolom, het liefst aan de hand van een vba.

MvG Paulski

 

[OctaFish]

Dan heb je een functie nodig:

Public Function WeekNummer(D1 As Date) As Integer
Dim d2 As Long
   
   d2 = DateSerial(Year(d1 - Weekday(d1 - 1) + 4), 1, 3)
   WeekNummer = Int((d1 - d2 + Weekday(d2) + 5) / 7)

End Function