delphi中有什么函数可以得到两个日期间隔（星期天和星期六不算在里面）有多少天！ (20分)

D

delphiere

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-23

• #1

大家好！
delphi中有什么函数可以得到两个日期间隔（星期天和星期六不算在里面）有多少天！

例如：2004-03-23到2004-03-29间隔（星期天和星期六不算在里面）4天！

或者，能得到相隔两个日期之间，星期一有多少天。。。星期二。。星期日有多少天。。。这样的？

对了，还有什么函数可以判断某天是星期几的吗？谢谢各位朋友了！谢谢！

 

Z

zzb1984

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-23

• #2

1var
d1,d2:TdateTime;

function Gap(d1,d2:TDateTime):integer;
begin
Restult := trunc(d2-d1)* 5 div 7;
end;

2
weekDay := DayOfWeek(nowTime);
DayOfWeek(nowTime)的返回值：星期一至星期六是 天数+1，星期天是 1
如果要对应到实际可用以下公式转换： (DayOfWeek(nowTime)+5) mod 7 +1;

 

Z

zhbj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-23

• #3

在d7下，用dayof(Tdate)函数或者weekof(Tdate)函数试一试 ，
注意，以上函数封装在 dateUtils

 

V

vmao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-23

• #4

[]第一个函数能得到正确结果？？

 

X

XWHope

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-23

• #5

用function DaysBetween(const ANow, AThen: TDateTime): Integer;先算出两日期间天数
在分别用function DayOfWeek(Date: TDateTime): Integer;取出两个日期星期
算出两者之间星期6星期7天数

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-23

• #6

楼上说得对