时间显示问题 如何显示'yyyy.mm.dd hh:nn:ss'后的微秒 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在TDATETIME类型中并没有记录下微秒的值!看来是此路不通! varprev,now: TDatetime;begin prev := time; sleep(100); now := time; Caption := FloatToStr(now-prev);end;但这段代码caption显示不为0 zuccjin:可以写个format string给我? :)Label1.caption:=FormatDateTime('yyyy"."mm"."dd hh:nn:ss:zzz',now); 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; 关于同类组件循环赋值问题 如何循环访问网页 怎样根据ComboBox变化时Edit中的数据也跟着变化 电子数据传输的问题 有友人寻觅DELPHI资深人才,不知道发这个信息是否有点违规哦? delphi 实现关机功能 2000下不行 ? 我装完delphi7后,要求注册,不注册就跳出了,该怎么解决? delphi开发的数据库程序问题(急,请赐教) 关于Series 如何对一个动态生成的控件操作? 要求能够自定义字段和查询内容的动态报表要怎么做最容易呢??? delphi+access可以做c/s模式的应用程序吗?
prev,now: TDatetime;
begin
prev := time;
sleep(100);
now := time;
Caption := FloatToStr(now-prev);
end;
但这段代码caption显示不为0
可以写个format string给我?
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;