急急急急急急急！！！！关于计算日期

Question

用Delphi还是用数据库
delphi中TDateTime的差的整数部分就是天，
数据库中各厂家的函数有差异

Answer 1

function DaysBetween(const ANow, AThen: TDateTime): Integer;

Answer 2

uses DateUtils;var
  days :integer ;
begin
  days := DaysBetween(date2, date1) ;
  //days即为相差天数
end ; 

Answer 3

算时间在delphi中是最容易的，如下：   
   
var  ss : TDateTime   
   
其实Tdatetime是一个双精度的浮点数，它的小数点前表示天数：    
   
如，  ss := ss + 20 表示从ss开始向后20天，如果 ss = 234.567     
它就表示 234.567天,当然是从公元0年开始计算的！