怎样算两个日期之差？为什么两个日期之差又变成日期型？

Question

日期本身就是实数类型，做个赋值就可以了。
var
  a, b:TDatetime;
  c:Double;
...
  c := a-b;

Answer 1

在DELPHI中，日期的格式象实数类型，例如345.67890000等，整数部分代表了从19XX年XX月XX日到现在的天数，小数部分代表多少小时数（*24 hour/day)。所以两个日期之差也是这种类型，你可以直接赋值给实数，这样就成实数了。