！！！在线等待一个关于日期的函数。已知一个日期，如何获取下一天日期？？

！！！在线等待一个关于日期的函数。已知一个日期，如何获取下一天日期？？

解决方案 »

  1.   

    ???
    +1不就行了，日期在delphi里不就是int吗？
      

  2.   

    uses DateUtils;
    function IncDay(const AValue: TDateTime; const ANumberOfDays: Integer = 1): TDateTime;
      

  3.   

    简单加1是不行的，因为还需要考虑月底如何计算的问题。
    还是delphi自身的 IncDay函数比较好使！
      

  4.   

    简单+1为什么不行？？？IncDay就是加了个1，不信你去看看源代码
      

  5.   

    简单+1为什么不行？？？
    如果是31号你加1呢？
    所以还是得用
    IncDay
      

  6.   

    原来31号+1会变成32号啊，明白了~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~拜托看看incday的代码，左手按住ctrl，右手用鼠标点一下incday就行了
      

  7.   

    支持楼上，不信执行
    showmessage(DateToStr(now+1));
    试试，假如今天是2004-4-30,结果肯定是2004-5-1