Funzione per avere il 1° giorno del mese e l'ultimo

[Dirk Pitt]

Salve,
che voi sappiate esiste un modo per ottenere il primo giorno dle mese e l'ultimo?

Quindi per gennaio 1 come primo giorno e 31 come ultimo, per febbraio 1 come primo e 28 (o 29 se l'anno è bisestile) come ultimo, ecc...

[albis]

per il primo non può essere che 1

dim PrimodelMese
dim Ultimo
PrimodelMese = date
PrimodelMese = DateAdd("d",(day(PrimodelMese)*-1) + 1 ,PrimodelMese)
Ultimo = DateAdd("m",1 ,PrimodelMese)

Ultimo = DateAdd("d",- 1 ,Ultimo)
Response.Write Ultimo & "|" & PrimodelMese

[Dirk Pitt]

Thank you very much.

Have a nice day buddy...