Ultimo e primo giorno del mese precedente e successivo

[wegawhite]

Ciao a tutti.

Ho necessità di sapere se in ASP classico è possibile risalire all'ultimo ed al primo giorno del mese precedente rispetto alla data attuale.

La stessa cosa per risalire all'ultimo ed al primo giorno del mese successivo rispetto alla data attuale.

Se si, dove posso trovare un tutorial ?
Grazie

[fraude]

dtmDate = Date()
EndOfLastMonth = DateSerial(Year(dtmDate), Month(dtmDate), 0)
EndOfMonth = DateSerial(Year(dtmDate), Month(dtmDate) + 1, 0)
FirstOfLastMonth = DateSerial(Year(dtmDate), Month(dtmDate) - 1, 1)
FirstOfNextMonth = DateSerial(Year(dtmDate), Month(dtmDate) + 1, 1)
EndOfNextMonth = DateSerial(Year(dtmDate), Month(dtmDate) + 2, 0)
FirstOfThisMonth = DateSerial(Year(dtmDate), Month(dtmDate), 1)
SixMonthsAgo = DateSerial(Year(Date), Month(Date) - 6, 1)


Response.Write FirstOfLastMonth & "<br />" &_
               EndOfLastMonth & "<br /><br />" &_
               
               FirstOfThisMonth & "<br />" &_
               EndOfMonth & "<br /><br />" &_
               
               FirstOfNextMonth & "<br />" &_
               EndOfNextMonth & "<br /><br />" &_
               
               FirstOfLastMonth & "<br />" &_
               FirstOfThisMonth & "<br />" &_
               FirstOfNextMonth & "<br /><br />" &_
               SixMonthsAgo
               FirstOfThisMonth & "<br />" &_
               FirstOfNextMonth & "<br /><br />" &_
               SixMonthsAgo

[orcim]

http://www.virtualsplat.com/tips/asp...ate-serial.asp
http://www.bennysutton.com/Active-Se...ateSerial.aspx

[vic53]

ciao
se imposti una data al primo del mese attuale e sottrai un giorno ottieni la data dell'ultimo giorno del mese precedente...
in vbscript lato server utilizzi dateAdd(... anche per sottrarre un giorno

UltimoGiornoMesePrecedente = DateAdd("d", -1, "01/" & month(date) & "/" & year(date))

per il primo giorno del mese precedente ti rispondi da solo ...dato che il cavallo bianco
di Napoleone era di colore ?...

ciao