《献给和我采用同样核心代码的人们做参考》发出后,得到网友的支持、也很高兴有人用,因我在2008年10月前是开源的,现在只再公开2008年10月后有更新的源码,没更新的现在公开没意义等有更新后再找时间公开,注:本主题是接本论坛《献给和我采用同样核心代码的人们做参考》主题之后。
function qisiehou(y1,m1,d1){///////72候
var djt=D0(y1,m1,d1);var xs1='';
if(djt<=floor(S(y1,-1,1))+3){xs1='鹖鴠不鳴';}
else if(djt>floor(S(y1,-1,1))+3 && djt<=floor(S(y1,-1,1))+8){xs1='虎始交';}
else if(djt>floor(S(y1,-1,1))+8 && djt<floor(S(y1,0,1))-1){xs1='荔挺出';}
else if(djt>=floor(S(y1,0,1))-1 && djt<=floor(S(y1,0,1))+3){xs1='蚯蚓結';}
else if(djt>floor(S(y1,0,1))+3 && djt<=floor(S(y1,0,1))+8){xs1='麋鹿解';}
else if(djt>floor(S(y1,0,1))+8 && djt<floor(S(y1,1,1))-1){xs1='水泉動';}
else if(djt>=floor(S(y1,1,1))-1 && djt<=floor(S(y1,1,1))+3) {xs1='雁北鄉';}
else if(djt>floor(S(y1,1,1))+3 && djt<=floor(S(y1,1,1))+8) {xs1='鵲始巢';}
else if(djt>floor(S(y1,1,1))+8 && djt<floor(S(y1,2,1))-1){xs1='鳺始鴝';}
else if(djt>=floor(S(y1,2,1))-1 && djt<=floor(S(y1,2,1))+3){xs1='雞始乳';}
else if(djt>floor(S(y1,2,1))+3 && djt<=floor(S(y1,2,1))+8){xs1='征鳥厲疾';}
else if(djt>floor(S(y1,2,1))+8 && djt<floor(S(y1,3,1))-1){xs1='水澤腹堅';}
else if(djt>=floor(S(y1,3,1))-1 && djt<=floor(S(y1,3,1))+3){xs1='東風解凍';}
else if(djt>floor(S(y1,3,1))+3 && djt<=floor(S(y1,3,1))+8){xs1='蟄蟲始振';}
else if(djt>floor(S(y1,3,1))+8 && djt<floor(S(y1,4,1))-1){xs1='魚上冰';}
else if(djt>=floor(S(y1,4,1))-1 && djt<=floor(S(y1,4,1))+3){xs1='獺祭魚';}
else if(djt>floor(S(y1,4,1))+3 && djt<=floor(S(y1,4,1))+8){xs1='候雁北';}
else if(djt>floor(S(y1,4,1))+8 && djt<floor(S(y1,5,1))-1){xs1='草木萌動';}
else if(djt>=floor(S(y1,5,1))-1 && djt<=floor(S(y1,5,1))+3){xs1='桃始華';}
else if(djt>floor(S(y1,5,1))+3 && djt<=floor(S(y1,5,1))+8){xs1='倉庚鳴';}
else if(djt>floor(S(y1,5,1))+8 && djt<floor(S(y1,6,1))-1){xs1='鷹化爲鳩';}
else if(djt>=floor(S(y1,6,1))-1 && djt<=floor(S(y1,6,1))+3){xs1='玄鳥至';}
else if(djt>floor(S(y1,6,1))+3 && djt<=floor(S(y1,6,1))+8){xs1='雷乃發聲';}
else if(djt>floor(S(y1,6,1))+8 && djt<floor(S(y1,7,1))-1){xs1='始電';}
else if(djt>=floor(S(y1,7,1))-1 && djt<=floor(S(y1,7,1))+3){xs1='桐始華';}
else if(djt>floor(S(y1,7,1))+3 && djt<=floor(S(y1,7,1))+8){xs1='田鼠化爲鴽';}
else if(djt>floor(S(y1,7,1))+8 && djt<floor(S(y1,8,1))-1){xs1='虹始見';}
else if(djt>=floor(S(y1,8,1))-1 && djt<=floor(S(y1,8,1))+3){xs1='萍始生';}
else if(djt>floor(S(y1,8,1))+3 && djt<=floor(S(y1,8,1))+8){xs1='鳴鳩拂其羽';}
else if(djt>floor(S(y1,8,1))+8 && djt<floor(S(y1,9,1))-1){xs1='戴勝降於桑';}
else if(djt>=floor(S(y1,9,1))-1 && djt<=floor(S(y1,9,1))+3){xs1='螻蟈鳴';}
else if(djt>floor(S(y1,9,1))+3 && djt<=floor(S(y1,9,1))+8){xs1='蚯蚓出';}
else if(djt>floor(S(y1,9,1))+8 && djt<floor(S(y1,10,1))-1){xs1='王瓜生';}
else if(djt>=floor(S(y1,10,1))-1 && djt<=floor(S(y1,10,1))+3){xs1='苦菜秀';}
else if(djt>floor(S(y1,10,1))+3 && djt<=floor(S(y1,10,1))+8){xs1='靡草死';}
else if(djt>floor(S(y1,10,1))+8 && djt<floor(S(y1,11,1))-1){xs1='麥秋至';}
else if(djt>=floor(S(y1,11,1))-1 && djt<=floor(S(y1,11,1))+3){xs1='螳螂生';}
else if(djt>floor(S(y1,11,1))+3 && djt<=floor(S(y1,11,1))+8){xs1='鵙始鳴';}
else if(djt>floor(S(y1,11,1))+8 && djt<floor(S(y1,12,1))-1){xs1='反舌無聲';}
else if(djt>=floor(S(y1,12,1))-1 && djt<=floor(S(y1,12,1))+3){xs1='鹿角解';}
else if(djt>floor(S(y1,12,1))+3 && djt<=floor(S(y1,12,1))+8){xs1='蜩始鳴';}
else if(djt>floor(S(y1,12,1))+8 && djt<floor(S(y1,13,1))-1){xs1='半夏生';}
else if(djt>=floor(S(y1,13,1))-1 && djt<=floor(S(y1,13,1))+3){xs1='溫風至';}
else if(djt>floor(S(y1,13,1))+3 && djt<=floor(S(y1,13,1))+8){xs1='蟀蟋居壁';}
else if(djt>floor(S(y1,13,1))+8 && djt<floor(S(y1,14,1))-1){xs1='鷹如鷙';}
else if(djt>=floor(S(y1,14,1))-1 && djt<=floor(S(y1,14,1))+3){xs1='腐草爲螢';}
else if(djt>floor(S(y1,14,1))+3 && djt<=floor(S(y1,14,1))+8){xs1='土潤溽暑';}
else if(djt>floor(S(y1,14,1))+8 && djt<floor(S(y1,15,1))-1){xs1='大雨時行';}
else if(djt>=floor(S(y1,15,1))-1 && djt<=floor(S(y1,15,1))+3){xs1='涼風至';}
else if(djt>floor(S(y1,15,1))+3 && djt<=floor(S(y1,15,1))+8){xs1='白露降';}
else if(djt>floor(S(y1,15,1))+8 && djt<floor(S(y1,16,1))-1){xs1='寒蟬鳴';}
else if(djt>=floor(S(y1,16,1))-1 && djt<=floor(S(y1,16,1))+3){xs1='鷹乃祭鳥';}
else if(djt>floor(S(y1,16,1))+3 && djt<=floor(S(y1,16,1))+8){xs1='天地始肅';}
else if(djt>floor(S(y1,16,1))+8 && djt<floor(S(y1,17,1))-1){xs1='禾乃登';}
else if(djt>=floor(S(y1,17,1))-1 && djt<=floor(S(y1,17,1))+3){xs1='鴻雁來';}
else if(djt>floor(S(y1,17,1))+3 && djt<=floor(S(y1,17,1))+8){xs1='玄鳥歸';}
else if(djt>floor(S(y1,17,1))+8 && djt<floor(S(y1,18,1))-1){xs1='群鳥養羞';}
else if(djt>=floor(S(y1,18,1))-1 && djt<=floor(S(y1,18,1))+3){xs1='雷乃收聲';}
else if(djt>floor(S(y1,18,1))+3 && djt<=floor(S(y1,18,1))+8){xs1='蟄蟲坯戶';}
else if(djt>floor(S(y1,18,1))+8 && djt<floor(S(y1,19,1))-1){xs1='水始涸';}
else if(djt>=floor(S(y1,19,1))-1 && djt<=floor(S(y1,19,1))+3){xs1='鴻雁來賓';}
else if(djt>floor(S(y1,19,1))+3 && djt<=floor(S(y1,19,1))+8){xs1='雀入大水爲蛤';}
else if(djt>floor(S(y1,19,1))+8 && djt<floor(S(y1,20,1))-1){xs1='菊有黃花';}
else if(djt>=floor(S(y1,20,1))-1 && djt<=floor(S(y1,20,1))+3){xs1='豺乃祭獸';}
else if(djt>floor(S(y1,20,1))+3 && djt<=floor(S(y1,20,1))+8){xs1='草木黃落';}
else if(djt>floor(S(y1,20,1))+8 && djt<floor(S(y1,21,1))-1){xs1='蟄蟲鹹俯';}
else if(djt>=floor(S(y1,21,1))-1 && djt<=floor(S(y1,21,1))+3){xs1='水始冰';}
else if(djt>floor(S(y1,21,1))+3 && djt<=floor(S(y1,21,1))+8){xs1='地始凍';}
else if(djt>floor(S(y1,21,1))+8 && djt<floor(S(y1,22,1))-1){xs1='雉入大水爲蜃';}
else if(djt>=floor(S(y1,22,1))-1 && djt<=floor(S(y1,22,1))+3){xs1='虹藏不見';}
else if(djt>floor(S(y1,22,1))+3 && djt<=floor(S(y1,22,1))+8){xs1='天氣騰地氣降';}
else if(djt>floor(S(y1,22,1))+8 && djt<floor(S(y1,23,1))-1){xs1='閉塞成冬';}
else if(djt>=floor(S(y1,23,1))-1 && djt<=floor(S(y1,23,1))+3){xs1='鹖鴠不鳴';}
else if(djt>floor(S(y1,23,1))+3 && djt<=floor(S(y1,23,1))+8){xs1='虎始交';}
else if(djt>floor(S(y1,23,1))+8 && djt<floor(S(y1,24,1))-1){xs1='荔挺出';}
else if(djt>=floor(S(y1,24,1))-1 && djt<=floor(S(y1,24,1))+3){xs1='蚯蚓結';}
else if(djt>floor(S(y1,24,1))+3 && djt<=floor(S(y1,24,1))+8){xs1='麋鹿解';}
else if(djt>floor(S(y1,24,1))+8 && djt<floor(S(y1,25,1))-1){xs1='水泉動';}
else if(djt>=floor(S(y1,25,1))-1 && djt<=floor(S(y1,25,1))+3) {xs1='雁北鄉';}
else if(djt>floor(S(y1,25,1))+3) {xs1='鵲始巢';}
return xs1;
}
调用:qisiehou(y1,m1,d1)////算72候