EndOfTheMonth
Модуль: DateUtils
function EndOfTheMonth(const AValue: TDateTime): TDateTime;
Функция возвращает TDateTime, который представляет последнюю миллисекунду месяца. Функция возвращает последний момент данного месяца, указанный в параметре AValue :
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
program FooApp; {$APPTYPE CONSOLE} uses SysUtils, DateUtils; var Date: TDateTime; begin Date := Now; Date:= EndOfTheMonth(Date); //Format daty z milisekundami LongTimeFormat := 'hh:mm:ss.zzz'; WriteLn(DateTimeToStr(Date)); Readln; end. |
В этом случае функция покажет нам последнюю миллисекунду последнего дня текущего месяца.