一个可以显示阴历的JS代码

　　复制代码 代码如下:
<scriptlanguage=JavaScript>
<!--
varbsYear;
varbsDate;
varbsWeek;
vararrLen=8;//数组长度
varsValue=0;//当年的秒数
vardayiy=0;//当年第几天
varmiy=0;//月份的下标
variyear=0;//年份标记
vardayim=0;//当月第几天
varspd=86400;//每天的秒数

varyear1999=30;29;29;30;29;29;30;29;30;30;30;29;//354
varyear2000=30;30;29;29;30;29;29;30;29;30;30;29;//354
varyear2001=30;30;29;30;29;30;29;29;30;29;30;29;30;//384
varyear2002=30;30;29;30;29;30;29;29;30;29;30;29;//354
varyear2003=30;30;29;30;30;29;30;29;29;30;29;30;//355
varyear2004=29;30;29;30;30;29;30;29;30;29;30;29;30;//384
varyear2005=29;30;29;30;29;30;30;29;30;29;30;29;//354
varyear2006=30;29;30;29;30;30;29;29;30;30;29;29;30;

varmonth1999=正月;二月;三月;四月;五月;六月;七月;八月;九月;十月;十一月;十二月
varmonth2001=正月;二月;三月;四月;闰四月;五月;六月;七月;八月;九月;十月;十一月;十二月
varmonth2004=正月;二月;闰二月;三月;四月;五月;六月;七月;八月;九月;十月;十一月;十二月
varmonth2006=正月;二月;三月;四月;五月;六月;七月;闰七月;八月;九月;十月;十一月;十二月
varDn=初一;初二;初三;初四;初五;初六;初七;初八;初九;初十;十一;十二;十三;十四;十五;十六;十七;十八;十九;二十;廿一;廿二;廿三;廿四;廿五;廿六;廿七;廿八;廿九;三十;

varYs=newArray(arrLen);
Ys[0]=919094400;Ys[1]=949680000;Ys[2]=980265600;
Ys[3]=1013443200;Ys[4]=1044028800;Ys[5]=1074700800;
Ys[6]=1107878400;Ys[7]=1138464000;

varYn=newArray(arrLen);//农历年的名称
Yn[0]=己卯年;Yn[1]=庚辰年;Yn[2]=辛巳年;
Yn[3]=壬午年;Yn[4]=癸未年;Yn[5]=甲申年;
Yn[6]=乙酉年;Yn[7]=丙戌年;
varD=newDate();
varyy=D.getYear();
varmm=D.getMonth()+1;
vardd=D.getDate();
varww=D.getDay();
if(ww==0)ww=<fontcolor=RED>星期日;
if(ww==1)ww=星期一;
if(ww==2)ww=星期二;
if(ww==3)ww=星期三;
if(ww==4)ww=星期四;
if(ww==5)ww=星期五;
if(ww==6)ww=<fontcolor=RED>星期六;
ww=ww;
varss=parseInt(D.getTime()/1000);
if(yy<100)yy=19+yy;

for(I=0;I<arrLen;I++)
if(ss>=Ys[I])...{
iyear=I;
sValue=ss-Ys[I];//当年的秒数
}
dayiy=parseInt(sValue/spd)+1;//当年的天数

vardpm=year1999;
if(iyear==1)dpm=year2000;
if(iyear==2)dpm=year2001;
if(iyear==3)dpm=year2002;
if(iyear==4)dpm=year2003;
if(iyear==5)dpm=year2004;
if(iyear==6)dpm=year2005;
if(iyear==7)dpm=year2006;
dpm=dpm.split(;);

varMn=month1999;
if(iyear==2)Mn=month2001;
if(iyear==5)Mn=month2004;
if(iyear==7)Mn=month2006;
Mn=Mn.split(;);

varDn=初一;初二;初三;初四;初五;初六;初七;初八;初九;初十;十一;十二;十三;十四;十五;十六;十七;十八;十九;二十;廿一;廿二;廿三;廿四;廿五;廿六;廿七;廿八;廿九;三十;
Dn=Dn.split(;);

dayim=dayiy;

vartotal=newArray(13);
total[0]=parseInt(dpm[0]);
for(I=1;I<dpm.length-1;I++)total[I]=parseInt(dpm[I])+total[I-1];
for(I=dpm.length-1;I>0;I--)
if(dayim>total[I-1])...{
dayim=dayim-total[I-1];
miy=I;
}
bsWeek=ww;
bsDate=yy+年+mm+月;
bsDate2=dd;
bsYear=农历+Yn[iyear];
bsYear2=Mn[miy]+Dn[dayim-1];
if(ss>=Ys[7]ss<Ys[0])bsYear=Yn[7];
functionCAL()...{
document.write(<tableborder=1cellspacing=3width=90bordercolor=#000000bgcolor=#FFFFFFheight=110cellpadding=2);
document.write(<tr><tdalign=center><b><fontcolor=#008040>+bsDate+</font><br><fontface=Arialsize=6color=#FF8040>+bsDate2+</font><br><fontcolor=#008040><spanstyle=FONT-SIZE:10.5pt>);
document.write(bsWeek+</span><br>+<br></b><fontcolor=#9B4E00>);
document.write(bsYear+<br>+bsYear2+</td></tr></table>);
}
//-->
</script>
<scriptlanguage=javascript>CAL();</script>