请问两个日期变量经过怎样的计算机可以得出相差多少天,怎样实现?

谢向!

解决方案 »

  1.   

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

  2.   

    DaysBetween 函数
    在DateUtils单元
      

  3.   

    也可以用DecodeDate函数，然后计算就可以了
    DeCodeDate(strtodate(maskedit1.Text),y,m,d);
    DeCodeDate(strtodate(maskedit2.Text),y1,m1,d1);
    if (y1-y)<=0 then
    showmessage('你输入的时间不正确')
    else
    begin
    if (m1-m)<0 then
    mr:=12-m+m1
      

  4.   

    N_Year:=incYear(strtodate('2002-04-06'),N);
      

  5.   

    zxp922（雨中雪）
    具体点！！！