TChineseDate

type TChineseDate = record

  cycle: Integer;

  year: Integer;

  epoch_years: Integer;

  month: Integer;

  leap: Boolean;

  leapyear: Boolean;

  day: Integer;

  yearcycle: TChineseCycle;

  daycycle: TChineseCycle;

  monthcycle: TChineseCycle;

end;