农历控件
很早以前在留言本中就有个帖子问能不能把公历的日期转换成农历,那时想当然要编一段程序才能解决,不过一直没做。后来发现了这个农历控件,哦,原来有现成的,现在介绍给大家。
控件名称:农历控件1.0.10
软件性质:自由软件,但不得用于商业用途
设计者:尹强(大名鼎鼎的《友情强档》的作者,《VB憩园》的站长)
电子邮件:jackyyin@nease.net
主页:http://vbzone.yeah.net
大小:14k 下载

该控件安装后会出现在控件列表中“农历控件.Calendar”。

该控件在窗体设计视图中的样子,大小不可更改。
在窗体视图中运行时不会显示出来,所以放到哪里都无所谓。

它的属性设置比较简单,只有6个属性:
属性 |
含义
|
DateNow |
要转换的公历日期 |
ChineseDate |
转换后的农历日期 |
ChineseAnimal |
转换后的农历属相 |
ChineseDateType |
农历日期的类型,但不起作用 |
ChineseGanZhi |
转换后的农历干支 |
ChineseSolarTerm |
转换后的农历节气。因为不是每天都有,所以没有的时候就空着了。 |
我们为这个农历控件起名为“calendar”,就可以在窗体中引用它的值了,如下图:

在这个窗体里有一个“公历日期”文本框,用来输入要转换的公历日期,为它的“更新后”事件加入如下代码:
calendar.DateNow = [公历日期]
就可以在窗体里显示转换后的结果了。如下图:

转换的日期范围为1920年1月1日至2031年12月31日,在这个范围之外的日期不显示农历日期和节气,只显示属相和干支。当然,这100多年一般就够用了。挺棒的吧?下载回去试试吧。
《双胞胎工作室》提供
来福/文
|