delphi中有計算當天為本年第幾周的函數嗎?如何做最易?(50分)

R

rixin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-01-06

• #1

 

S

sillyjohn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-01-06

• #2

判断一下本年的第一天为星期几，用天数减后除7，求整（小数舍去）

 

K

kangxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-01-06

• #3

delphi中的日期相减=天数, div 7 不就行了.
(now-StrToDateTime('2000/01/01')) div 7 再判断整除的情况.

 

H

hansong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-01-06

• #4

就是这个：
(trunc(Now-EncodeDate(CurrentYear,1,1))div 7)+min(1,max(0,Abs(DayOfWeek(Now)-DayOfWeek(EncodeDate(CurrentYear,1,1)))))

可以简化成：
weekid:=trunc(Now-EncodeDate(CurrentYear,1,1))div 7;
if DayOfWeek(Now)=DayOfWeek(EncodeDate(CurrentYear,1,1)) then
Inc(weekid);

 

懶

懶虫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-01-07

• #5

考慮一下每年的前几天!

 

R

rixin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-01-08

• #6

ok

 

R

rixin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-01-08

• #7

多人接受答案了。