[VB6] Ultimo giorno del mese

[pieromont]

Come faccio a determinare dato un mese dell'anno, l'ultimo giorno del mese?
Ciao

[chico62]

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

Ciauz

Chico

[pieromont]

thanks!

[chico62]

Di nulla....

(ricordati che nel codice che ti ho postato, se MyDate è 01/01/3600 UltimoGiorno dovrà essere 28, non 29..... )

Chico