Delphi 日期型字段可以直接参与计算吗?

Question

其实，说白了Delphi中的日期型是一个实数DOULBE型的，0是从12/30/1899 12:00 am算起的，也即整数部分是从12/30/1899算起的，小数部分即按某一天的百分之几啦，比如，0.25就表示这天的早上6：00啦。
你应该好好利用帮助文件和源代码，
因为日期是一个Double型的，所以呢，Double能参与的运算它都能参加，
所以要比较两个日期的大小挺方便的，直接比较即可
此外还有转化字符串的函数：DateToStr(Date),StrToDate('12/30/1999'),TimeToStr(Now),StrToTime('8:00')

Answer 1

看此段代码：
procedure TForm1.Button1Click(Sender: TObject);
var d1:tdatetime;
begin
 d1:=strtodatetime('2000-01-02')-strtdatetime('2000-01-01');
 showmessage(formatdatetime('d',d1)); //=31
 showmessage(formatdatetime('m',d1)); //=12
end;