function getChinaWeek(adate : TdateTime) : string;
var
iWeek : integer;
begin
iWeek := dayofWeek(aDate);
Result := ChinaWeek[iWeek - 1];
end;
var
iWeek : integer;
begin
iWeek := dayofWeek(aDate);
Result := ChinaWeek[iWeek - 1];
end;