Kan man på något sätt få reda på vilken datum som är den sista i månaden? I vilken månad/år som helst ... Gör en kalender och behöver det där ...

Detta exempel ta reda det sista datumet i angiven månad. I exemplet nedan är den tredje juli 1995 angiven. Du får alltså ange även ett dagvärde i önskad månad.

<code>
Private Sub Command1_Click()
Dim LastDay As Variant
Dim FirstDay As Variant
Dim ThisDate As Variant
text1.TEXT = ""
ThisDate = DateValue("July 3, 1995")
FirstDay = MonthBegin(ThisDate)
text1.TEXT = Str$(FirstDay) & Chr$(13) & Chr$(10)
LastDay = MonthEnd(ThisDate)
text1.TEXT = text1.TEXT & Str$(LastDay)
End Sub


Function MonthBegin(vbdate As Variant) As Variant
MonthBegin = DateSerial(Year(vbdate), Month(vbdate), 1)
End Function

Function MonthEnd(vbdate As Variant) As Variant
MonthEnd = DateSerial(Year(vbdate), Month(vbdate) + 1, 0)
End Function

</code>

än får tacka, än får tacka .... :)