Xojo.Core.Date Fine mese

International Italiano
1

Buongiorno,

Con la classe Date base di xojo ho visto che si pu estrarre l’ultimo giorno del mese semplicemente incrementando il mese e impostando il giorno a zero in questo modo:

Dim d As New Date(2012, 4, 15)								
d.Month=d.Month+1
d.Day=0

Qualcuno sa dirmi se c’ qualche modo per fare la stessa cosa con Xojo.Core.Date?

Grazie
Attilio

2

detta X al tua Xojo.Core.Date, vuoi ottenere la data dell’ultimo giorno del mese.

Il procedimento lo stesso in pratica:
dim dt as new Xojo.Core.DateInterval(0, 1)
X=X+dt //Avanziamo di un mese esatto

dt=new Xojo.Core.DateInterval(0, 0, X.day)
X=X-dt //andiamo indietro dei giorni trascorsi dall’inizio del mese

Ora X la tua data del fine mese richiesto (rispettando anche gli anni bisestili etc. etc.)

3

Grazie Antonio!
Immaginavo funzionasse allo stesso modo per per maggior sicurezza ho preferito chiedere