Delphi中获取星期几的函数

Delphi中获取星期几的函数-南山古桃（转）-关键词：Delphi,日期几，日期，函数
function GetWeek: string;
var
mytime:SYSTEMTIME;
begin
GetLocalTime(mytime);
 
case mytime.wDayOfWeek of
0: Result:='星期日';
1: Result:='星期一';
2: Result:='星期二';
3: Result:='星期三';
4: Result:='星期四';
5: Result:='星期五';
6: Result:='星期六';
end;
end;