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 FunctionLa 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. |