!!!在线等待一个关于日期的函数。已知一个日期,如何获取下一天日期??

解决方案 »

  1.   

    var
      D:TDateTime;  D:=Date;
      //得到下一天
      D:=D+1;
      showmessage(DateTimeToStr(D));
      

  2.   

    Use Unit DateUtilsfunction IncDay(const AValue: TDateTime; const ANumberOfDays: Integer = 1): TDateTime;
      

  3.   

    很简单啊 
    date1, date2: TDateTime
    date1 := date;
    date2 := date1 + 1------------------------------------
    体验速度,体验CSDN新版论坛助手:http://community.csdn.net/Expert/TopicView.asp?id=3108679
      

  4.   

    Tomorrow函数,D6,D7里才有的函数
      

  5.   

    var
      date1, date2:TDateTime
    begin
      date1 := date; 
      date2 := date1 + 1;
    end;就是把你知道我日期加1,就OK了!