请问有计算两个日期间相差天数的函数吗？？

谢谢了先^_^ 问题点数：20、回复次数：4Top

1 楼MSHawk（憨憨）回复于 2002-05-15 10:06:38 得分 1

很简单，两个日期相减，整数部分就是相差天数.Top

2 楼outer2000（天外流星）回复于 2002-05-15 10:08:10 得分 15

function   DaysBetween(const   ANow,   AThen:   TDateTime):   Integer;  
   
  Description  
   
  Call   DaysBetween   to   obtain   the   difference,   in   days,   between   two   TDateTime   valuesTop

3 楼mingyeh（风萧萧兮，北京温度低）回复于 2002-05-15 10:10:12 得分 2

var  
      i   :   Integer;  
  begin  
      while   earlydate   <   latedate   do  
          begin  
              IncDay(earlydate);  
          end;  
      Result   :=   i;  
  end;Top

4 楼cornermoss（角落的青苔：时间流过岁月，冲不退不淡是我热情 ^ō^受過苦的笑容 才特別耐看 連玫瑰都因此勇於盛放）回复于 2002-05-15 10:11:01 得分 0

不行的，我在大富翁上得到答案了  
  是DaysBetween   函数Top

5 楼taidy（）回复于 2002-05-15 10:11:20 得分 2

DaysBetween()Top

相关问题

• 相差天数
• daysbetween
• tdatetime
• integer

• 帖主：cornermoss
• MSHawk
• outer2000
• mingyeh
• taidy

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载