如何计算时间的问题。！！！！

Question

我要实现的功能是，输入两个不同的日期我要计算出他们之间的天数，而且要考虑到减去周末和假期，我该如何实现？

Answer 1

Date1,Date2:TDate;
Date1:=StrToDate('2002-1-1');
Date2:=StrToDate('2002-1-4');
Date2-Date1=3就算是他们之间隔的天数
如果考虑周末和假期，你只要稍微判断一下不就OK了

Answer 2

Date1,Date2:TDate;
Date1:=StrToDate(Edit1.text);
Date2:=StrToDate(Edit2.text);
Edit3.text := DateToStr(Date2-Date1);
如果是这样的话，更本就不能达到要求不是显示具体的天数，那是什么原因呢？

Answer 3

ntcom
那你说该怎么设置？

Answer 4

up日期可以直接进行加减，其实TDate就是float，整数是日期，从某某年开始算（具体忘了）
小数是时间，是24小时为分母的除法运算。
你完全可以自己写代码实现。

Answer 5

Date1,Date2:TDate;
Date1:=StrToDate(Edit1.text);
Date2:=StrToDate(Edit2.text);
Edit3.text := IntToStr(Round(Date2-Date1));