Data retrodatata rispetto a oggi

Per avere una data retrodatata rispetto ad oggi:
dim today as new date
dim retroDate as date
retroDate = new Date(today.Year, today.Month, today.day-40)
ho il problema che retroDate si ferma al 1 giorno del mese corrente.
Come devo fare ? Forse devo agire sui secondi ?

Ciao Massimo,

per sottrarre o aggiungere un periodo a una data, puoi usare la conversione in secondi come nel esempio:

dim today as new date dim retroDate as date retroDate = new Date(today.Year, today.Month, today.day) retroDate.TotalSeconds = retroDate.TotalSeconds - (40 * 24 * 60 * 60) '40 giorni in secondi TextField1.text = retroDate.LongDate

Saluti

Ok Grazie

Puoi anche fare:

dim today as new date dim retroDate as date retroDate = new Date(today.Year, today.Month, today.day) retroDate.day=retroDate.day-40

Non puoi farlo nel constructor (che appunto limita la data ad un intero positivo)

Ah ecco perch.
Grazie Antonio