冰 冰力不足 Unregistered / Unconfirmed GUEST, unregistred user! 2006-08-28 #2 巧算星期几 http://www.delphibbs.com/keylife/iblog_show.asp?xid=22223
轻 轻舞肥羊 Unregistered / Unconfirmed GUEST, unregistred user! 2006-08-28 #4 uses DateUtils; Caption := IntToStr(DayOfTheWeek(Date));
N nicai_wgl Unregistered / Unconfirmed GUEST, unregistred user! 2006-08-28 #6 简单函数 function MyDayOfWeek(Date: TDateTime): string; const wStr: array[1..7] of string = ( '星期日', '星期一', '星期二', '星期三', '星期四', '星期五', '星期六' ); begin Result := wStr[DayOfWeek(Date)]; end;
简单函数 function MyDayOfWeek(Date: TDateTime): string; const wStr: array[1..7] of string = ( '星期日', '星期一', '星期二', '星期三', '星期四', '星期五', '星期六' ); begin Result := wStr[DayOfWeek(Date)]; end;
