各位老大,如何将日期换算成星期,我不知道中间的算法啊
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;
begin case DayOfWeek(DateTime) of 1: result:='星期日'; 2: result:='星期一'; 3: result:='星期二'; 4: result:='星期三'; 5: result:='星期四'; 6: result:='星期五'; 7: result:='星期六'; end; end;
