Mega Code Archive
Time - gives the current time sysutils unit
<![CDATA[
function Time : TDateTime;
Description
The Time function returns the current time in the local time zone.
Because the return value is a TDateTime type, the date component is set to zero (30/12/1899).
Notes
Warning : the date value is one day short of the last day of the 19th century. Exactly why is unclear.
Related commands
Date Gives the current date
Now Gives the current date and time
Tomorrow Gives the date tomorrow
Yesterday Gives the date yesterday
Example code : Show the current time
var
today : TDateTime;
begin
today := Time;
ShowMessage('today has date = '+DateToStr(today));
ShowMessage('today has time = '+TimeToStr(today));
end;
Show full unit code
today has date = 30/12/1899
today has time = 13:37:25
]]>