Beginnen op maandag.

[Smoofert]

Hoi,

Weet iemand de code die ik moet gebruiken om in een veld de maandag van de huidige week geprojecteerd te krijgen?
Het is de bedoeling dat er te aller tijden de maandag in het veld komt te staan.

alvast bedankt.

 

[OctaFish]

Ik gebruik een aantal functies om begin en eind van de week te bepalen in queries en formulieren.

Function BeginVanWeek(Datum As Date)

    BeginVanWeek = Datum - WeekDay(Datum, vbMonday) + 1

End Function

Function EindVanWeek(Datum As Date)

    EindVanWeek = Datum - WeekDay(Datum, vbMonday) + 7

End Function

Function BeginVorigeWeek()

    BeginVorigeWeek = date - WeekDay(date, vbMonday) - 6

End Function

Function EindVorigeWeek()

    EindVorigeWeek = date - WeekDay(date, vbMonday) - 2

End Function

Function BeginDezeWeek()

    BeginDezeWeek = date - WeekDay(date, vbMonday) + 1

End Function

Function EindDezeWeek()

    EindDezeWeek = date - WeekDay(date, vbMonday) + 5

End Function

Function BeginVolgendeWeek()

    BeginVolgendeWeek = date + (8 - WeekDay(date, vbMonday))

End Function

Function EindVolgendeWeek()

    EindVolgendeWeek = date + (12 - WeekDay(date, vbMonday))

End Function

De functie <BeginDezeWeek> geeft altijd een beginmaandag. Bij <BeginVanWeek> kun je een maandag opzoeken op basis van een datum, etc.

 

[Smoofert]

Octafish,

1 woord: geweldig

bedankt weer!