var

  Year, Month, Day: word;

  D: Double;

  RQ:TDate;

JD:STRING;

begin

  DecodeDate(RQ, Year, Month, Day);

    case Month of

      1..3:JD:= '一季度';

      4..6: JD:= '二季度';

      7..9: JD:= '三季度';

      10..12: JD:= '四季度';

    end;

END;