Eigen formule datum naar 4 wekelijkse periode

[PatrickBunt]

Goedemiddag,

Ik probeer een formule te creëren waarbij ik vanuit een datum het periodenummer kan berekenen. Nu ben ik een heel eind gekomen alleen loop ik tegen het volgende probleem aan. Zodra een jaar 53 weken heeft dan krijg ik als resultaat periode 14. Dit moet echter periode 13 zijn. Hieronder mijn code:

---

Public Function PERIODDAY(DAG As Date) As Integer

Dim DATUM As Long
Dim WEEK As Long

DATUM = DateSerial(Year(DAG - Weekday(DAG - 1) + 4), 1, 3)
WEEK = Int((DAG - DATUM + Weekday(DATUM) + 5) / 7)
PERIODDAY = Int(((WEEK) + 3) / 4)

End Function

---

Heeft iemand een oplossing?
Alvast bedankt
Patrick

 

[VenA]

Zo?

PERIODDAY = Application.Min(13, Int(((WEEK) + 3) / 4))

 

[snb]

@V&A

Gelukkig kent VBA de operator \

 

[snb]

Voor het berekenen van perioden van 28 dagen is het noodzakelijk de eerste dag van de eerste periode te kennen.

Daarna wordt het :

=(vandaag-eerstedag van de eerste periode)\ 28

 

[PatrickBunt]

@ VenA,

Ik heb het getest en het werkt super. Dank je wel voor de snelle oplossing!