Is er een formule om het verschil in weken aan te geven tussen 2 datums?
Het is me wel gelukt om dit te doen als de datums in het zelfde jaar liggen, maar om het te bereken tussen datums in verschillende jaren lukt me niet. Ik moet gebruik maken van iso-week nummers.
Bijvoorbaat dank
maak gebruik van de volgende formule:
Het is me wel gelukt om dit te doen als de datums in het zelfde jaar liggen, maar om het te bereken tussen datums in verschillende jaren lukt me niet. Ik moet gebruik maken van iso-week nummers.
Bijvoorbaat dank
maak gebruik van de volgende formule:
Code:
Public Function IsoWeekNumber(d1 As Date) As Integer
Dim d2 As Long
d2 = DateSerial(Year(d1 - WeekDay(d1 - 1) + 4), 1, 3)
IsoWeekNumber = Int((d1 - d2 + WeekDay(d2) + 5) / 7)
End Function