设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 18093|回复: 85
打印 上一主题 下一主题

农历控件

[复制链接]
1#
发表于 2004-9-16 06:26:00 | 显示全部楼层

农历控件

谢谢,

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

该控件在窗体设计视图中的样子,大小不可更改。

在窗体视图中运行时不会显示出来,所以放到哪里都无所谓。

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

    calendar.DateNow = [公历日期]

就可以在窗体里显示转换后的结果了。如下图:    转换的日期范围为1920年1月1日至2031年12月31日,在这个范围之外的日期不显示农历日期和节气,只显示属相和干支。当然,这100多年一般就够用了。挺棒的吧。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-5-16 07:05 , Processed in 0.095372 second(s), 25 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表