Laatste dag van een maand

[Sjoef]

Hallo, ik heb nog een vraagje. Hoe kan ik de laatste dag van een maand zien. Ik moet de laatste dag van de lopende maand hebben als de datum voor de 15e is anders de laatste dag van de volgende maand. Alvast weer bedankt voor het meedenken.

Sjoef

 

[Sjoef]

Hebbes.......en o zo simpel.

If Dag < "15" Then
Datum = DateSerial(Year(Date), Month(Date) + 1, 0)
Else
Datum = DateSerial(Year(Date), Month(Date) + 2, 0)
End If