default datum moet een maandag zijn

Status
Niet open voor verdere reacties.

JEPEDEWE

Terugkerende gebruiker
Lid geworden
14 jun 2006
Berichten
1.697
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
 
Met een functie:
Code:
Function BeginVorigeWeek()
    BeginVorigeWeek = Date - WeekDay(Date, vbMonday) - 6
End Function
Deze levert altijd de maandag van de vorige week.
 
moet voor deze week zijn en niet vorige!
merci
jp
 
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 :)

Code:
Function BeginVanWeek(datum As Date)
    BeginVanWeek = datum - WeekDay(datum, vbMonday) + 1
End Function

Code:
Function EindVanWeek(datum As Date)
    EindVanWeek = datum - WeekDay(datum, vbMonday) + 7
End Function

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

Code:
Function EindVorigeWeek()
    EindVorigeWeek = Date - WeekDay(Date, vbMonday) - 2
End Function

Code:
Function BeginDezeWeek()
    BeginDezeWeek = Date - WeekDay(Date, vbMonday) + 1
End Function

Code:
Function EindDezeWeek()
    EindDezeWeek = Date - WeekDay(Date, vbMonday) + 5
End Function

Code:
Function BeginVolgendeWeek()
    BeginVolgendeWeek = Date + (8 - WeekDay(Date, vbMonday))
End Function

Code:
Function EindVolgendeWeek()
    EindVolgendeWeek = Date + (12 - WeekDay(Date, vbMonday))
End Function
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan