General

6.4 Determinare il primo e l'ultimo giorno del mese.
  Federico Luciani
(D)
E' possibile, partendo da una data, determinare il primo e l'ultimo giorno del mese corrispondente?

(R)
Si è possibile in quanto DateSerial(year, month, day) accetta per gli argomenti anche 'espressioni numeriche al posto di numeri di data assoluti'. Questo significa che è possibile utilizzare espressioni del tipo:

DateSerial(1998 - 2, 3 - 1, 3 - 1)

in questo esempio verrà restituita la data di un giorno precedente al giorno 3, di un mese, che precede marzo di un mese, di un anno che precede il 1998 di 2 anni, cioè il 2 febbraio 1996.

Detto questo partendo da una qualsiasi data sono facilmente reperibili il primo e l'ultimo giorno di quel mese:
   miaData = DateValue("3/2/1996")
   primoGiorno = DateSerial(Year(miaData), Month(miaData), 1) --> 01/02/96
   ultimoGiorno = DateSerial(Year(miaData), Month(miaData) + 1, 0) --> 29/02/96


Se pensate di avere del materiale freeware interessante e volete pubblicarlo, allora leggete qui.