时间显示问题

Question

如何显示'yyyy.mm.dd hh:nn:ss'后的微秒

Answer 1

在TDATETIME类型中并没有记录下微秒的值!看来是此路不通!

Answer 2

var
prev,now: TDatetime;
begin
  prev := time;
  sleep(100);
  now := time;
  Caption := FloatToStr(now-prev);
end;
但这段代码caption显示不为0

Answer 3

zuccjin:
可以写个format string给我?

Answer 4

:)Label1.caption:=FormatDateTime('yyyy"."mm"."dd hh:nn:ss:zzz',now);

Answer 5

var
  myVar:double;
  prev,now: TDatetime;
  days,hours,minutes,seconds:integer;
begin
  prev :=strtoDatetime('2002-12-20 11:18:00');
  now := strtoDatetime('2002-12-20 11:20:00');
  myvar:=now-prew;  //时间  浮点型
  days:=Round(myvar);  //天数
  hours:=Round(myvar*24); //小时数
  minutes:=Round(myvar*24*60);  //分钟
  seconds:=Round(myvar*24*60*60);  //秒 
end;