how to get current time in delphi code example

Example 1: get current date delphi

var
  currentDate: TDateTime;
begin
  currentDate := Now;
  ShowMessage(DateToStr(currentDate)); //Show the current date 
  ShowMessage(TimeToStr(currentDate)); //Show the current time
end;

Example 2: how to deacrease Time in delphi

//CompareDateTime(ThisMoment, FutureMoment) returns LessThanValue (-1)

Tags:

Delphi Example

Related