文件名称:
公历、农历互换组件 <img src="/images/sunny.gif" align="absmi
开发工具:
文件大小: 1mb
下载次数: 0
上传时间: 2006-02-23
详细说明： 公历、农历互换组件 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，干支历以农历的年、月为基准，这和国家公布的农历相同。属性: Constellation: String;Constellation 为只读属性，返回当日的星座。属性 Date: TDate;公历的年、月、日。属性Feast: String;返回当日的阳历节日，当一天有多过一个的节日时，用空格分开。注：节日多以中国节日和世界节日为准，其中感恩节有两个，一个是美国的习俗在11月，一个是加拿大的习俗在10月。属性:ISO8601: Boolean;ISO8601 属性为 True 时，Week 属性的星期排列以星期一为每周的第一天。ISO8601为False时，Week属性的排列以星期天为每周的第一天。属性LeapMonth: Boolean;LeapMonth为True时如果当月是闰月，则设置农历的闰月。如果当月不是闰月，不做任何动作。属性:MaxMonthDays:Integer;返回公历年当月的最大天数。属性:Week:Integer;返回星期对应的数值，当ISO8601=True 时，星期一返回 1，星期天返回 7。当 ISO8601=False 时，星期天返回 1，星期六返回 7。属性:property LunarDateSeparator: TLunar_DateSeparator；定义农历字符串中间的间隔符号，缺省为“年”、“月”、“日”、“闰”。TLunar_DateSeparator定义如下：TLunar_DateSeparator = record sYear: string[2]; sMonth: string[2]; sDay: string[2]; sLeapMonth: string[2]; end;方法： constructor Create(AOwner: TComponent); override;方法： destructor Destroy; override;方法： procedure DateToLunarDate(sDate: TDate; var LD: TLunarDate);将公历转换成农历。一般情况不需调用这个方法，当Date或LunarDate不管哪一个日历发生变化时，对方跟随发生变化。方法： function LunarDateToDate(iDate: TLunarDate): TDate;将农历转换成公历。一般情况不需调用这个方法，当Date或LunarDate不管哪一个日历发生变化时，对方跟随发生变化。方法：function LunarDateToStr: string;将TLunarDate格式的农历转换成字符串形式，2004年10月10日。日历中间的分隔符号如年、月、日由属性LunarDateSeparator定义。方法：procedure StrToLunarDate(DateStr: string; var LD: TLunarDate);将字符串格式的农历转换成TLunarDate格式的农历。事件：OnChange;日历发生变化时促发该事件。为了测试TransDate组件，写了一个测试程序，可以从测试程序中得知如何使用TransDate组件。测试程序也是一个实用程序，可以直接使用。日历数据从1900年至2056年，其中1935年到2056年的数据进行过校验，前面的数据就懒得校验了。使用过程中有什么问题，请发Email (gzgzlxg@hotmail.com) 与我联系。节日：公历变动节日22个，固定节日129个。农历：14个。附全部组件源码，测试程序源码，和数据单元源码，和测试程序。打开测试程序前先安装TransDate组件。 ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
