default datum moet een maandag zijn

[JEPEDEWE]

hallo
Als ik nu een form open dan ken ik voor een startveld de waarde date -6 toe
voor vandaag krijg ik de datum van vorige dinsdag
mijn startveld moet echter ALTIJD de datum van vorige maandag zijn
hoe ga ik tewerk zodat het startveld altijd op vorige maandag gezet wordt ongeacht welke dag ik nu ben?
merci

jp

 

[OctaFish]

Met een functie:

Function BeginVorigeWeek()
    BeginVorigeWeek = Date - WeekDay(Date, vbMonday) - 6
End Function

Deze levert altijd de maandag van de vorige week.

 

[JEPEDEWE]

moet voor deze week zijn en niet vorige!
merci
jp

 

[OctaFish]

Dan had je de vraag anders moeten stellen, want bij 'vorige maandag' denk ik toch echt aan de maandag van vorige week Maar niet getreurd, ik heb functies voor zo'n beetje elke wens die je kan verzinnen

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

 

[JEPEDEWE]

opgelost
merci
(weer eens)