SameDateTime
Adam Boduch
SameDateTime
Moduł: DateUtils
Przykład:
program FooApp;
{$APPTYPE CONSOLE}
uses
SysUtils, DateUtils;
var
A, B : TDateTime;
Result : Boolean;
begin
A := Now;
B := A;
Result := SameDateTime(A, B);
if Result then
Writeln('Tak, wartości TDateTime są równe')
else Writeln('Niestety, wartości TDateTime są różne');
Readln;
end.
Zobacz też: