[VB6] Ultimo giorno del mese

[chico62]

MyDate = "10/02/2006"
UltimoGiorno = DateDiff("d", DateSerial(Year(MyDate), Month(MyDate), 1), DateSerial(Year(MyDate), Month(MyDate) + 1, 1))

Ciauz

Chico