Get weekly description

Function GetChinaweek (Adate: tdatetime): String;

VAR

iWeek: Integer;

Begin

iWeek: = dayofweek (adate);

Result: = CHINAWEEK [iWeek - 1];

END;