delphi 显示年月日星期

var

  Date,XQ,Time:string;

begin

  Date := FormatDateTime('yyyy年mm月dd日',now);

  case DayOfWeek(Now) - 1 of

    1: XQ := '星期一';

    2: XQ := '星期二';

    3: XQ := '星期三';

    4: XQ := '星期四';

    5: XQ := '星期五';

    6: XQ := '星期六';

    7: XQ := '星期日';

  end;

  time := FormatDateTime('hh:mm:ss',Now);

  text:=Date+' '+XQ+' '+Time;