时间显示问题 如何显示'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; http://community.csdn.net/Expert/topic/3943/3943031.xml?temp=4.310244E-02 取得服务器系统时间得问题 条码打印问题!请有经验的朋友进来聊聊! 请问Adoquery 怎样才能更新表内容? 一个关于webbrowser问题 关于数据库连接? 一个值得研究的问题。 狂死郎,快进来,有事问你,呵呵~~ X度空间 请问:用什么语句执行外部可执行命令? 急急急!数据库错误! 要求能够自定义字段和查询内容的动态报表要怎么做最容易呢??? 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;