接了你的电话后，我就下载来看看，发现你没把大小月有错的地方改过来。例如：2032年11（冬）月只有29天，是小，但是你的显示大。你在电话说你的大小月算法是看每月最后一天如是30就大，29就小。可是我昨晚EXE版看后就去把你的源码下载来看，不是啊。你的大小月算法是用我的《电脑医生万年历》测试版的代码。（注：《知来者》内核没有算大小月的代码，我加上的），你把它理解错了。我的本意是：“每月初一加29，如果是30就大，如果是1就是小。”但我发现这样这种土办法算出来的结果出错多，在调用时做了修正。我当时的修正也是会有出错的。而你现在还是用我早期的方法；所以有错。我在2008年10月就改了。计算代码如下（2008年10月计算法没改）：
function lundsMon(y,m,d){
var lunDt=lunDate(y,m,d);///调用農暦日函數
var lunD=floor(lunDt-floor(lunDt/100)*100); //農暦日數
var rja=lunD-1;////算离这月的初一有多少天
var a96=floor((lunDate(y,m,d-rja+29))-floor((lunDate(y,m,d-rja+29))/100)*100);///算初一加29后日數是多少。
var dszm=''; /////農曆月大或小。
if(a96==30){dszm='大'
}else{dszm='小'
}
return dszm;
}
调用修正代码如下（调用在2008年10月这里有改后）：////////計算農曆月大小。
var dasao=''; var lunMa28=lunMon(y1+1,1,1); var lunMa29=lunMon(y1,m1+1,1);
if(m1==12&&d1>=2&&d1>lunD1){if(lunMa28==lunM1){dasao=lundsMon(y1+1,1,1)}else{dasao=lundsMon(y1,m1,d1)}}else{if(d1>=2&&d1>lunD1){if(lunMa29==lunM1){dasao=lundsMon(y1,m1+1,1)}else{dasao=lundsMon(y1,m1,d1)}}else{dasao=lundsMon(y1,m1,d1)}}
这样错就修正过来了，但是运算多了如是早期的电脑就慢了。我在《电脑医生万年历》1.87版时就把它扔了；现在我的代码如下：
function lundsMon(y,m,d){
var a96=lunDate(y,m,d,1);////月共有多少天。
var dszm=''; /////農曆月大或小。
if(a96==30){dszm='大'
}else{dszm='小'
}
return dszm;
}
调用：dasao=lundsMon(y1,m1,d1);////////計算農曆月大小。
不但简单了，而且不会出错。
[此贴子已经被作者于2009-1-6 12:25:00编辑过]
加好友 
发短信
Post By：2009/1/5 13:02:00
