- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 怎么判断是否是闰月？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=32704)
-- 发布时间：2013/5/6 20:13:00
-- 怎么判断是否是闰月？
这个窗口我是想实现：点击Button1按钮，DateTimePicker1自动显示春节的第一天（阳历）
此代码具有通用性吗？
闰月用：true 不闰月用：false
如果遇到润12月的时候，还起作用吗（我现在的代码中设置是False）？????
怎么实现通用性呢？？？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:kkk.table |
[此贴子已经被作者于2013-5-6 20:34:15编辑过]
-- 发布时间：2013/5/6 23:00:00
--
http://baike.baidu.com/view/19617.htm
有生之年是闰不了12月的嘞。
-- 发布时间：2013/5/6 23:11:00
--
请参考
Dim ln As New Lunar(#3/17/2002#)
ln = New Lunar(#8/25/2006#)
Output.show(ln.LunarDate)
If ln.IsLeapMonth Then
Output.Show("这是闰月!")
End If