function TFmain.GetWeek(xday:Integer): string;
begin
case SysUtils.DayOfWeek(now+xday) of
1: Result := '星期天';
2: Result := '星期一';
3: Result := '星期二';
4: Result := '星期三';
5: Result := '星期四';
6: Result := '星期五';
7: Result := '星期六';
end;
end;