---

Her er 2 funktioner, den ene giver den første dato i måneden. Og den anden giver den sidste dato i måneden.

FirstOfMonth(#2/24/99#,0) '' retunere datoen 2/1/99

FirstOfMonth(#3/23/99#,0) '' retunere datoen 3/31/99

////////////////////////////////////////////////////////
Public Function FirstOfMonth(Optional vdatBase As Variant) As Date

Dim datBase As Date

If Not IsMissing(vdatBase) Then
datBase = CDate(vdatBase)
Else
datBase = Date
End If

FirstOfMonth = DateSerial(Year(datBase), Month(datBase) , 1)

End Function

////////////////////////////////////////////////////////
Public Function LastOfMonth(Optional vdatBase As Variant) As Date

Dim datBase As Date
Dim iOffset As Integer

If Not IsMissing(vdatBase) Then
datBase = CDate(vdatBase)
Else
datBase = Date
End If

LastOfMonth = DateSerial(Year(datBase), Month(datBase) + 1, 0)

End Function

---

---

---

---

Eftersom du ikke er logget ind i systemet, kan du ikke lave en bedømmelse til dette tip.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.