Hoe huidig weeknummer uitvragen

[Merlyn22]

Hi,

Wie kan vertellen hoe ik het nummer van de huidige systeemdatum kan uitvragen.
Dat bv het jaar Year(Date) is, weet ik wel, maar dat werkt met Week niet....

Gr. Mathilde

 

[leofact]

In het nederlands al volgt
http://office.microsoft.com/nl-nl/excel/HA102581001043.aspx
In het engels:
http://www.rondebruin.nl/weeknumber.htm
mvg leo

 

[Merlyn22]

Dankje! Het was voor VBA (sorry, had ik niet vermeld) en aan de volgende code had ik dan ook wat. Ik zet hem er maar bij voor als iemand hier nog eens wat aan heeft.

Public Function IsoWeekNumber(d1 As Date) As Integer
' Attributed to Daniel Maher
Dim d2 As Long
d2 = DateSerial(Year(d1 - WeekDay(d1 - 1) + 4), 1, 3)
IsoWeekNumber = Int((d1 - d2 + WeekDay(d2) + 5) / 7)
End Function