|
Unit
Moon
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;
Description
Contains the fields necessary to enoode a chinese date.
| Field |
Meaning |
| cycle |
Counts the sexagenary year cycles since starting of the epoch at 2636 BC. |
| year |
The number of the year in the sexagenary cycle. |
| epoch_years |
Number of years since starting of the epoch - calculated as (cycle-1)*60+(year-1) |
| month |
The month number |
| leap |
Is the month a leap month |
| leapyear |
The current year contains a leap month |
| day |
The day number |
| yearcycle |
The astrological year numbering |
| monthcycle |
The astrological month numbering |
| daycycle |
The astrological day numbering |
|