先convert to tdatetime
round(t1-t2)
round(t1-t2)
解决方案 »
- 如何设置TreeView,不让它展开子节点?
- 想删掉 MEMO 控件里面的所有空格字符,不知道怎么写代码
- 数据录入的错误提示:急急!!!
- 在MIDAS中如何处理数据的封包和解包啊
- 高分求教!如何在DELPHI程序中加入背景音乐,MP3的音乐或是FLASH音乐。
- 在多层(MIDAS)里,怎样实现Master/Detail关系的操作?加分为谢。
- 请问大虾,如何操作在ie 中用active form弹出的窗口
- 2个月来全国各地招聘各种程序员数量统计.
- 请问按下面的通讯协议要求,通过delphi7的winsoctet该如何实现呢?
- 怎样写asp程序或用delphi写ISAPI,CGI接收来自Browser 传送过来的文件。
- ctrl+alt+del
- 弱智问题--大家不要笑我撒`~~
var t1,t2:Tdatetime;
begin
DateSeparator:='.';
t1:=strtodate(format('%s.%s.%s',[copy(s1,1,4),copy(s1,5,2),copy (s1,7,2)]));
t2:=strtodate(format('%s.%s.%s',[copy(s2,1,4),copy(s2,5,2),copy (s2,7,2)]));
result:=round(t2-t1);
end;