Foxtable(狐表)用户栏目专家坐堂 → 农历一年范围(不指定某一年)怎么表示


  共有2013人关注过本帖树形打印复制链接

主题:农历一年范围(不指定某一年)怎么表示

帅哥哟,离线,有人找我吗?
jpg7
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:437 积分:3682 威望:0 精华:0 注册:2014/4/28 18:50:00
农历一年范围(不指定某一年)怎么表示  发帖心情 Post By:2016/3/8 21:29:00 [只看该作者]

农历一年范围(不指定某一年)怎么表示

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:437 积分:3682 威望:0 精华:0 注册:2014/4/28 18:50:00
  发帖心情 Post By:2016/3/8 21:45:00 [只看该作者]

今年的农历范围:去年年春节阳历日期(t1),今年春节的阳历日期(t2)。t>=t1 and t < t2 就是一年的农历范围啊,如果指定某一年(比如2007),那就只能表示一年。到2008年就不管用了。。。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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 )


 回到顶部