CISA FotoGallery

Statistiche

Tot. visite contenuti : 928183
Home Articoli tecnici Moduli Calcolare l'ultimo giorno del mese

Calcolare l'ultimo giorno del mese


'Tratto dall'Articolo Microsoft Knowledge Base - 210493

'******************************************************
'Declarations Section of Module
'******************************************************

'******************************************************
'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