Hej alla!

Jag har lite problem med datum

Det är så att jag ska göra ett urval med hjälp av datum veckovis.
Det jag behöver kunna göra är följande

Skicka in dagens datum och få tillbaka vilket datum denna vecka startar på
Alltså om vi skickar in dagens datum som är 2006-01-17 (som är en tisdag) så vill vi ha tillbaka
2006-01-16 som är måndagens datum.

har försökt med detta men den returnerar dagens datum
Dim mondayDate As Date
mondayDate = Format(Date, , vbMonday)

Tack på förhand!!!

Maria

Här är en funktion som testar om dagens datum ner till (dagens datum - 6) är en måndag.
När måndag påträffas returneras datumet.

<code>
Public Function GetMonday(inDate As Date) As Date
Dim dayCounter As Long
Dim testDate As Date

For dayCounter = 0 To 6
testDate = inDate - dayCounter
If Weekday(testDate, vbMonday) = 1 Then
GetMonday = testDate
Exit Function
End If
Next
End Function
</code>

Tack så mycket!!!

Det funkar perfekt, precis vad jag ville ha!

Maria :-)

Varför behövs en loop?

Public Function GetMonday(Value As Date) As Date
    GetMonday = DateAdd("d", 1 - WeekDay(Value, vbMonday), Value) 
End Function

Som du visar så påpassligt, så behövs det inte nödvändigtvis.