codice:
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