EndOfAMonth
Adam Boduch
EndOfAMonth
Moduł: DateUtils
program FooApp;
{$APPTYPE CONSOLE}
uses
SysUtils, DateUtils;
var
A : TDateTime;
begin
A := EndOfAMonth(2006, 6);
Writeln(DateTimeToStr(A));
Readln;
end.
W pierwszym parametrze metody musisz określić rok.
Taki program wyświetli na ekranie konsoli: 2006-06-30 23:59:59
. Oczywiście możliwe jest wyświetlenie dokładniejszej wartości (co do milisekundy).
Zobacz też: