怎样实现两个时间相加、相减 返回值是秒数、日期、天数? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var t1,t2:TDateTime;int((t2-t1) * 86400) //秒int(t2-t1) //天 + -号已经被tdatetime重载了,放心用吧 var year,month,day :word;D1,D2:Tdatetime;begind1:=now;decodedate(d1,year,month,day);encodedate(d2,year+5,month,day);//year add 5end; 请问一下怎么将richedit 的内容通过IdTCP传输在另一端的richedit 显示出来 为什么不能设置分辨率啊,程序出什么错误啦? 如何判断8天前的日期? 请教大下! 请教怎样用Rave设计条形码 急!大哥门救我啊,TREEVIEW问题 delphi中数据库异构查询? 简单的问题:关于安装程序. 想学习delphi,但是不知道有什么好书,给点意见 组件的调试。 delphi发展如何?下一个版本会怎么样? 要取出Edit1.text中的前12个字符,让后再取出13-24个字符,要怎么做?
int(t2-t1) //天
year,month,day :word;
D1,D2:Tdatetime;begin
d1:=now;
decodedate(d1,year,month,day);
encodedate(d2,year+5,month,day);//year add 5
end;