delphi中如何实现一个日期到另一个日期还有多少天? . 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var date1:TDateTime; date2:TDateTime;begin date1:=Date; date2:=strTodate('2007-05-11'); ShowMessage(IntToStr(trunc(date1)-trunc(date2)));end; UnitDateUtilsCategorydatetime routinesDelphi syntax:function DaysBetween(const ANow, AThen: TDateTime): Integer; 不能写入怎么办 好久没来了,提个问题大家帮忙看看! 继承于TWinControl的控件是如何画出并显示出来的啊? 关于dll,up有分 怎样对日期变量进行运算?TdatetimePick中的时间怎么去掉? delphi 如何实现将汇编字符串写入到内存 从近期的贴子,看当代大学生的素质 怎么模拟刷卡器? 关于控件焦点问题! 还是formshow的问题 Idpop3接收邮件正文出错? Delphi兄弟些,BCB 2007也快出来了,庆祝一下。
date1:TDateTime;
date2:TDateTime;
begin
date1:=Date;
date2:=strTodate('2007-05-11'); ShowMessage(IntToStr(trunc(date1)-trunc(date2)));
end;