Finna sista dagen i månaden

Du finder den første i måneden efter og trækker 1 fra

datNaesteFoerste = cdate("01-" & intMaaned + 1 & "-2006")
SidsteDagIMaaned = dateadd("d",-1,datNaesteFoerste)

Hvis du ud af et større datasæt ønsker af finde sidste registreringsdato i hver måned, som ikke nødvendigvis er det samme som ovenstående løsning, kan denne SQL gøre arbejdet :

SELECT Format([Datum],"mm") AS Maaned, Last(Tabel1.Datum) AS SidstaDag
FROM Tabel1
GROUP BY Format([Datum],"mm");

Oavsett datum skall koden ge den sista dagen i månaden.
Om datum ær #2005-05-16# skall koden ge #2005-05-31#.

Function FindFoersteDag(Dato As Date) As Date
Dim intAar As Integer, intMaaned As Integer
intAar = Year(Dato)
intMaaned = Month(Dato)
FindFoersteDag = CDate("01-" & intMaaned + 1 & "-" & intAar)
FindFoersteDag = DateAdd("d", -1, FindFoersteDag)
End Function

Kald fra Access:

Dim datDato As Date
datDato = FindFoersteDag(#10/16/2006#)
End Sub

FindFoersteDag = CDate("01-" & intMaaned + 1 & "-" & intAar)

der skal selvfølgelig osse bruges dateadd() for at lægge en
måned til ellers vil det gå galt i december

FindFoersteDag = CDate("01-" & dateadd("m",1,intMaaned) & "-" & intAar)