获取星期几的函数

function GetWeek: string;
var
mytime:_SYSTEMTIME;
begin
GetLocalTime(t);
case mytime.wDayOfWeek of
 0: Result:='星期日';
 1: Result:='星期一';
 2: Result:='星期二';
 3: Result:='星期三';
 4: Result:='星期四';
 5: Result:='星期五';
 6: Result:='星期六';
end;
end;