delphi有没有对日期进行减价运算的函数？

Question

datediff := Encode(2003, 3, 1) - Date;

Answer 1

http://www.csdn.net/expert/topic/548/548224.xml

Answer 2

直接进行加减运算
明天:=Today+1;
var 
  Yestoday:TDateTime;
begin
  Yestoday:=Now-1;

Answer 3

uses DateUtils;function YearsBetween(const ANow, AThen: TDateTime): Integer;
function MonthsBetween(const ANow, AThen: TDateTime): Integer;
function WeeksBetween(const ANow, AThen: TDateTime): Integer;
function DaysBetween(const ANow, AThen: TDateTime): Integer;
function HoursBetween(const ANow, AThen: TDateTime): Int64;
function MinutesBetween(const ANow, AThen: TDateTime): Int64;
function SecondsBetween(const ANow, AThen: TDateTime): Int64;够你用的了吧？

Answer 4

type tdatetime is a real type, you can do +,- to calcuate them,
use encodetime/decodetime for datetime to date/time info
//==============
uses  DateUtils;
  
  function  YearsBetween(const  ANow,  AThen:  TDateTime):  Integer;
  function  MonthsBetween(const  ANow,  AThen:  TDateTime):  Integer;
  function  WeeksBetween(const  ANow,  AThen:  TDateTime):  Integer;
  function  DaysBetween(const  ANow,  AThen:  TDateTime):  Integer;
  function  HoursBetween(const  ANow,  AThen:  TDateTime):  Int64;
  function  MinutesBetween(const  ANow,  AThen:  TDateTime):  Int64;
  function  SecondsBetween(const  ANow,  AThen:  TDateTime):  Int64;

Answer 5

var
day:double;
begin
  day:=strtodate('2002-03-01')-strtodate('2002-02-02');
  showmessage(floattostr(day));
end;