[原创]公开电脑医生、福星、通胜万年历2014年2月最新历算源码 [中华农历论坛]

//以下與農曆曆算無關
//---每日黄曆等等---//
function jcr(d){
var jcrjx;
if(d=='建') jcrjx='宜：出行,上任,會友,上書,見工 忌：動土,開倉,嫁娶,納採';
if(d=='除') jcrjx='宜：除服,療病,出行,拆卸,入宅 忌：求官,上任,開張,搬家,探病';
if(d=='滿') jcrjx='宜：祈福,祭祀,結親,開市,交易 忌：服藥,求醫,栽種,動土,遷移';
if(d=='平') jcrjx='宜：祭祀,修墳,塗泥,餘事勿取 忌：移徙.入宅.嫁娶.開市.安葬';
if(d=='定') jcrjx='宜：交易,立券,會友,簽約,納畜 忌：種植,置業,賣田,掘井,造船';
if(d=='執') jcrjx='宜：祈福,祭祀,求子,結婚,立約 忌：開市,交易,搬家,遠行';
if(d=='破') jcrjx='宜：求醫,赴考,祭祀,餘事勿取 忌：動土,出行,移徙,開市,修造';
if(d=='危') jcrjx='宜：經營,交易,求官,納畜,動土 忌：登高,行船.安床.入宅.博彩';
if(d=='成') jcrjx='宜：祈福,入學,開市,求醫,成服 忌：詞訟,安門,移徙';
if(d=='收') jcrjx='宜：祭祀,求財,簽約,嫁娶,訂盟 忌：開市.安床.安葬.入宅.破土';
if(d=='開') jcrjx='宜：療病,結婚,交易,入倉,求職 忌：安葬,動土,針灸';
if(d=='閉') jcrjx='宜：祭祀,交易,收財,安葬 忌：宴會,安床,出行,嫁娶,移徙';
return(jcrjx);
}
function ciytu(m,d){
var ms=floor((m%12)/2),ds=(d%12),vd=ds-(ms*2),cv=round(rem((vd),12));
var yise='#FF0000';if(cv==1||cv==2||cv==4||cv==6||cv==7)yise='#000033';
var cst='赤眼圖：'+ciytust[cv]+' ';
return cst;
}
function cyclical6(lM,lD){//通勝建日
var num=(lM)%12,num2=(lD)%12,num3=num2-num;
var md=round(rem(num3,12));
var s=jcName[md];
return s;
}
function cyclical7(lM,lD){//值日（黑、黃道）
 var num=(lM%12),num2=(lD%12),num3=num2-(2*num);
 var md=round(rem(num3,12));
 var s=zrxName[md];
 return s;
}
function Get6you(omm,odd){//六曜
var k;
k = round(rem((abs(omm) + odd + 4),6));
return Rokuyou[k];
}
function CalConv2(lY,lM,lD,lunM1,lunD1){//大事不宜
var yy=lY%12,mm=lM%12,dd=lD%12,y=lY%10,d=lD%10;var dy=d+''+dd;
if ((yy==0&&dd==6)||(yy==6&&dd==0)||(yy==1&&dd==7)||(yy==7&&dd==1)||(yy==2&&dd==8)||(yy==8&&dd==2)||(yy==3&&dd==9)||(yy==9&&dd==3)||(yy==4&&dd==10)||(yy==10&&dd==4)||(yy==5&&dd==11)||(yy==11&&dd==5)) {return '日值歲破大事不宜';}
else if ((mm==0&&dd==6)||(mm==6&&dd==0)||(mm==1&&dd==7)||(mm==7&&dd==1)||(mm==2&&dd==8)||(mm==8&&dd==2)||(mm==3&&dd==9)||(mm==9&&dd==3)||(mm==4&&dd==10)||(mm==10&&dd==4)||(mm==5&&dd==11)||(mm==11&&dd==5)) {return '日值月破大事不宜';}
else if ((y==0&&dy=='911')||(y==1&&dy=='55')||(y==2&&dy=='111')||(y==3&&dy=='75')||(y==4&&dy=='311')||(y==5&&dy=='95')||(y==6&&dy=='511')||(y==7&&dy=='15')||(y==8&&dy=='711')||(y==9&&dy=='35')) {return '日值上朔大事不宜';}
else if ((lunM1==1&&lunD1==13)||(lunM1==2&&lunD1==11)||(lunM1==3&&lunD1==9)||(lunM1==4&&lunD1==7)||(lunM1==5&&lunD1==5)||(lunM1==6&&lunD1==3)||(lunM1==7&&lunD1==1)||(lunM1==7&&lunD1==29)||(lunM1==8&&lunD1==27)||(lunM1==9&&lunD1==25)||(lunM1==10&&lunD1==23)||(lunM1==11&&lunD1==21)||(lunM1==12&&lunD1==19)) {return '日值楊公十三忌大事不宜';}
else{return 0;}
}
function CalConv(lD){
 var d=(lD%10),dd=(lD%12);
return '◆'+AnimalIdx[dd]+'日沖('+Gan5[d]+Zhi3[dd]+')'+AnimalIdx2[dd]+'-煞'+sfw[dd]+'方-害'+Zhai[dd]+'-刑'+Zxin[dd];
}
function yts(y2){
var t=tsName[round(rem(y2,60))];
return '太歲：'+t+'';
}
function jzny(d){//六十甲支纳音
var gz=([d]%60+1);
var s=new Array(
 '海中金','爐中火','大林木','路旁土','劍鋒金',
 '山頭火','洞下水','城牆土','白臘金','楊柳木',
 '泉中水','屋上土','霹雷火','松柏木','常流水',
 '沙中金','山下火','平地木','壁上土','金箔金',
 '佛燈火','天河水','大驛土','釵釧金','桑松木',
 '大溪水','沙中土','天上火','石榴木','大海水'
 );
 return s[floor((gz-1)/2)];
}
function jznyy(d){//六十甲支五行
var gz=([d]%60+1);
var s=new Array(
 '金','火','木','土','金','火','水','土','金',
 '木','水','土','火','木','水','金','火','木',
 '土','金','火','水','土','金','木','水','土',
 '火','木','水');
 return s[floor((gz-1)/2)];
}
function minjinlu(v){
var Glu=new Array("癸","‘無’","甲","乙","‘無’","丙戊",
"丁己","‘無’","庚","辛","‘無’","壬","‘無’");
var bsg2='(進祿'+Glu[(v) %12]+')';
return bsg2;
}
function caisfus(lD2){
var d5=(lD2%5);var d10=(lD2%10);var d60=(lD2%60);var dv=((lD2+1)%60);
var v1=round(rem(dv-2,24)/3);v2=v1;if(v1==8)v2=0;var d20=round((d60+2)/3);
var ygs='西南西南正西西北東北正北東北東北正東東南'.substring(2*d10,2*d10+2);//陽貴
var yigs='東北正北西北正西西南西南西南正南東南正東'.substring(2*d10,2*d10+2);//陰貴
var jmf='正北西南正東東南西北正西東北正南正北西南正東東南西北正西東北正南正北西南正東東南'.substring(2*d20-2,2*d20);//吉門
var smfw=new Array('東北','正西','東南','正南','正北','西北','正東','西南');var smf=smfw[v2];//生門
var kmfw=new Array('西北','正南','東北','正東','正西','西南','正北','東南');var kmf=kmfw[v2];//開門
var simfw=new Array('西南','正東','西北','正北','正南','東南','正西','東北');var simf=simfw[v2];//死門
var wgf='東南東北西南正東正南正北正西西北東南東北'.substring(2*d10,2*d10+2);//五鬼
var xsfw=new Array('東北','西北','西南','正南','東南');var xs=xsfw[d5];//喜神方位
var fs='東南東南正東正東正北正南西南西南西北正西'.substring(2*d10,2*d10+2);//福神方位
var csfw=new Array('東北','西南','正北','正東','正南');var cs= csfw[floor(((d10+1)-1)/2)];//財神方位
//貴神
var gs= '東北正北正西西北東北西南西南正南正東東南東北西南正西西北東北西南東北東北正東正東西南西南正西正西東北正北東北東北正東東南西南西南正西西北東北西南東北東北正東正東西南正北西北西北西南西南西南正南正東正東東北西南正西正西西南西南西南東北正東正東'.substring(2*d60,2*d60+2);
var ssfw2='擇吉方位增補： 陽貴：'+ygs+'◆陰貴：'+yigs+'◆吉門：'+jmf+'◆生門：'+smf+' 開門：'+kmf+'◆死門：'+simf+'◆五鬼：'+wgf+'';
var ssfw='<a tips3="'+ssfw2+'">喜神：'+xs+'◆福神：'+fs+'◆財神：'+cs+'◆貴神：'+gs+' ▲本日胎神：'+taisen[(lD2)%60]+'--'+taisen2[(lD2)%60]+'</a>▲';
return ssfw;
}
function jzwx(v){
var jzwxs=new Array('04','03','01','05','02','03','01','04','02','03','05','04','02','01','05','04','03','01','05','02','03','01','04','02','03','05','04','02','01','05');
var v1=round(rem(v,60)/2);
if(v1==30)v1=0;
return jzwxs[v1];
}
function lungk(v){
var szdx=new Array('一','二','三','四','五','六','七','八','九','十','十一','十二','十三','十四','十五','十六','十七','十八');
var s,s1='',t=round(rem(v,10)),d=round(rem(v,12)),bc=0,cy=0;
s=szdx[(7-t+10)%10]+'日得辛 ';
s+=szdx[(4-d+12)%12]+'龍治水 ';
s+=szdx[(11-d+12)%12]+'屠共豬 ';
s+=szdx[(1-d+12)%12]+'牛耕地(田) ';
s+=szdx[(6-d+12)%12]+'馬運糧 ';
s+=szdx[(2-t+10)%10]+'人分丙(又:'+szdx[(8-t+10)%10]+'壬共'+szdx[(2-t+10)%10]+'丙) ';
for(j=0;j<18;j++){var i=round(rem((v+j+1),60)),nywh=jzwx(i);
if(nywh=='05'&&(i%2)==1&&cy==0){s+='蠶吃'+szdx[j]+'葉 ';cy=1;}//陽
if(nywh=='03'&&(i%2)==0&&bc==0){s1+=szdx[j]+'姑把蠶 ';bc=1;}//陰
}
return s+s1;}

回复标题：
上传附件：

	签名：不显示显示

主题：[原创]公开电脑医生、福星、通胜万年历2014年2月最新历算源码

[原创]公开电脑医生、福星、通胜万年历2014年2月最新历算源码