transdateconst.pas

农历公历转换组件,可以进行公历转农历,支干历,农历转公历的转换

{ Copyright (c) 2004 by Delphi 7 - Lu XiaoGuang V1.0 }

unit TransDateConst;

interface
uses
  DateUtils;
type
  FeastStr = record
    M: Word;
    N: string;
  end;

  FeastOfLunarStr = record
    M: Word;
    N: string;
//    Info: AnsiString;
  end;

  FeastDynamicStr = record
    M: Word;
    W: Word;
    D: Word;
    N: string;
  end;

  FeastLastWeekStr = record
    M: Word;
    D: Word;
    N: string;
  end;

const
  StartYearHeavenly: Integer = 6;
  StartYearEarthly: Integer = 8;
  StartMonthHeavenly: Integer = 1;
  StartMonthEarthly: Integer = 1;
  StartDayHeavenly: Integer = 9;
  StartDayEarthly: Integer = 9;
  DateDelta: Integer = 1;
  LunarDelta: Integer = 31;

  FeastsLD: array[0..2] of FeastLastWeekStr = (
    (M: 1; D: DaySunday; N: '世界麻风日'),
    (M: 3; D: DayMonday; N: '全国中小学生安全教育日'),
    (M: 9; D: DaySunday; N: '国际海事日 世界心脏日')
    );

  FeastsD: array[0..16] of FeastDynamicStr = (
    (M: 1; W: 1; D: DaySunday; N: '黑人日'),
    (M: 4; W: 3; D: DaySunday; N: '世界儿童日'),
    (M: 4; W: 4; D: DayWednesday; N: '秘书节'),
    (M: 5; W: 2; D: DaySunday; N: '母亲节 救助贫困母亲日'),
    (M: 5; W: 3; D: DaySunday; N: '全国助残日'),
    (M: 5; W: 3; D: DayTuesday; N: '国际牛奶日'),
    (M: 6; W: 3; D: DaySunday; N: '父亲节'),
    (M: 7; W: 1; D: DaySaturday; N: '国际合作节'),
    (M: 7; W: 3; D: DaySunday; N: '被奴役国家周'),
    (M: 9; W: 1; D: DayMonday; N: '劳动日'),
    (M: 9; W: 3; D: DaySaturday; N: '全民国防教育日'),
    (M: 9; W: 3; D: DayTuesday; N: '国际和平日(2002年前)'),
    (M: 9; W: 4; D: DaySunday; N: '国际聋人节 世界儿童日'),
    (M: 10; W: 1; D: DayMonday; N: '国际住房日'),
    (M: 10; W: 2; D: DayMonday; N: '感恩节(Canada) Thanksgiving Day'),
    (M: 10; W: 2; D: DayWednesday; N: '国际减轻自然灾害日'),
    (M: 12; W: 2; D: DaySunday; N: '国际儿童电视广播日')
    );

  Feasts: array[0..128] of FeastStr = (
    (M: $0101; N: '元旦'),
    (M: $0202; N: '世界湿地日'),
    (M: $0207; N: '国际声援南非日'),
    (M: $020A; N: '国际气象节'),
    (M: $020E; N: '情人节'),
    (M: $020F; N: '中国12亿人口日'),
    (M: $0215; N: '反对殖民制度斗争日'),
    (M: $0218; N: '第三世界青年日'),
    (M: $021C; N: '世界居住条件调查日'),
    (M: $0301; N: '国际海豹日'),
    (M: $0303; N: '全国爱耳日'),
    (M: $0305; N: '学雷锋纪念日 中国青年志愿者服务日'),
    (M: $0308; N: '国际劳动妇女节'),
    (M: $030C; N: '植树节 孙中逝世纪念日'),
    (M: $030E; N: '国际警察日'),
    (M: $030F; N: '国际消费者权益日'),
    (M: $0310; N: '手拉手情系贫困小伙伴全国统一行动日'),
    (M: $0311; N: '中国国医节 国际航海日'),
    (M: $0312; N: '全国科技人才活动日'),
    (M: $0315; N: '世界森林日 消除种族歧视国际日 世界儿歌日 世界睡眠日'),
    (M: $0316; N: '世界水日'),
    (M: $0317; N: '世界气象日'),
    (M: $0318; N: '世界防治结核病日'),
    (M: $031E; N: '巴勒斯坦国土日'),
    (M: $031F; N: '安全教育日'),
    (M: $0401; N: '愚人节 全国爱国卫生运动日'),
    (M: $0402; N: '国际儿童图书日'),
    (M: $0407; N: '世界卫生日'),
    (M: $0415; N: '全国企业家活动日'),
    (M: $0416; N: '世界地球日 世界法律日'),
    (M: $0417; N: '世界图书图书和版权日 莎士比亚节'),
    (M: $0418; N: '世界青年反对殖民主义日 亚非新闻工作者日'),
    (M: $0419; N: '全国预防接种宣传日'),
    (M: $041A; N: '世界知识产权日'),
    (M: $041B; N: '联谊城日'),
    (M: $041E; N: '全国交通安全反思日'),
    (M: $0501; N: '国际劳动节 国际示威游行日'),
    (M: $0503; N: '世界哮喘日'),
    (M: $0504; N: '中国青年节 五四运动纪念日 科技传播日'),
    (M: $0505; N: '全国碘缺乏病防治日'),
    (M: $0508; N: '世界红十字日 世界微笑日'),
    (M: $050C; N: '国际护士节'),
    (M: $050F; N: '世界家庭(咨询)日'),
    (M: $0511; N: '世界电信日'),
    (M: $0512; N: '国际博物日'),
    (M: $0514; N: '中国学生营养日 全国母乳喂养宣传日'),
    (M: $051A; N: '世界向人体条件挑战日'),
    (M: $051E; N: '『五卅』反对帝国主义运动纪念日'),
    (M: $051F; N: '世界无烟日'),
    (M: $0601; N: '国际儿童节'),
    (M: $0605; N: '国际环境保护日'),
    (M: $0606; N: '全国爱眼日'),
    (M: $060B; N: '中国人口日'),
    (M: $0611; N: '防治荒漠化和干旱日'),
    (M: $0614; N: '世界难民日'),
    (M: $0616; N: '中国儿童慈善活动日'),
    (M: $0617; N: '国际奥林匹克日 世界手球日'),
    (M: $0619; N: '全国土地日'),
    (M: $061A; N: '国际禁毒日 国际宪章日'),
    (M: $061E; N: '世界青年联欢节'),
    (M: $0701; N: '中国共产党建党日 世界建筑日 香港回归日 亚洲"三十亿人口日"'),
    (M: $0702; N: '国际体育记者日'),
    (M: $0707; N: '中国人民抗日战争纪念日'),
    (M: $070B; N: '世界(50亿)人口日'),
    (M: $071A; N: '世界语(言)创建日'),
    (M: $071C; N: '第一次世界大战爆发'),
    (M: $071E; N: '非洲妇女日'),
    (M: $0801; N: '中国建军节'),
    (M: $0806; N: '国际电影节'),
    (M: $0808; N: '中国男子节（爸爸节）'),
    (M: $080F; N: '日本正式宣布无条件投降日'),
    (M: $081A; N: '全国律师咨询日'),
    (M: $0903; N: '中国抗日战争胜利纪念日'),
    (M: $0908; N: '世界扫盲日 国际新闻工作者日'),
    (M: $0909; N: '毛泽东逝世纪念日'),
    (M: $090A; N: '中国教师节'),
    (M: $090E; N: '世界清洁地球日'),
    (M: $0910; N: '国际臭氧层保护日'),
    (M: $0912; N: '九.一八事变纪念日'),
    (M: $0914; N: '国际爱牙日'),
    (M: $0915; N: '国际和平日(2002年后)'),
    (M: $091B; N: '世界旅游日'),
    (M: $091C; N: '孔子诞辰纪念日'),
    (M: $0A01; N: '国庆节 国际音乐日 国际老人节'),
    (M: $0A02; N: '国际和平与民主自由斗争日'),
    (M: $0A04; N: '世界动物日'),
    (M: $0A08; N: '全国高血压日 世界视觉日 国际左撇子日'),
    (M: $0A09; N: '世界邮政日(万国邮联日)'),
    (M: $0A0A; N: '辛亥革命纪念日 世界精神卫生日 世界居室卫生日'),
    (M: $0A0B; N: '声援南非政治犯日'),
    (M: $0A0D; N: '世界保健日 国际教师节 中国少年先锋队诞辰日 采用格林威治时间为国际标准世界日'),
    (M: $0A0E; N: '世界标准日'),
    (M: $0A0F; N: '国际盲人节（白手杖日）'),
    (M: $0A10; N: '世界粮食日'),
    (M: $0A11; N: '世界消除贫困日'),
    (M: $0A16; N: '世界传统医药日'),
    (M: $0A18; N: '联合国日 世界发展信息日'),
    (M: $0A1C; N: '世界"男性健康日"'),
    (M: $0A1F; N: '万圣节前晚 世界勤俭日'),
    (M: $0B01; N: '万圣节'),
    (M: $0B02; N: '万灵节'),
    (M: $0B07; N: '十月社会主义革命纪念日'),
    (M: $0B08; N: '中国记者日'),
    (M: $0B09; N: '全国消防安全宣传教育日'),
    (M: $0B0A; N: '世界青年节'),
    (M: $0B0B; N: '国际科学与和平周（本日所属的一周）'),
    (M: $0B0C; N: '孙中山诞辰纪念日'),
    (M: $0B0E; N: '世界糖尿病日'),
    (M: $0B11; N: '国际大学生节 世界学生节'),
    (M: $0B15; N: '世界问候日 世界电视日'),
    (M: $0B1D; N: '国际声援巴勒斯坦人民国际日'),
    (M: $0C01; N: '世界艾滋病日'),
    (M: $0C02; N: '废除一切形式奴役世界日'),
    (M: $0C03; N: '世界残疾人日'),
    (M: $0C04; N: '中国法制宣传日'),
    (M: $0C05; N: '国际经济和社会发展志愿人员日 世界弱能人士日'),
    (M: $0C07; N: '国际民航日'),
    (M: $0C09; N: '一二.九运动纪念日 世界足球日'),
    (M: $0C0A; N: '世界人权日'),
    (M: $0C0B; N: '世界防治哮喘日'),
    (M: $0C0C; N: '西安事变纪念日'),
    (M: $0C0D; N: '南京大屠杀（1937年）纪念日'),
    (M: $0C0F; N: '世界强化免疫日'),
    (M: $0C14; N: '澳门回归纪念日'),
    (M: $0C15; N: '国际篮球日'),
    (M: $0C18; N: '平安夜'),
    (M: $0C19; N: '圣诞节'),
    (M: $0C1A; N: '毛泽东诞辰纪念日 圣诞节送礼日'),
    (M: $0C1D; N: '国际生物多样性日')
    );

  FeastOfLunars: array[0..11] of FeastOfLunarStr = (
    (M: $0101; N: '春节'),
    (M: $010F; N: '元宵节'),
    (M: $0201; N: '中和节'),
    (M: $0202; N: '龙抬头节'),
    (M: $0317; N: '妈祖生辰'),
    (M: $0707; N: '七夕情人节'),
    (M: $070F; N: '中元节(鬼节、盂兰盆)'),
    (M: $080F; N: '中秋节'),
    (M: $0909; N: '重阳节 中国老年节'),
    (M: $0C08; N: '腊八节'),
    (M: $0C17; N: '腊八节'),
    (M: $0C18; N: '小年')
    );

  HeavenlyStemsStr: array[0..9] of string[2] =
  ('甲', '乙', '丙', '丁', '戊', '己', '庚', '辛', '壬', '癸');
  EarthlyBranchesStr: array[0..11] of string[2] =
  ('子', '丑', '寅', '卯', '辰', '巳', '午', '未', '申', '酉', '戌', '亥');
  TwelveAnimalsStr: array[0..11] of string[2] =