以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  农历一年范围(不指定某一年)怎么表示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81920)

--  作者:jpg7
--  发布时间:2016/3/8 21:29:00
--  农历一年范围(不指定某一年)怎么表示
农历一年范围(不指定某一年)怎么表示
--  作者:大红袍
--  发布时间:2016/3/8 21:37:00
--  

不明白你的意思,这个意思?

 

Dim nstart As New Lunar(2016,1,1,False)
Dim nend As new Lunar(2017,1,1,False)
msgbox(nstart.SolarDate & "   " & nend.SolarDate )


--  作者:jpg7
--  发布时间:2016/3/8 21:45:00
--  
今年的农历范围:去年年春节阳历日期(t1),今年春节的阳历日期(t2)。t>=t1 and t < t2 就是一年的农历范围啊,如果指定某一年(比如2007),那就只能表示一年。到2008年就不管用了。。。
--  作者:大红袍
--  发布时间:2016/3/8 22:13:00
--  

Dim nstart As New Lunar(date.Today.Year,1,1,False)
Dim nend As new Lunar(date.Today.Year+1,1,1,False)
msgbox(nstart.SolarDate & "   " & nend.SolarDate )