本源码为“公历、农历互换组件”，对需要源码的同学可以直接点击下载，本站免费免注册提供下载。
公历、农历互换组件 TransDate (DELPHI 7 转换日期1900 -- 2056)
TransDate组件可将公历转换成农历，公历包括星座，星期。农历数据包含节气，干支历，生肖。
也可将农历转换成公历，转换过程自动完成。即输入公历日期同时得到农历日期。输入农历日期同时得到公历日期。组件拖入窗口，无需运行在属性栏就可以直接完成公历、农历的互相转换。
公历、农历互换组件完成公历和农历之间的互相转换，组件的属性如下：
属性:LunarDate:TLunarDate;
TLunarDate类由下列属性和方法组成
属性:lDay:Word; 农历年的日。
属性:lMonth:Word; 农历年的月。
属性:lYear: Word; 农历年的年。
属性:AnimalYear:String; 生肖年，只读。
属性:cDat: String; 干支历日，只读。
属性:cMonth:String; 干支历月，只读。
属性:cYear:String; 干支历年，只读。
属性:FeastOfLunar:String; 农历节日，只读。
属性:FlagLeapMonth:Boolean; 如果为 True，当月为闰月，只读。
属性:MaxMonthDays:Integer; 农历年当月的最大天数，只读。
属性:SolarTerm:String; 节气，只读。
方法:constructor Create(AOwner: TComponent); virtual;
方法: destructor Destroy; override;
方法: function GetMonthDays(LY, LM: Integer): integer; 由给出的年、月，返回农历当月的最大天数。
属性 BookOfChange: Boolean;
属性 BookOfChange 属性为 True 时，干支历以节气为基准。
中国的八字批命中的四柱中使用的干支是以节气为基准划分年、月、日，和农历年的月有一些区别。如果你查农历的目的为了得到四柱干支，可以将这个属性设置为 True。以每年的立春为农历新的一年开始，以24个节气中的12个节气为月的第一天。
BookOfChange 属性为 False，干支历以农历的年、月为基准，这和国家公布的农历相同。
属性
