How to display current date and time in Free Pascal

You can use Now function to retreive current date and time from computer.

Sample:

var
  MyTime: TDateTime;
begin
  MyTime:= Now;
  Writeln('Now it is: ' + DateTimeToStr(MyTime));
end.

Make sure you have included sysutils unit in uses clause.

You can use FormatDateTime function to format date and time:

  Writeln('Today is: ' + FormatDateTime('yyy-mm-dd hh:nn', MyTime));

Advertisement