如何将日期换算成星期(50分)

末

末日之刃

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-29

• #1

各位老大,如何将日期换算成星期,我不知道中间的算法啊

 

D

dragonlee007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-29

• #2

showmessage(FormatDateTime('dddd', now));

 

H

hb_wshsh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-29

• #3

begin
case DayOfWeek(DateTime) of
1: result:='星期日';
2: result:='星期一';
3: result:='星期二';
4: result:='星期三';
5: result:='星期四';
6: result:='星期五';
7: result:='星期六';
end;
end;

 

秋

秋之叶

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-29

• #4

可惜问题太简单了。楼上抢答完毕。

 

風

風

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-29

• #5

來晚了

 

末

末日之刃

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-29

• #6

谢谢