＋设为首页 ＋添加到收藏夹
网上流传很多计算公农历的源代码,很多,但是居然没有vb的,晕, 所以..... 用法: 以l开始的方法均为阴历,以s开始的方法均为公历 基本的两个初使函数: linitdate:用农历年月日初使化日期对象 sinitdate: 用公历年月日初使化日期对象 其它的方法看下面的一小段代码吧 示例代码 private sub command1_click() dim t as clsdate dim y as long dim m as long dim d as long dim st as single dim et as single dim da as date dim j as long dim ret as long set t = new clsdate ´t.sinitdate 1900, 1, 1 t.linitdate 2047, 5, 12, false ´农历2047年5月12日,非闰月 debug.print t.lyear if t.isleap = false then debug.print t.lmonth else debug.print " 闰 " & t.lmonth end if debug.print t.cdaystr(t.lday) ´农历日期中文大写 debug.print t.ganzhi(t.lyear) ´求干支 debug.print t.yearattribute(t.lyear) ´农历年的属相 debug.print t.syear ´ 公历年 debug.print t.smonth ´ 公历月 debug.print t.sday ´ 公历日 debug.print t.sweekday ´公历星期 debug.print t.era(t.syear)´ 公历纪元 debug.print t.constellation(t.smonth, t.sday) ´ 星座 debug.print "week:" & t.wholiday ´ 按第几个星期几计算的假日 debug.print "solar" & t.sholiday ´ 按公历计算的假日 debug.print "lunar" & t.lholiday ´ 按阴历计算的假日 debug.print t.lsolarterm ´ 计算节气 ´以下为速度测试,很快吧. st = timer with t for y = 1900 to 2049 for m = 1 to 12 for d = 1 to 28 .linitdate y, m, d, false next next next end with ´t.printf et = timer debug.print et - st set t = nothing end sub 以下为代码:
... 下一页