Question

delphi有么有精确到毫秒的时间戳

Answer 1

uses sysutils;
var
	t:tdatetime;
	tt:ttimestamp;
begin
	t:=now;
	tt:=datetimetotimestamp(t);
	writeln(tt.date);
	writeln(tt.time div 3600000);
end.