Encuentre el código para la conversión del calendario
ml = nueva matriz (31, 28, 31, 30, 31, 30, 31, 30, 31, 30, 31
<); p>nm = new Array();nm[0]=new array(0, "0217", "0318", "0417", "0517", "0615", "0715", "0814","0912","111","65438
nm[1]=nueva matriz(0,"0206","0308","0406","0506","0605" , "0704", "0803", "0901", "1001", "1030", "1129", "1228));
nm[2]=new array(5,"0127" , "0225", "0326", "0424", "0524", "0622", "0722", "0820", "0919", "1019", "1117", "117", "1217", " 65438
nm[3]=nueva matriz(0,"0214","0315","0414","0513","0611","0711","0810","0908", " 1008 ", " 165438
nm[4] = nueva matriz (0, " 0203 ", " 0305 ", " 0403 ", " 0503 ", " 0601 ", " 0630 ", " 0730 " ,"0828","0927","1027","1125)";
nm[5]=nueva matriz(3,"0124","0222","0324","0422" , "0522", "0620", "0719", "0818", "0916", "1016", "116", "114", "1438"
nm[6]=nueva matriz (0, "0212", "0312", "0411", "0510", "0609", "0708", "0806", "0905", "1004", "1103", "1202", "108
nm[7]=nueva matriz(8,"0131","0302","0331","0430","0529","0628","0727","0825","0924 "," 1023 ", " 1122 ", " 1221 ", " 138
nm[8] = nueva matriz (0, " 0218 ", " 0320 ", " 0419 ", " 0617 ", " 0717","0815","0913","1013","113","165438"
nm[9]=nueva matriz(0,"0208","0309","0408" , "0508", "0606", "0706", "0804", "0903", "1002", "11", "11", "1130", "1230");
nm [10]=nueva matriz(6,"0128","0227","03
27 "," 0426 ", " 0525 ", " 0624 ", " 0724 ", " 0822 ", " 0921 ", " 1020 ", " 1119 ", " 1218 ", " 65438
nm[ 11] = nueva matriz (0, "0215", "0317", "0415", "0615", "0665438", "0713", "0811", "0910", "10638
nm [12] = nueva matriz (0, "0205", "0306", "0405", "0504", "0602", "0702", "0731", "0830", "0929", "1028", " 1127)";
nm[13]=nueva matriz(4,"0125","0224","0325","0424","0523","0621","0721"," 0819","0918","1017","1165438
nm[14]=nueva matriz(0,"0213","0314","0412","0512","0610", " 0709 ", " 0808 ", " 0906 ", " 1006 ", " 1104 ", " 1204 ",
nm[15] = nueva matriz (0, " 0202 ", " 0303 ", " 0402","0501","0531","0629","0728","0827","0925","1024","1123)";
nm[16]=nueva matriz (3, "0121", "0220", "0322", "0421", "0520", "0619", "0718", "0816", "0915", "1014", "65438
nm[17]=nueva matriz(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]=nueva matriz(0,"0217","0318"," 0417 "," 0516 ", " 0615 ", " 0714 ", " 0813 ", " 0912 ", " 165438 "
nm[20] = nueva matriz (0, " 0206 ", " 0308 " , "0406", "0505", "0604", "0703", "0802", "0901", "0930", "1030", "1129", "1228));
nm [21] = nueva matriz (5, "0127", "0225", "0327", "0425", "0524", "0623", "0722", "0821", "0919", "1019", " 118 ","
165438 "
nm[22]=nueva matriz(0,"0215","0315","0414","0513","0611","0711","0809","0908" , "1007", "1106")
nm[23]=nueva matriz (0, "0203", "0305", "0403", "0503", "0601", "0630", " 0730","0828","0926","1026","1125","1224));
nm[24]=nueva matriz(4,"0123","0222", " 0324 "," 0422 ", " 0522 ", " 0620 ", " 0719 ", " 0818 ", " 0916 ", " 1015 ", " 114 ", " 65438 "
nm[25] = nueva matriz(0,"0211","0313","0412","0511","0610","0709","0807","0906","1005","165438","65438
nm[26]=nueva matriz(8,"0131","0301","0331","0429","0529","0627","0727","0825","0924" , " 1023 ", " 1121 ", " 12265448
nm[27] = nueva matriz (0, " 0218 ", " 0320 ", " 0418 ", " 0617 ", " 0716 ", " 0815 " , "0913", "1013", "113", "
nm[28]=nueva matriz(0,"0207","0309","0407","0507","0606 " , "0705", "0804", "0903", "1002", "11", "11", "1130", "1230");
nm[29]=nueva matriz( 6, "0128", "0227", "0328", "0426", "0526", "0624", "0724", "0823", "0921", "1021", "1120", "120", " 1219 "," 15438
nm[30]=nueva matriz(0,"0216","0317","0415","0514","0613","0712","0811" , "0909", "1009", "1108)
nm[31]=nueva matriz(0,"0205","0306","0405","0504","0602"," 0702 ","0731","0829","0928","1028","1126)";
nm[32]=nueva matriz(4,"0125","0224"," 0325 "," 0424 ", " 0523 ", " 0621 ", " 0721 ", " 0819 ", " 0917 ", " 1017 ", " 115 ", "
nm[33]=nueva matriz (0, "0213", "0315", "0413", "0611",
" 0710 ", " 0809 ", " 0907 ", " 1006 ", " 165438 ", " 65438 "
nm[34] = nueva matriz (0, " 0202 ", " 0303 ", " 0401 "," 0501 ", " 0531 ", " 0629 ", " 0728 ", " 0827 ", " 0925 ", " 1024 ", " 1123 ", " 1222)); =nueva matriz(2,"0121","0220","0321","0420","0520","0618","0718","0816","0915","1014","165438
nm[36]=nueva matriz(0,"0209","0310","0409","0509","0607","0707","0806","0904","1004" , "1102", "1202", "1231));
nm[37]=nueva matriz(6,"0129","0228","0329","0428","0527" , "0626", "0726", "0824", "0923", "1023", "1121", "1221", "121", "1365438
nm[38]=nueva matriz( 0, "0217", "0318", "0416", "0614", "0714", "0812", "0911", "1065438"
nm[39]=nueva matriz(0, "0206", "0308", "0406", "0505", "0604", "0703", "0802", "0831", "0930", "1029", "1128", "1228");
nm[40]=nueva matriz(5,"0127","0225","0327","0425","0524","0623","0722","0820","0919 "," 1018 ", " 1117 ", " 1217 ", " 65438
nm[41] = nueva matriz (0, " 0215 ", " 0316 ", " 0415 ", " 0514 ", " 0612","0712","0810","0908","1008","1106)
nm[42]=nueva matriz(0,"0204","0304","0403" , "0503", "0601", "0630", "0730", "0828", "0926", "1026", "1124", "1224));
nm[43]= nueva matriz(3,"0123","0221","0323","0422","0521","0620","0719","0818","0916","1015","165438"
nm[44]=nueva matriz(0,"0210","0312","0411","0511","0609","0709","0807","0906","1005" ," 1103 ","
1203",
nm[45]=nueva matriz(8,"0131","0301","0331","0430","0529","0628","0727","0826 ","0925","1024","1122","1222","15438
nm[46]=nueva matriz(0,"0219","0319","0418"," 0517","0616","0716","0814","0913","1012","165438
nm[47]=nueva matriz(0,"0207","0309", "0407", "0507", "0605", "0705", "0803", "0902", "1002", "1031", "1130)";
nm[48]=nuevo matriz(5, "0128", "0227", "0328", "0426", "0526", "0624", "0723", "0822", "0921", "1020", "1119", "1219 "," 1219 ", "
nm[49]=nueva matriz(0, "0216", "0318", "0416", "0515", "0614", "0713", "0811 "," 0910 ", " 109 ", " 165438
Longitud de la función (y, m){
if((m = = 2) amp; amp((y 50) 4==0)) devuelve 29;
De lo contrario, devuelve ml[(m 11) 12];
}
Función ctog(formulario){
y = formulario .índice seleccionado
m = formulario .índice seleccionado
d = formulario . p>if((form r . checked) amp; amp(m!= nm[y][0]){
Form.answer.value= "Esta fecha no existe";
Devolver;
}
if(((forma . r . marcada) amp; amp(m = = nm[y][0])| |(( nm [y][0]>0) amp; amp(m gtnm[y][0]))m = m 1
outm=Número(nm[y][m]). subcadena(0, 2));
outd=Número(nm[y][m]).
substring(2, 4)) d-1;
if(outd gt; longitud (y, outm)){
outd=outd-length(y, outm);
outm = outm 1;
}
outy = y 1950;
if(outm gt;12){
outm = outm-12;
outy = outy 1;
}
valor de respuesta del formulario = " " outy "-" outm ". -" outd " ";
}
Función gtoc(formulario){
y = formulario . año . índice seleccionado;
m = formulario mes . índice seleccionado 1;
d = día formulario .
if(d gt; longitud (y, m)){
Form.answer.value= "Esta fecha no existe";
Return;
}
md =String(d);
if(MD . longitud <2)MD = " 0 " MD;
md = cadena(m) MD;
if(MD . longitud <4 )MD = " 0 " MD;
for(I = 0;ilt=12;i) {
if((Número(nm[y][I 1]) gt;Número( md))||(i 1==nm[y].Longitud)) apagado;
}
if(i==0){
if(y==0){
Form.answer.value= "Fuera del rango de cálculo";
Retorno;
}
y = y-1;
i=(nm[y]). longitud)-1;
md = cadena (número (MD) 1200
if (Número (nm[y][I]) gt; número (MD)) I = I-1;
}
if(nm[y][i].substring(0,2)==md.substring(0,2)) outd= Número (md.substring(2, 4))-Number(nm[y][i].substring(2, 4)) 1;
else outd=length(y,Number(nm[y ] [i]). subcadena(0, 2))) Número(md. subcadena(2, 4))-Número(nm[y][i].
subcadena(2, 4)) 1;
outm = I;
r =
if(nm[y][0]!=0){
if(outm = = nm[y][0] 1)rn = " salto "
if(outm gt; nm[y][0])outm = outm; -1;
}
outy = y 1950;
Form.answer.value= "calendario lunar" outy "año" r outm "mes" outd " día";
}
lt/script gt;
lt form gt
Fecha del calendario lunar: 19
lt opción gt50 lt/opción gt;
lt opción gt51 lt;/opción gt;
lt opción gt52 lt/opción gt;
lt opción gt53 lt/opción gt;
lt opción gt54 lt/opción gt;
lt opción gt55 lt/opción gt;
lt opción gt56 lt/opción gt;
lt opción gt57 lt/opción gt;
lt opción gt58 lt/opción gt;
lt opción gt59 lt/opción gt;
lt opción gt60 lt/opción gt;
lt opción gt61 lt;/opción gt;
lt opción gt62 lt/opción gt;
lt opción gt63 lt/opción gt;
lt opción gt64 lt/opción gt;
lt opción gt65 lt/opción gt;
lt opción gt66 lt/ opción gt ;
lt opción gt67 lt/opción gt;
lt opción gt68 lt/opción gt;
lt opción gt69 lt/opción gt;
lt opción gt70 lt/opción gt;
lt opción gt71 lt;/opción gt;
lt opción gt72 lt/opción gt;
lt opción gt73 lt/opción gt;
lt opción gt74 lt/opción gt;
lt opción gt75 lt/opción gt;
lt opción gt76 lt /opción gt;
lt opción gt77 lt/opción gt;
lt opción gt78 lt/opción gt;
lt opción gt79 lt/opción gt;< /p >
ltoption seleccionado = " seleccionado " gt80 lt/option gt；
ltoption gt81 lt;/option gt;
lt
opción gt82 lt/opción gt;
lt opción gt83 lt/opción gt;
lt opción gt84 lt/opción gt;
lt opción gt85 lt/opción gt;
lt opción gt86 lt/opción gt;
lt opción gt87 lt/opción gt;
lt opción gt88 lt/opción gt;
lt opción gt89 lt/opción gt;
lt opción gt90 lt/opción gt;
lt opción gt91 lt;/opción gt;
lt opción gt92 lt/opción gt;
lt opción gt93 lt/opción gt;
lt opción gt94 lt/opción gt;
lt opción gt95 lt/ opción gt;
lt opción gt96 lt/opción gt;
lt opción gt97 lt/opción gt;
lt opción gt98 lt/opción gt;
p>
lt opción gt99 lt/opción gt;
lt/select gt; seleccione tamaño = " 1 " nombre = " mes "
ltoption seleccionado = " seleccionado " gt1 lt;/opción gt;
ltoption gt2 lt/opción gt;
ltoption gt3 lt/opción gt;
ltoption gt4 lt /opción gt;
ltoptiongt5 lt/optiongt;
ltoptiongt6 lt/optiongt;
ltoptiongt7 lt/optiongt;
lt opción gt8 lt/opción gt;
lt opción gt9 lt/opción gt;
lt opción gt10 lt;/opción gt;
lt opción gt11 lt; /option gt;
lt option gt12 lt;/option gt;
lt/select gt;mes< select size="1" name=" día " >>p>
ltoption seleccionado = " seleccionado " gt1 lt;/opción gt;
ltoption gt2 lt/opción gt;
ltoption gt3 lt/ opción gt;
lt opción gt4 lt/opción gt;
lt opción gt5 lt/opción gt;
lt opción gt6 lt/opción gt;
p>
lt opción gt7 lt/opción gt;
lt opción gt8 lt/o
ption gt;
lt opción gt9 lt/opción gt;
lt opción gt10 lt;/opción gt;
lt opción gt11 lt;/opción gt;
opción lt gt12 lt;/opción gt;
opción lt gt13 lt;/opción gt;
opción lt gt14 lt;/opción gt;
p>
lt opción gt15 lt;/opción gt;
lt opción gt16 lt;/opción gt;
lt opción gt17 lt;/opción gt ;
lt opción gt18 lt;/opción gt;
lt opción gt19 lt;/opción gt;
lt opción gt20 lt/opción gt;
lt opción gt21 lt;/opción gt;
lt opción gt22 lt/opción gt;
lt opción gt23 lt/opción gt;
lt opción gt24 lt /opción gt;
lt opción gt25 lt/opción gt;
lt opción gt26 lt/opción gt;
lt opción gt27 lt /opción gt;
lt opción gt28 lt/opción gt;
lt opción gt29 lt/opción gt;
lt opción gt30 lt/opción gt;
lt/select gt; día < tipo de entrada = " checkbox " nombre = " r " valor = " on "/ gt mes bisiesto
lt/form gt;