查找日历转换的代码
ml =新数组(31，28，31，30，31，30，31，30，31，30，31)；
nm = new Array()；
nm[0]=新数组(0，" 0217 "，" 0318 "，" 0417 "，" 0517 "，" 0615 "，" 0715 "，" 0814 "，" 0912 "，" 111 "，" 65438
nm[1]=新数组(0，" 0206 "，" 0308 "，" 0406 "，" 0506 "，" 0605 "，" 0704 "，" 0803 "，" 0901 "，" 1001 "，" 1030 "，" 1129 "，" 1228))；
nm[2]=新数组(5，" 0127 "，" 0225 "，" 0326 "，" 0424 "，" 0524 "，" 0622 "，" 0722 "，" 0820 "，" 0919 "，" 1019 "，" 1117 "，" 117 "，" 1217 "，" 65438
nm[3]=新数组(0，" 0214 "，" 0315 "，" 0414 "，" 0513 "，" 0611 "，" 0711 "，" 0810 "，" 0908 "，" 1008 "，" 165438
nm[4]=新数组(0，" 0203 "，" 0305 "，" 0403 "，" 0503 "，" 0601 "，" 0630 "，" 0730 "，" 0828 "，" 0927 "，" 1027 "，" 1125)"；
nm[5]=新数组(3，" 0124 "，" 0222 "，" 0324 "，" 0422 "，" 0522 "，" 0620 "，" 0719 "，" 0818 "，" 0916 "，" 1016 "，" 116 "，" 114 "，" 1438 "
nm[6]=新数组(0，" 0212 "，" 0312 "，" 0411 "，" 0510 "，" 0609 "，" 0708 "，" 0806 "，" 0905 "，" 1004 "，" 1103 "，" 1202 "，" 108
nm[7]=新数组(8，" 0131 "，" 0302 "，" 0331 "，" 0430 "，" 0529 "，" 0628 "，" 0727 "，" 0825 "，" 0924 "，" 1023 "，" 1122 "，" 1221 "，" 138
nm[8]=新数组(0，" 0218 "，" 0320 "，" 0419 "，" 0617 "，" 0717 "，" 0815 "，" 0913 "，" 1013 "，" 113 "，" 165438 "
nm[9]=新数组(0，" 0208 "，" 0309 "，" 0408 "，" 0508 "，" 0606 "，" 0706 "，" 0804 "，" 0903 "，" 1002 "，" 11 "，" 11 "，" 1130 "，" 1230 ")；
nm[10]=新数组(6，" 0128 "，" 0227 "，" 0327 "，" 0426 "，" 0525 "，" 0624 "，" 0724 "，" 0822 "，" 0921 "，" 1020 "，" 1119 "，" 1218 "，" 65438
nm[11]=新数组(0，" 0215 "，" 0317 "，" 0415 "，" 0615 "，" 0665438 "，" 0713 "，" 0811 "，" 0910 "，" 10638
nm[12]=新数组(0，" 0205 "，" 0306 "，" 0405 "，" 0504 "，" 0602 "，" 0702 "，" 0731 "，" 0830 "，" 0929 "，" 1028 "，" 1127)"；
nm[13]=新数组(4，" 0125 "，" 0224 "，" 0325 "，" 0424 "，" 0523 "，" 0621 "，" 0721 "，" 0819 "，" 0918 "，" 1017 "，" 1165438
nm[14]=新数组(0，" 0213 "，" 0314 "，" 0412 "，" 0512 "，" 0610 "，" 0709 "，" 0808 "，" 0906 "，" 1006 "，" 1104 "，" 1204 "，
nm[15]=新数组(0，" 0202 "，" 0303 "，" 0402 "，" 0501 "，" 0531 "，" 0629 "，" 0728 "，" 0827 "，" 0925 "，" 1024 "，" 1123)"；
nm[16]=新数组(3，" 0121 "，" 0220 "，" 0322 "，" 0421 "，" 0520 "，" 0619 "，" 0718 "，" 0816 "，" 0915 "，" 1014 "，" 65438
nm[17]=新数组(0，" 0209 "，" 0311 "，" 0410 "，" 0509 "，" 0608 "，" 0708 "，" 0806 "，" 0904 "，" 1004 "，" 1102 "，" 12365448
nm[18]=new Array(7，" 0130 "，" 0228 "，" 0329 "，" 0427 "，" 0527 "，" 0626 "，" 0725 "，" 0824 "，" 0922 "，" 1022 "，" 1120 "，" 1220 "，" 1318))；
nm[19]=新数组(0，" 0217 "，" 0318 "，" 0417 "，" 0516 "，" 0615 "，" 0714 "，" 0813 "，" 0912 "，" 165438+"
nm[20]=新数组(0，" 0206 "，" 0308 "，" 0406 "，" 0505 "，" 0604 "，" 0703 "，" 0802 "，" 0901 "，" 0930 "，" 1030 "，" 1129 "，" 1228))；
nm[21]=新数组(5，" 0127 "，" 0225 "，" 0327 "，" 0425 "，" 0524 "，" 0623 "，" 0722 "，" 0821 "，" 0919 "，" 1019 "，" 118 "，" 165438 "
nm[22]=新数组(0，" 0215 "，" 0315 "，" 0414 "，" 0513 "，" 0611 "，" 0711 "，" 0809 "，" 0908 "，" 1007 "，" 1106)
nm[23]=新数组(0，" 0203 "，" 0305 "，" 0403 "，" 0503 "，" 0601 "，" 0630 "，" 0730 "，" 0828 "，" 0926 "，" 1026 "，" 1125 "，" 1224))；
nm[24]=新数组(4，" 0123 "，" 0222 "，" 0324 "，" 0422 "，" 0522 "，" 0620 "，" 0719 "，" 0818 "，" 0916 "，" 1015 "，" 114 "，" 65438+"
nm[25]=新数组(0，" 0211 "，" 0313 "，" 0412 "，" 0511 "，" 0610 "，" 0709 "，" 0807 "，" 0906 "，" 1005 "，" 165438 "，" 65438
nm[26]=新数组(8，" 0131 "，" 0301 "，" 0331 "，" 0429 "，" 0529 "，" 0627 "，" 0727 "，" 0825 "，" 0924 "，" 1023 "，" 1121 "，" 12265448
nm[27]=新数组(0，" 0218 "，" 0320 "，" 0418 "，" 0617 "，" 0716 "，" 0815 "，" 0913 "，" 1013 "，" 113 "，"
nm[28]=新数组(0，" 0207 "，" 0309 "，" 0407 "，" 0507 "，" 0606 "，" 0705 "，" 0804 "，" 0903 "，" 1002 "，" 11 "，" 11 "，" 1130 "，" 1230 ")；
nm[29]=新数组(6，" 0128 "，" 0227 "，" 0328 "，" 0426 "，" 0526 "，" 0624 "，" 0724 "，" 0823 "，" 0921 "，" 1021 "，" 1120 "，" 120 "，" 1219 "，" 15438
nm[30]=新数组(0，" 0216 "，" 0317 "，" 0415 "，" 0514 "，" 0613 "，" 0712 "，" 0811 "，" 0909 "，" 1009 "，" 1108)
nm[31]=新数组(0，" 0205 "，" 0306 "，" 0405 "，" 0504 "，" 0602 "，" 0702 "，" 0731 "，" 0829 "，" 0928 "，" 1028 "，" 1126)"；
nm[32]=新数组(4，" 0125 "，" 0224 "，" 0325 "，" 0424 "，" 0523 "，" 0621 "，" 0721 "，" 0819 "，" 0917 "，" 1017 "，" 115 "，"
nm[33]=新数组(0，" 0213 "，" 0315 "，" 0413 "，" 0611 "，" 0710 "，" 0809 "，" 0907 "，" 1006 "，" 165438 "，" 65438 "
nm[34]=新数组(0，" 0202 "，" 0303 "，" 0401 "，" 0501 "，" 0531 "，" 0629 "，" 0728 "，" 0827 "，" 0925 "，" 1024 "，" 1123 "，" 1222))；
nm[35]=新数组(2，" 0121 "，" 0220 "，" 0321 "，" 0420 "，" 0520 "，" 0618 "，" 0718 "，" 0816 "，" 0915 "，" 1014 "，" 165438
nm[36]=新数组(0，" 0209 "，" 0310 "，" 0409 "，" 0509 "，" 0607 "，" 0707 "，" 0806 "，" 0904 "，" 1004 "，" 1102 "，" 1202 "，" 1231))；
nm[37]=新数组(6，" 0129 "，" 0228 "，" 0329 "，" 0428 "，" 0527 "，" 0626 "，" 0726 "，" 0824 "，" 0923 "，" 1023 "，" 1121 "，" 1221 "，" 121 "，" 1365438
nm[38]=新数组(0，" 0217 "，" 0318 "，" 0416 "，" 0614 "，" 0714 "，" 0812 "，" 0911 "，" 1065438+"
nm[39]=新数组(0，" 0206 "，" 0308 "，" 0406 "，" 0505 "，" 0604 "，" 0703 "，" 0802 "，" 0831 "，" 0930 "，" 1029 "，" 1128 "，" 1228 ")；
nm[40]=新数组(5，" 0127 "，" 0225 "，" 0327 "，" 0425 "，" 0524 "，" 0623 "，" 0722 "，" 0820 "，" 0919 "，" 1018 "，" 1117 "，" 1217 "，" 65438
nm[41]=新数组(0，" 0215 "，" 0316 "，" 0415 "，" 0514 "，" 0612 "，" 0712 "，" 0810 "，" 0908 "，" 1008 "，" 1106)
nm[42]=新数组(0，" 0204 "，" 0304 "，" 0403 "，" 0503 "，" 0601 "，" 0630 "，" 0730 "，" 0828 "，" 0926 "，" 1026 "，" 1124 "，" 1224))；
nm[43]=新数组(3，" 0123 "，" 0221 "，" 0323 "，" 0422 "，" 0521 "，" 0620 "，" 0719 "，" 0818 "，" 0916 "，" 1015 "，" 165438 "
nm[44]=新数组(0，" 0210 "，" 0312 "，" 0411 "，" 0511 "，" 0609 "，" 0709 "，" 0807 "，" 0906 "，" 1005 "，" 1103 "，" 1203 "，
nm[45]=新数组(8，" 0131 "，" 0301 "，" 0331 "，" 0430 "，" 0529 "，" 0628 "，" 0727 "，" 0826 "，" 0925 "，" 1024 "，" 1122 "，" 1222 "，" 15438
nm[46]=新数组(0，" 0219 "，" 0319 "，" 0418 "，" 0517 "，" 0616 "，" 0716 "，" 0814 "，" 0913 "，" 1012 "，" 165438
nm[47]=新数组(0，" 0207 "，" 0309 "，" 0407 "，" 0507 "，" 0605 "，" 0705 "，" 0803 "，" 0902 "，" 1002 "，" 1031 "，" 1130)"；
nm[48]=新数组(5，" 0128 "，" 0227 "，" 0328 "，" 0426 "，" 0526 "，" 0624 "，" 0723 "，" 0822 "，" 0921 "，" 1020 "，" 1119 "，" 1219 "，" 1219 "，"
nm[49]=新数组(0，" 0216 "，" 0318 "，" 0416 "，" 0515 "，" 0614 "，" 0713 "，" 0811 "，" 0910 "，" 109 "，" 165438
函数长度(y，m){
if((m = = 2)& amp；& amp((y+50)%4==0))返回29；
否则返回ml[(m+11)% 12]；
}
函数ctog(表单){
y = form . year . selectedindex；
m = form . month . selectedindex+1；
d = form . day . selectedindex+1；
if((表格r . checked)& amp；& amp(m！= nm[y][0]){
Form.answer.value= "此日期不存在"；
返回；
}
if(((form . r . checked)& amp；& amp(m = = nm[y][0])| |((nm[y][0]>；0)& amp；& amp(m & gtnm[y][0]))m = m+1；
outm=Number(nm[y][m])。substring(0，2))；
outd=Number(nm[y][m])。substring(2，4))+d-1；
if(outd & gt；长度(y，outm)){
outd=outd-length(y，outm)；
outm = outm+1；
}
outy = y+1950；
if(outm & gt；12){
outm = outm-12；
outy = outy+1；
}
form . answer . value = " "+outy+"-"+outm+"-"+outd+" "；
}
函数gtoc(表单){
y = form . year . selectedindex；
m = form . month . selectedindex+1；
d = form . day . selectedindex+1；
if(d & gt；长度(y，m)){
Form.answer.value= "此日期不存在"；
返回；
}
md =字符串(d)；
if(MD . length & lt；2)MD = " 0 "+MD；
md =字符串(m)+MD；
if(MD . length & lt；4)MD = " 0 "+MD；
for(I = 0；我& lt=12;i++) {
if((Number(nm[y][I+1])& gt；Number(md))||(i+1==nm[y]。长度))断；
}
if(i==0){
if(y==0){
Form.answer.value= "超出计算范围"；
返回；
}
y = y-1；
i=(nm[y])。长度)-1；
md =字符串(数字(MD)+1200)；
if(Number(nm[y][I])& gt；数(MD))I = I-1；
}
if(nm[y][i]。substring(0，2)==md.substring(0，2)) outd=Number(md.substring(2，4))-Number(nm[y][i]。substring(2，4))+1；
else outd=length(y，Number(nm[y][i])。substring(0，2)))+Number(md.substring(2，4))-Number(nm[y][i]。substring(2，4))+1；
outm = I；
r =
if(nm[y][0]！=0){
if(outm = = nm[y][0]+1)rn = " leap "；
if(outm & gt；nm[y][0])outm = outm-1；
}
outy = y+1950；
Form.answer.value= "农历"+outy+"年"+r+outm+"月"+outd+"日"；
}
& lt/script & gt；
& lt表单& gt
农历日期:19
& lt选项& gt50 & lt/option & gt；
& lt选项& gt51 & lt；/option & gt；
& lt选项& gt52 & lt/option & gt；
& lt选项& gt53 & lt/option & gt；
& lt选项& gt54 & lt/option & gt；
& lt选项& gt55 & lt/option & gt；
& lt选项& gt56 & lt/option & gt；
& lt选项& gt57 & lt/option & gt；
& lt选项& gt58 & lt/option & gt；
& lt选项& gt59 & lt/option & gt；
& lt选项& gt60 & lt/option & gt；
& lt选项& gt61 & lt；/option & gt；
& lt选项& gt62 & lt/option & gt；
& lt选项& gt63 & lt/option & gt；
& lt选项& gt64 & lt/option & gt；
& lt选项& gt65 & lt/option & gt；
& lt选项& gt66 & lt/option & gt；
& lt选项& gt67 & lt/option & gt；
& lt选项& gt68 & lt/option & gt；
& lt选项& gt69 & lt/option & gt；
& lt选项& gt70 & lt/option & gt；
& lt选项& gt71 & lt；/option & gt；
& lt选项& gt72 & lt/option & gt；
& lt选项& gt73 & lt/option & gt；
& lt选项& gt74 & lt/option & gt；
& lt选项& gt75 & lt/option & gt；
& lt选项& gt76 & lt/option & gt；
& lt选项& gt77 & lt/option & gt；
& lt选项& gt78 & lt/option & gt；
& lt选项& gt79 & lt/option & gt；
& ltoption selected = " selected " & gt80 & lt/option & gt；
& lt选项& gt81 & lt；/option & gt；
& lt选项& gt82 & lt/option & gt；
& lt选项& gt83 & lt/option & gt；
& lt选项& gt84 & lt/option & gt；
& lt选项& gt85 & lt/option & gt；
& lt选项& gt86 & lt/option & gt；
& lt选项& gt87 & lt/option & gt；
& lt选项& gt88 & lt/option & gt；
& lt选项& gt89 & lt/option & gt；
& lt选项& gt90 & lt/option & gt；
& lt选项& gt91 & lt；/option & gt；
& lt选项& gt92 & lt/option & gt；
& lt选项& gt93 & lt/option & gt；
& lt选项& gt94 & lt/option & gt；
& lt选项& gt95 & lt/option & gt；
& lt选项& gt96 & lt/option & gt；
& lt选项& gt97 & lt/option & gt；
& lt选项& gt98 & lt/option & gt；
& lt选项& gt99 & lt/option & gt；
& lt/select & gt；年份< select size = " 1 " name = " month " >
& ltoption selected = " selected " & gt1 & lt；/option & gt；
& lt选项& gt2 & lt/option & gt；
& lt选项& gt3 & lt/option & gt；
& lt选项& gt4 & lt/option & gt；
& lt选项& gt5 & lt/option & gt；
& lt选项& gt6 & lt/option & gt；
& lt选项& gt7 & lt/option & gt；
& lt选项& gt8 & lt/option & gt；
& lt选项& gt9 & lt/option & gt；
& lt选项& gt10 & lt；/option & gt；
& lt选项& gt11 & lt；/option & gt；
& lt选项& gt12 & lt；/option & gt；
& lt/select & gt；月份< select size="1" name="day " >
& ltoption selected = " selected " & gt1 & lt；/option & gt；
& lt选项& gt2 & lt/option & gt；
& lt选项& gt3 & lt/option & gt；
& lt选项& gt4 & lt/option & gt；
& lt选项& gt5 & lt/option & gt；
& lt选项& gt6 & lt/option & gt；
& lt选项& gt7 & lt/option & gt；
& lt选项& gt8 & lt/option & gt；
& lt选项& gt9 & lt/option & gt；
& lt选项& gt10 & lt；/option & gt；
& lt选项& gt11 & lt；/option & gt；
& lt选项& gt12 & lt；/option & gt；
& lt选项& gt13 & lt；/option & gt；
& lt选项& gt14 & lt；/option & gt；
& lt选项& gt15 & lt；/option & gt；
& lt选项& gt16 & lt；/option & gt；
& lt选项& gt17 & lt；/option & gt；
& lt选项& gt18 & lt；/option & gt；
& lt选项& gt19 & lt；/option & gt；
& lt选项& gt20 & lt/option & gt；
& lt选项& gt21 & lt；/option & gt；
& lt选项& gt22 & lt/option & gt；
& lt选项& gt23 & lt/option & gt；
& lt选项& gt24 & lt/option & gt；
& lt选项& gt25 & lt/option & gt；
& lt选项& gt26 & lt/option & gt；
& lt选项& gt27 & lt/option & gt；
& lt选项& gt28 & lt/option & gt；
& lt选项& gt29 & lt/option & gt；
& lt选项& gt30 & lt/option & gt；
& lt/select & gt；day < input type = " checkbox " name = " r " value = " on "/& gt；闰月
& lt/form & gt；