|
General |
| 6.203 Determina l'ultimo giorno del mese (2) |
| Microsoft |
|
La funzione che segue serve a determinare la data di fine mese di una determinata data. '******************************************************
'FindEOM Function
'******************************************************
'This function takes a date as an argument and returns the last
'day of the month.
Function FindEOM (MyDate)
Dim NextMonth, EndOfMonth
NextMonth = DateAdd("m", 1, MyDate)
EndOfMonth = NextMonth - DatePart("d", NextMonth)
FindEOM = EndOfMonth
End Function
La funzione è stata tratta dall'articolo Microsoft Knowledge Base - 210493.Questa soluzione per determinare la data di fine mese è in alternativa alla soluzione proposta da Federico Luciani nella FAQ pubblicata nella Sezione General di questo sito ed intitolata 6.4 Determinare il primo e l'ultimo giorno del mese. |