怎么判断是否是闰月？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎么判断是否是闰月？

共有5737人关注过本帖树形打印复制链接主题：怎么判断是否是闰月？

我爱狐表011

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：139 积分：1090 威望：0 精华：0 注册：2013/2/18 16:09:00

怎么判断是否是闰月？ 发帖心情

Post By：2013/5/6 20:13:00 [只看该作者]

这个窗口我是想实现：点击Button1按钮，DateTimePicker1自动显示春节的第一天（阳历）

此代码具有通用性吗？

闰月用：true 不闰月用：false

如果遇到润12月的时候，还起作用吗（我现在的代码中设置是False）？????

怎么实现通用性呢？？？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:kkk.table

[此贴子已经被作者于2013-5-6 20:34:15编辑过]

fjlclxj

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：321 积分：2468 威望：0 精华：2 注册：2013/1/16 19:33:00

Post By：2013/5/6 23:00:00 [只看该作者]

http://baike.baidu.com/view/19617.htm

有生之年是闰不了12月的嘞。

夕然

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：619 积分：3656 威望：0 精华：1 注册：2012/6/13 22:00:00

Post By：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

主题：怎么判断是否是闰月？