Mat - Ricerca Del Primo Ed Ultimo Giorno Del Mese

Visual # Per tali operazioni e' possibile sfruttare la funzione DateSerial nel seguente
modo:
Primo giorno del mese
Function PrimoGiorno(Data_Gio as Date) as Date
if Date_Gio = "" then
Data_Gio = Date
end if
PrimoGiorno = DateSerial( Year(Data_Gio), Month(Data_Gio), 1 )
End Function

Ultimo giorno del mese.
Per ottenere tale giorno si sfrutta la caratteristica della funzione DateSerial
la quale restituisce sempre una data valida, pertando sommando 1 al valore del
mese e sottraendo 1 al valore del giorno otteniamo il giorno 0 del mese
successivo che automaticamente corrisponde all'ultimo del mese.
Function UltimoGiorno(Data_Gio as Date) as Date
if Date_Gio = "" then
Data_Gio = Date
end if
UltimoGiorno = DateSerial( Year(Data_Gio), Month(Data_Gio)+1, 0 )
End Function