X xzhxu2006 Unregistered / Unconfirmed GUEST, unregistred user! 2006-09-11 #1 如果是星期一，获取的结果为1； 如果是星期二，获取的结果为2； ...... 如果是星期天，获取的结果为7 请大虾帮忙！ 在线等
N nicai_wgl Unregistered / Unconfirmed GUEST, unregistred user! 2006-09-11 #3 DayOfWeek; function Day: Integer; begin Result := DayofWeek(now) - 1; if Result = 0 then Result := 7; end;
DayOfWeek; function Day: Integer; begin Result := DayofWeek(now) - 1; if Result = 0 then Result := 7; end;
K kaida Unregistered / Unconfirmed GUEST, unregistred user! 2006-09-12 #6 nicai_wgl 的回答是正确的，你不行在哪里，有什么提示，应该说出来。
S siasren Unregistered / Unconfirmed GUEST, unregistred user! 2006-09-12 #8 var result:integer; day:integer; begin result :=inttostr( DayofWeek(now)); end;
秃 秃鹰 Unregistered / Unconfirmed GUEST, unregistred user! 2006-09-12 #9 if dayofweek(date)= 1 then result:=7 else result:=dayofweek(date)-1;
K kye_jufei Unregistered / Unconfirmed GUEST, unregistred user! 2006-09-12 #10 MSN:kye_jufei@hotmail.com formatdatetime(now,'ddd');
T tianlove Unregistered / Unconfirmed GUEST, unregistred user! 2006-09-13 #11 DOW := DayOfWeek(DateTime);
S sbzldlb Unregistered / Unconfirmed GUEST, unregistred user! 2006-09-13 #12 WeekDay:=DayOfWeek(CallDateTime.Date);
S seager Unregistered / Unconfirmed GUEST, unregistred user! 2006-09-13 #13 uses DateUtils单元（该单元主要用了进行时间处理的函数） Dayofweek(now()) 0-sunday 1-monday .. 6-Saturday
