关于Delphi的日期计算问题：

我希望在Delphi中进行日期的计算，比如我输入一个开始日期、一个结束日期，将两者相减，得到之间的天数，那位高手可以教教我！！！！ 问题点数：20、回复次数：3Top

1 楼madyak（无天）回复于 2002-08-09 02:37:05 得分 5

function   GetDayNum(BDate,EDate:TDate):integer;  
  begin  
      Result:=Trunc(EDate)-Trunc(BDate);  
  end;    
  Top

2 楼caiguoxin（caiguoxin）回复于 2002-08-09 03:01:47 得分 5

UPTop

3 楼oracle_lover（数据库情人）回复于 2002-08-09 09:01:01 得分 10

var  
    date1:TDate;  
    date2:TDate;  
  begin  
    date1:=StrToDate('1999-12-3');  
    date2:=StrToDate('2002-10-30');  
    Edit1.text:=FloatToStr(date2-date1);  
  end;  
   
  日期类型其实是作为双精度浮点型存储的，可以直接相减，也可以用<   >   <=   >=   =来进行逻辑运算。Top

相关问题

• date
• 日期
• bdate
• 相减
• tdate
• strtodate
• edate
• trunc
• begin

• 帖主：Shadow_boy
• madyak
• caiguoxin
• oracle_lover

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