easy啦,直接减就可以了!
如:
showmessage(inttostr(strtodate(edit1.text)-strtodate(edit2.text)));
如:
showmessage(inttostr(strtodate(edit1.text)-strtodate(edit2.text)));
解决方案 »
- 公司想招Delphi高手,福州地区或想来福州发展的请进!
- 关于网络负载均衡算法
- 采用paradox数据,post断电仍丢失数据?有何好方法解决?在线等待!
- 能不能告诉我一些纯免费的电影下载地址?
- 关了TreeView的问题
- Treeview的难点???急需帮忙!!
- 调查:作为一个Delphi程序员对用人单位的要求(up有分)
- 请教高手如何对运算符重载
- 请教个Delphi版本的问题
- 在delphi中怎么把一个长整型的数设为颜色值?我从其它非delphi控件获得的颜色值是长整型,但delphi的颜色值显然不是用长整型表示,请问这时候我怎样把这个长整型的数作为delphi中控件的背景色。
- 有谁会做桌面宠物啊
- 关于TABLE的记录过滤问题?
Yr1, Mnth1, Day1: Word;
Yr2, Mnth2, Day2: Word;
begin
DecodeDate(dDate1, Yr1, Mnth1, Day1);
DecodeDate(dDate2, Yr2, Mnth2, Day2);
天数:=(Yr1-Yr2)*360+(Mnth1-Mnth2)*30+(Day1-Day2)
showmessage(inttostr(round(strtodate(edit1.text)-strtodate(edit2.text))));