这问题早该结束了,我来总结一下吧,(为了这5分?!:-)<br> 你的日期只可能有三种类型:TDate,TDateTime,String;<br> 1. 对于TDate,TDateTime类型 ,使用:<br> var timespan :integer;<br> timespan := trunc(DateEnd-Datebegin);<br> 2. 对于String类型,使用<br> try<br> timespan := trunc(strtodate(DateEnd)-strtodate(Datebegin));<br> except<br> on E: EConvertError do<br> ShowMessage('字符串无法正确转化为日期!');<br>