uses DateUtils {, SysUtils };
begin
writeln(HourOf(Today)); { HourOf(Date) }
end.
uses DateUtils {, SysUtils };
begin
writeln(HourOf(Today)); { HourOf(Date) }
end.
writeln(HourOf(Now));
FormatDateTime(LongTimeFormat, Now)
shorttimeformat := 'hh:mm:ss';
writeln(timetostr(now));
shorttimeformat := longtimeformat; // 'hh:mm:ss';
writeln(timetostr(now));
Uses dateutils;
begin
writeln('diff = ', daysbetween(strtodate('12/02/2007'), strtodate(DateOf(Today))));
end.