EOM()
End Of Month
Syntax
EOM( [<dDate>] ) -> <dDateEndOfMon
Argument
[<dDate>] Date to find last day
Returns
<dDateEndOfMonth> Last date Of Month
Examples
SET DATE ANSI ? EOM( hb_SToD( "20000101" ) ) // -> "2000.01.31" ? EOM( hb_SToD( "20000201" ) ) // -> "2000.02.29" PROC MAIN() SETMODE( 25, 80 ) CLS SET DATE GERM SET CENT ON ? "Today is ", DATE() ? "Last day of this month ", EOM() ? "Remaining days in the current month:", EOM() - DATE() ? WAIT "EOF EOM.prg" RETURN // MAIN
/* Today is : 04.07.2013 Last day of this month : 31.07.2013 Remaining days in the current month: 27
EOF EOM.prg */
Compliance
EOM() is compatible with CT3’s EOM().
Platforms
All
Files
Source is datetime.prg, library is libct.
See also
BOM(), BOQ(), EOQ(), BOY(), EOY()
Pingback: Harbour All Functions – E | Viva Clipper !
Pingback: Harbour Date & Time Functions | Viva Clipper !