- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 获取指定农历月份的天数 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=147757)
-- 发布时间：2020/3/23 15:37:00
-- 获取指定农历月份的天数
老师：
请问 ，已知农历年份和农历月份，如果获取该月农历天数？
-- 发布时间：2020/3/23 15:49:00
--
我也想知道，估计只能笨方法：遍历
-- 发布时间：2020/3/23 16:11:00
--
没有办法转换。网上的方法都是把所有月份数据记录下来，然后查表获取
-- 发布时间：2020/3/23 16:53:00
--
想了一个笨方法，不妨一试。
Dim y As Integer = 2020
Dim m As Integer = 1
Dim i As Integer
For d As Integer = 1 To 31
Try
Dim ln As New Lunar(y,m,d,False)
Catch ex As Exception
i = d - 1
Exit For
End Try
Next
Output.Show(i)