右栏

中华农历论坛 → 知识讨论区 → 历法知识 → [原创]电脑医生万年历和福星万年历最新历算源码


  共有46874人关注过本帖树形打印

主题：[原创]电脑医生万年历和福星万年历最新历算源码
帅哥哟，离线，有人找我吗？
chwc
 小大  21楼 个性首页 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：黑侠 帖子：603 积分：5315 威望：0 精华：4 注册：2008/4/21 19:06:00 		  发帖心情 Post By：2011/2/28 19:45:00

/*R0*/  1921264848,0.0000000000,0.0000000000,88784984,5.60377527,74.78159857,3440836,0.3283610,73.2971259,2055653,1.7829517,149.5631971,649322,4.522473,76.266071,602248,3.860038,63.735898,496404,1.401399,454.909367,338526,1.580027,138.517497,243508,1.570866,71.812653,190522,1.998094,1.484473,161858,2.791379,148.078724,143706,1.383686,11.045700,93192,0.17437,36.64856,89806,3.66105,109.94569,71424,4.24509,224.34480,46677,1.39977,35.16409,39026,3.36235,277.03499,39010,1.66971,70.84945,36755,3.88649,146.59425,30349,0.70100,151.04767,29156,3.18056,77.75054,25786,3.78538,85.82730,25620,5.25656,380.12777,22637,0.72519,529.69097,20473,2.79640,70.32818,20472,1.55589,202.25340,17901,0.55455,2.96895,15503,5.35405,38.13304,14702,4.90434,108.46122,12897,2.62154,111.43016,12328,5.96039,127.47180,11959,1.75044,984.60033,11853,0.99343,52.69020,11696,3.29826,3.93215,11495,0.43774,65.22037,10793,1.42105,213.29910,9111,4.9964,62.2514,8421,5.2535,222.8603,8402,5.0388,415.5525,7449,0.7949,351.8166,7329,3.9728,183.2428,6046,5.6796,78.7138,5524,3.1150,9.5612,5445,5.1058,145.1098,5238,2.6296,33.6796,4079,3.2206,340.7709,3919,4.2502,39.6175,3802,6.1099,184.7273,3781,3.4584,456.3938,3687,2.4872,453.4249,3102,4.1403,219.8914,2963,0.8298,56.6224,2942,0.4239,299.1264,2940,2.1464,137.0330,2938,3.6766,140.0020,2865,0.3100,12.5302,2538,4.8546,131.4039,2364,0.4425,554.0700,2183,2.9404,305.3462,1979,6.1284,106.9767,1963,0.0411,221.3759,1963,5.2434,84.3428,1849,2.9111,909.8187,1830,4.0111,68.8437,1656,1.9643,79.2350,1643,0.3556,67.6681,1632,4.2306,22.0914,1585,3.1627,225.8293,1563,1.4792,112.9146,1507,5.2419,181.7583,1482,5.6620,152.5321,1477,4.3221,256.5399,1439,1.5305,447.7958,1409,4.4192,462.0229,1404,5.6356,4.4534,1401,1.3908,265.9893,1250,6.2448,160.6089,1249,5.4403,54.1747,1248,4.8898,479.2884,1228,5.9770,59.8037,1197,2.5219,145.6310,1091,4.1539,77.9630,1072,1.7429,528.2065,906,5.620,74.670,900,2.373,74.893,845,0.129,82.858,759,2.137,692.587,719,4.000,128.956,710,5.416,218.407,710,4.220,381.612,710,4.490,293.189,705,0.455,835.037,700,0.040,143.625,690,3.081,69.365,652,4.423,18.159,642,2.711,87.312,630,4.461,275.551,598,0.358,269.921,594,3.838,32.195,594,4.501,8.077,588,5.083,186.212,576,5.896,66.705,575,5.579,2.448,570,1.639,77.229,557,1.072,1059.382,549,5.628,3.181,545,5.694,203.738,542,5.395,278.519,540,6.208,71.600,516,3.233,284.149,503,5.839,191.208,496,2.651,200.769,488,0.064,60.767,477,2.894,39.357,464,2.354,211.815,464,1.434,297.642,455,2.593,490.334,455,4.084,99.161,449,0.280,617.806,437,0.528,209.367,436,2.082,51.206,436,2.101,1514.291,436,2.794,75.745,429,3.080,41.102,420,2.254,81.001,414,0.090,258.024,410,3.050,404.507,405,6.123,24.379,387,0.686,230.565,380,0.058,378.643,368,0.712,125.987,365,5.595,255.055,359,0.009,35.425,359,0.352,426.598,358,4.714,173.942,354,4.657,329.837,326,4.720,134.585,324,4.829,195.140,320,5.486,14.978,308,3.924,116.426,306,3.761,344.703,305,2.555,6208.294,302,0.132,565.116,296,4.211,1364.728,293,3.995,72.334,287,1.850,153.495,262,3.837,831.105,256,1.167,177.874,250,4.242,75.303,248,1.063,105.492,245,5.949,20.607,241,1.605,81.374,234,2.971,46.210,234,4.481,628.852,225,0.407,114.399,220,0.196,180.274,220,2.961,120.358,219,0.248,294.673,217,3.429,241.610,211,4.931,103.093,205,2.304,259.509,194,6.117,414.068,192,5.767,291.704,189,2.236,5.417,188,2.045,408.439,187,3.035,135.549,182,0.784,417.037,182,0.707,391.173,179,4.824,366.486,178,3.980,10138.504,176,1.960,756.323,176,5.508,7.114,172,5.217,41.644,171,2.309,98.900,170,4.950,206.186,170,4.510,288.081,169,4.043,55.659,168,5.258,518.645,167,4.922,422.666,164,5.225,67.359,162,3.273,443.864,162,4.995,73.818,161,3.823,451.940,157,0.663,220.413,155,4.320,760.256,154,4.278,45.577,154,4.707,543.024,152,4.647,155.783,146,2.657,465.955,143,2.078,457.878,142,1.270,159.124,134,5.309,14.015,133,2.889,373.908,129,0.363,96.873,127,0.424,331.322,125,4.305,339.286,123,2.383,141.486,117,3.950,74.260,117,1.837,1289.947,116,4.435,5.938,116,2.512,296.157,115,6.249,767.369,113,4.654,80.198,113,0.831,100.384,113,0.081,558.002,112,1.212,329.725,111,0.750,80.719,111,0.387,216.922,108,3.773,142.450,107,2.394,347.884,107,1.821,306.831,106,0.816,1087.693,105,5.945,328.353,104,2.994,6.220,103,0.698,358.930,101,1.057,92.308,99,4.33,74.52,98,3.73,75.04,97,0.69,977.49,96,5.55,969.62,95,0.80,342.26,94,4.54,28.57,94,4.99,403.13,91,5.17,144.15,91,0.22,333.66,90,0.37,0.96,90,3.80,986.08,89,2.19,74.83,89,5.88,74.73,89,4.74,604.47,89,4.44,154.02,87,5.62,300.61,86,2.83,983.12,85,5.80,6.59,85,1.26,142.14,84,1.84,227.31,83,1.88,387.24,83,2.21,74.94,83,5.86,74.62,80,2.98,526.72,79,5.67,267.47,78,2.73,110.21,76,2.78,88.11,76,4.66,101.87,76,5.41,50.40,75,5.37,373.01,75,1.35,350.33,74,6.21,312.46,73,0.58,367.97,71,3.17,23.58,71,3.65,894.84,71,0.56,92.94,71,4.66,44.73,70,1.52,552.59,70,3.74,546.96,70,3.95,187.70,69,2.45,555.55,69,2.42,235.39,69,4.77,991.71,67,0.86,522.58,66,5.05,30.71,65,4.24,771.30,65,0.69,152.74,65,3.74,536.80,65,5.27,68.19,64,2.37,157.64,64,0.10,681.54,63,4.60,67.88,63,2.90,79.89,63,0.29,119.51,63,5.36,92.05,63,0.34,561.18,62,2.68,130.44,62,2.32,74.03,61,0.58,253.57,
/*R1*/  1479896,3.6720571,74.7815986,71212,6.22601,63.73590,68627,6.13411,149.56320,24060,3.14159,0.00000,21468,2.60177,76.26607,20857,5.24625,11.04570,11405,0.01848,70.84945,7497,0.4236,73.2971,4244,1.4169,85.8273,3927,3.1551,71.8127,3578,2.3116,224.3448,3506,2.5835,138.5175,3229,5.2550,3.9322,3060,0.1532,1.4845,2564,0.9808,148.0787,2429,3.9944,52.6902,1645,2.6535,127.4718,1584,1.4305,78.7138,1508,5.0600,151.0477,1490,2.6756,56.6224,1413,4.5746,202.2534,1403,1.3699,77.7505,1228,1.0470,62.2514,1033,0.2646,131.4039,992,2.172,65.220,862,5.055,351.817,744,3.076,35.164,687,2.499,77.963,647,4.473,70.328,624,0.863,9.561,604,0.907,984.600,575,3.231,447.796,562,2.718,462.023,530,5.917,213.299,528,5.151,2.969,494,0.463,145.631,487,0.706,380.128,460,4.223,12.530,444,2.156,67.668,406,1.230,22.091,381,3.851,3.181,373,5.051,529.691,348,1.749,71.600,339,2.538,18.159,272,3.384,222.860,269,6.241,340.771,259,3.921,59.804,256,2.957,84.343,255,3.504,38.133,238,2.049,269.921,234,0.278,108.461,225,3.910,160.609,222,3.647,137.033,212,0.680,111.430,206,1.534,284.149,201,1.249,69.365,196,4.772,299.126,189,4.413,265.989,163,4.341,33.680,153,5.218,209.367,151,1.990,54.175,137,0.403,195.140,128,2.403,39.618,117,0.396,87.312,107,1.230,225.829,106,0.698,2.448,106,0.171,79.235,105,4.436,305.346,104,2.922,134.585,104,1.816,72.334,104,2.576,191.208,100,4.941,120.358,97,3.81,152.53,95,4.03,82.86,94,5.02,51.21,93,3.09,77.23,86,0.53,145.11,85,0.62,116.43,85,5.72,68.84,85,5.56,344.70,78,1.64,479.29,77,0.08,45.58,76,4.20,73.82,76,3.79,75.74,72,4.31,565.12,72,3.71,408.44,72,3.94,153.50,71,2.38,60.77,65,1.56,106.98,64,1.94,41.64,63,4.19,184.73,62,3.24,422.67,62,4.39,453.42,62,3.90,4.45,60,0.60,74.89,59,1.56,456.39,58,5.33,220.41,57,0.84,146.59,55,1.60,14.98,54,3.73,7.11,53,4.45,426.60,53,5.20,358.93,53,3.50,125.99,52,6.09,404.51,52,1.76,8.08,51,0.37,206.19,51,0.53,490.33,49,5.85,112.91,49,4.26,5.42,49,0.94,99.16,49,3.63,81.00,48,1.97,288.08,46,5.35,152.74,44,3.04,20.61,43,1.26,1514.29,42,0.05,128.96,42,2.51,24.38,41,2.34,277.03,40,5.10,35.42,39,5.49,200.77,39,0.74,347.88,39,4.95,92.94,38,2.06,333.66,38,3.62,173.94,36,3.73,96.87,34,3.68,66.92,33,6.26,1059.38,33,1.38,74.67,32,4.38,221.38,32,0.54,203.74,31,0.80,373.01,31,2.05,230.56,31,2.54,977.49,30,0.71,109.95,30,0.19,387.24,29,5.43,58.11,29,3.11,991.71,28,4.77,415.55,28,0.37,80.20,27,2.15,140.00,27,2.03,536.80,27,1.36,0.96,26,4.53,454.91,26,3.47,144.15,26,5.43,546.96,26,2.57,522.58,25,1.80,143.63,25,5.12,81.37,25,0.55,181.76,25,3.04,14.01,24,3.30,617.81,24,2.20,628.85,24,5.67,443.86,24,5.60,32.20,24,4.95,561.18,24,0.66,46.21,23,3.81,55.14,23,5.85,297.64,22,4.82,135.55,22,4.62,391.17,22,4.59,241.61,22,1.23,41.10,21,5.27,159.12,21,4.19,329.73,21,0.24,465.96,21,0.91,76.48,20,3.16,186.21,20,0.66,66.70,20,1.30,518.65,20,4.91,909.82,
/*R2*/  22440,0.69953,74.78160,4727,1.6990,63.7359,1682,4.6483,70.8494,1650,3.0966,11.0457,1434,3.5212,149.5632,770,0.000,0.000,500,6.172,76.266,461,0.767,3.932,390,4.496,56.622,390,5.527,85.827,292,0.204,52.690,287,3.534,73.297,273,3.847,138.517,220,1.964,131.404,216,0.848,77.963,205,3.248,78.714,149,4.898,127.472,129,2.081,3.181,117,4.934,447.796,114,4.787,145.631,113,1.014,462.023,104,3.586,71.600,99,6.16,224.34,91,0.68,18.16,89,0.23,202.25,88,2.93,62.25,71,6.10,454.91,64,3.39,1.48,64,3.96,67.67,62,3.30,351.82,59,5.56,9.56,58,4.91,22.09,51,3.87,65.22,49,3.75,269.92,44,5.90,71.81,44,1.93,59.80,42,6.14,284.15,42,2.62,151.05,42,2.09,12.53,37,5.91,984.60,36,5.40,77.75,31,4.59,148.08,31,2.27,195.14,28,4.58,77.23,28,4.91,277.03,27,3.53,209.37,26,0.66,120.36,24,5.87,69.36,23,1.04,84.34,23,1.71,160.61,21,2.20,45.58,20,2.32,2.45,17,4.37,54.17,17,4.78,213.30,17,1.86,340.77,16,0.40,265.99,16,3.65,152.74,15,5.44,408.44,14,3.39,358.93,13,1.53,422.67,13,5.25,137.03,13,1.26,134.59,13,4.43,87.31,13,3.03,92.94,12,1.33,51.21,12,3.24,116.43,12,5.10,191.21,12,4.66,41.64,12,3.73,220.41,12,4.17,60.55,11,2.03,7.11,11,1.08,72.33,10,1.19,344.70,10,0.33,70.33,10,5.97,35.16,10,3.06,2.97,10,0.39,415.55,9,2.44,565.12,9,6.05,146.38,9,5.19,225.83,9,6.01,5.42,9,5.82,153.50,9,5.25,347.88,8,3.91,333.66,8,4.49,70.12,8,3.72,14.98,8,2.27,299.13,8,2.26,206.19,8,5.72,55.14,8,0.90,222.86,7,1.51,991.71,7,1.18,96.87,
/*R3*/  1164,4.7345,74.7816,212,3.343,63.736,196,2.980,70.849,105,0.958,11.046,73,1.00,149.56,72,0.03,56.62,55,2.59,3.93,36,5.65,77.96,34,3.82,76.27,32,3.60,131.40,30,3.44,85.83,28,0.43,3.18,27,2.55,52.69,25,5.14,78.71,19,5.13,18.16,18,0.00,0.00,16,5.20,71.60,16,0.37,447.80,15,2.97,145.63,15,5.57,462.02,15,3.86,73.30,11,6.03,138.52,11,3.58,224.34,8,2.62,22.09,8,0.30,127.47,8,1.45,1.48,7,5.44,269.92,7,0.01,151.05,6,4.37,284.15,6,4.23,373.01,5,4.16,195.14,5,0.78,62.25,5,1.84,202.25,5,2.78,120.36,4,3.96,9.56,4,1.84,72.33,4,1.86,152.74,4,1.89,209.37,4,1.05,92.94,4,2.00,65.22,4,1.17,153.50,4,3.93,124.29,3,1.54,148.08,3,1.41,351.82,3,2.99,387.24,3,5.84,160.61,3,6.04,12.53,3,0.79,572.23,3,5.65,134.59,3,2.77,213.30,3,1.99,450.98,
/*R4*/  53,3.01,74.78,10,1.91,56.62,7,5.09,11.05,7,5.43,149.56,4,5.23,131.40,3,1.30,85.83,3,3.14,0.00,3,0.44,63.74,2,6.21,358.93,2,0.92,145.63,2,2.23,440.68),

支持(0) 中立(0) 反对(0)  单帖管理 | 引用 | 回复 回到顶部
帅哥哟，离线，有人找我吗？
chwc
 小大  22楼 个性首页 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：黑侠 帖子：603 积分：5315 威望：0 精华：4 注册：2008/4/21 19:06:00 		  发帖心情 Post By：2011/2/28 19:45:00

new Array(
100000000,//A的倍率
20,188,260,281,293,299,302,359,404,419,422,425,425,638,701,743,746,746,746,//位置索引表
/*L0*/  531188633,0.000000000,0.000000000,1798476,2.9010127,38.1330356,1019728,0.4858092,1.4844727,124532,4.830081,36.648563,42064,5.41055,2.96895,37715,6.09222,35.16409,33785,1.24489,76.26607,16483,0.00008,491.55793,9199,4.9375,39.6175,8994,0.2746,175.1661,4216,1.9871,73.2971,3365,1.0359,33.6796,2285,4.2061,4.4534,1434,2.7834,74.7816,900,2.076,109.946,745,3.190,71.813,506,5.748,114.399,400,0.350,1021.249,345,3.462,41.102,340,3.304,77.751,323,2.248,32.195,306,0.497,0.521,287,4.505,0.048,282,2.246,146.594,267,4.889,0.963,252,5.782,388.465,245,1.247,9.561,233,2.505,137.033,227,1.797,453.425,170,3.324,108.461,151,2.192,33.940,150,2.997,5.938,148,0.859,111.430,119,3.677,2.448,109,2.416,183.243,103,0.041,0.261,103,4.404,70.328,102,5.705,0.112,98,2.81,8.08,86,4.23,490.07,82,5.20,493.04,78,4.16,4.19,74,1.33,529.69,72,5.30,350.33,64,3.55,168.05,63,0.15,182.28,58,3.50,145.11,48,1.11,112.91,48,0.13,484.44,48,2.58,219.89,47,4.57,46.21,47,4.50,173.68,47,3.02,498.67,45,5.47,176.65,39,1.67,213.30,39,2.39,2.92,
/*L1*/  3837687717,0.0000000000,0.0000000000,16604,4.86319,1.48447,15807,2.27923,38.13304,3335,3.6820,76.2661,1306,3.6732,2.9689,605,1.505,35.164,179,3.453,39.618,107,2.451,4.453,106,2.755,33.680,73,5.49,36.65,57,1.86,114.40,57,5.22,0.52,35,4.52,74.78,32,5.90,77.75,30,3.67,388.47,29,5.17,9.56,29,5.17,2.45,26,5.25,168.05,25,4.73,182.28,20,5.79,1021.25,19,1.83,484.44,19,1.32,498.67,15,3.99,32.20,15,4.95,137.03,
/*L2*/  53893,0.00000,0.00000,296,1.855,1.484,281,1.191,38.133,270,5.721,76.266,23,1.21,2.97,9,4.43,35.16,7,0.54,2.45,
/*L3*/  31,0.00,0.00,15,1.35,76.27,12,6.04,1.48,12,6.11,38.13,
/*L4*/  114,3.142,0.000,1,3.18,76.27,
/*L5*/  1,3.14,0.00,
/*B0*/  3088623,1.4410437,38.1330356,27780,5.91272,76.26607,27624,0.00000,0.00000,15448,3.50877,39.61751,15355,2.52124,36.64856,2000,1.5100,74.7816,1968,4.3778,1.4845,1015,3.2156,35.1641,606,2.802,73.297,595,2.129,41.102,589,3.187,2.969,402,4.169,114.399,280,1.682,77.751,262,3.767,213.299,254,3.271,453.425,206,4.257,529.691,140,3.530,137.033,99,4.17,33.68,68,4.67,71.81,
/*B1*/  227279,3.807931,38.133036,1803,1.9758,76.2661,1433,3.1416,0.0000,1386,4.8256,36.6486,1073,6.0805,39.6175,148,3.858,74.782,136,0.478,1.484,70,6.19,35.16,52,5.05,73.30,43,0.31,114.40,37,4.89,41.10,37,5.76,2.97,26,5.22,213.30,19,0.90,453.42,17,4.26,77.75,
/*B2*/  9691,5.5712,38.1330,79,3.63,76.27,72,0.45,36.65,59,3.14,0.00,30,1.61,39.62,
/*B3*/  273,1.017,38.133,
/*B4*/  6,2.67,38.13,
/*B5*/ 
/*R0*/  3007013206,0.0000000000,0.0000000000,27062259,1.32999459,38.13303564,1691764,3.2518614,36.6485629,807831,5.185928,1.484473,537761,4.521139,35.164090,495726,1.571057,491.557929,274572,1.845523,175.166060,135134,3.372206,39.617508,121802,5.797544,76.266071,100895,0.377027,73.297126,69792,3.79617,2.96895,46688,5.74938,33.67962,24594,0.50802,109.94569,16939,1.59422,71.81265,14230,1.07786,74.78160,12012,1.92062,1021.24889,8395,0.6782,146.5943,7572,1.0715,388.4652,5721,2.5906,4.4534,4840,1.9069,41.1020,4483,2.9057,529.6910,4421,1.7499,108.4612,4354,0.6799,32.1951,4270,3.4134,453.4249,3381,0.8481,183.2428,2881,1.9860,137.0330,2879,3.6742,350.3321,2636,3.0976,213.2991,2530,5.7984,490.0735,2523,0.4863,493.0424,2306,2.8096,70.3282,2087,0.6186,33.9402,1977,5.1170,168.0525,1905,1.7219,182.2796,1654,1.9278,145.1098,1499,1.0162,219.8914,1435,1.7001,484.4444,1403,6.0766,173.6816,1403,4.5891,498.6715,1399,0.7622,176.6505,1228,1.5988,77.7505,1129,5.9666,9.5612,835,3.971,114.399,811,3.003,46.210,732,2.104,181.758,705,1.187,256.540,616,2.979,106.977,530,4.241,111.430,502,1.387,5.938,437,2.270,1550.940,422,5.532,525.498,421,1.891,30.711,400,1.256,8.077,382,3.300,983.116,355,2.278,218.407,345,1.359,293.189,333,5.751,39.096,321,1.506,454.909,314,3.959,381.352,309,2.855,72.073,307,0.320,601.764,306,2.725,6244.943,294,4.891,528.206,292,4.024,68.844,281,4.542,44.725,280,1.541,98.900,268,5.133,112.915,251,3.540,312.199,248,3.411,37.612,246,1.015,141.226,240,3.164,143.625,
/*R1*/  236339,0.704980,38.133036,13220,3.32015,1.48447,8622,6.2163,35.1641,2702,1.8814,39.6175,2155,2.0943,2.9689,2153,5.1687,76.2661,1603,0.0000,0.0000,1464,1.1842,33.6796,1136,3.9189,36.6486,898,5.241,388.465,790,0.533,168.053,760,0.021,182.280,607,1.077,1021.249,572,3.401,484.444,561,2.887,498.671,490,3.468,137.033,271,3.274,71.813,264,0.862,4.453,204,2.418,32.195,155,0.365,41.102,133,3.602,9.561,
/*R2*/  4247,5.8991,38.1330,218,0.346,1.484,163,2.239,168.053,156,4.594,182.280,127,2.848,35.164,118,5.103,484.444,112,1.190,498.671,99,3.42,175.17,77,0.02,491.56,65,3.46,388.47,50,4.07,76.27,39,6.10,1021.25,37,5.97,2.97,36,5.17,137.03,
/*R3*/  166,4.552,38.133)
);

支持(0) 中立(0) 反对(0)  单帖管理 | 引用 | 回复 回到顶部
帅哥哟，离线，有人找我吗？
chwc
 小大  23楼 个性首页 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：黑侠 帖子：603 积分：5315 威望：0 精华：4 注册：2008/4/21 19:06:00 		  发帖心情 Post By：2011/2/28 19:45:00

function m2fm(v,fx,fs){//秒轉為分秒,fx為小數點位數,fs為1轉為"分秒"格式否則轉為"角度分秒"格式
 var gn='';
 if(v<0) v=-v, gn='-';
 var f=floor(v/60), m=v-f*60;
 if(!fs)   return gn + f + "'"  +m.toFixed(fx) + '"' ;
 if(fs==1) return gn + f + '分' +m.toFixed(fx) + '秒';
 if(fs==2) return gn + f + 'm'  +m.toFixed(fx) + 's';
}
function hcjj(t){ //返回P03黃赤交角,t是世紀數
  var t2=t*t, t3=t2*t,t4=t3*t,t5=t4*t;
  return (84381.4060 -46.836769*t -0.0001831*t2 +0.00200340*t3 -5.76e-7*t4 -4.34e-8*t5)/rad;
}
function rad2rrad(v){//對超過-PI到PI的角度轉為-PI到PI
  v=v % (2*Math.PI);
  if(v<=-Math.PI) return v+2*Math.PI;
  if(v>Math.PI) return v-2*Math.PI;
  return v;
}
function rad2mrad(v){ //對超過0-2PI的角度轉為0-2PI
  v=v % (2*Math.PI);
  if(v<0) return v+2*Math.PI;
  return v;
}
function llrConv(JW,E){ //球面坐標旋轉、黃道赤道坐標變換,赤到黃E取負
  var r=new Array(),J=JW[0],W=JW[1];
  r[0]=atan2( sin(J)*cos(E) - tan(W)*sin(E), cos(J) );
  r[1]=asin ( cos(E)*sin(W) + sin(E)*cos(W)*sin(J)  );
  r[2]=JW[2];
  r[0]=rad2mrad(r[0]);
  return r;
}

支持(0) 中立(0) 反对(0)  单帖管理 | 引用 | 回复 回到顶部
帅哥哟，离线，有人找我吗？
chwc
 小大  24楼 个性首页 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：黑侠 帖子：603 积分：5315 威望：0 精华：4 注册：2008/4/21 19:06:00 		  发帖心情 Post By：2011/2/28 19:46:00

function dt_ext(y,jsd){ var dy=(y-1820)/100; return -20+jsd*dy*dy; } //二次曲線外推
function dt_calc(y){ //世界時-原子時之差,傳入年
 var y0=dt_at[dt_at.length-2]; //表最後一年
 var t0=dt_at[dt_at.length-1]; //表最後一年的deltatT
 if(y>=y0){
  var jsd=31; //y1年之後加速估計。瑞士星曆表jsd=31,NASA網站jsd=32,skmap的jsd=29
  if(y>y0+100) return dt_ext(y,jsd);
  var v = dt_ext(y, jsd);       //二次曲線外推
  var dv= dt_ext(y0,jsd) - t0;  //ye年二次外推與te的差
  return v - dv*(y0+100-y)/100;
 }
 var i,d=dt_at;
 for(i=0;i<d.length;i+=5) if(y<d[i+5]) break;
 var t1=(y-d[i])/(d[i+5]-d[i])*10, t2=t1*t1, t3=t2*t1;
 return d[i+1] +d[i+2]*t1 +d[i+3]*t2 +d[i+4]*t3;
}
function dt_T(t){ return dt_calc(t/365.2425+2000)/86400.0; }  //傳入儒略日(2000起算),計算TD-UT(單位:日)
var XL0_xzb = new Array( //行星星曆修正
 //經(角秒),緯(角秒), 距(10-6AU)
 -0.08631, +0.00039, -0.00008,  //水星
 -0.07447, +0.00006, +0.00017,  //金星
 -0.07135, -0.00026, -0.00176,  //火星
 -0.20239, +0.00273, -0.00347,  //木星
 -0.25486, +0.00276, +0.42926,  //土星
 +0.24588, +0.00345, -14.46266, //天王星
 -0.95116, +0.02481, +58.30651  //海王星
)
function XL0_calc(xt,zn,t,n){ //xt星體,zn坐標號,t儒略世紀,n計算項數
  t/=10; //儒略千年數
  var i,j,v=0,tn=1,c;
  var F=XL0[xt],n1,n2,N;
  var n0, pn=zn*6+1, N0 = F[pn+1]-F[pn]; //N0序列總數
  for(i=0;i<6;i++,tn*=t){
    n1=F[pn+i], n2=F[pn+1+i], n0=n2-n1;
    if(!n0) continue;
    if(n<0) N=n2;  //項數
    else { N = floor(3*n*n0/N0+0.5)+n1;  if(i) N+=3;  if(N > n2) N=n2; }
    for(j=n1,c=0;j<N;j+=3) c += F[j]*Math.cos(F[j+1] +t*F[j+2]);
    v += c*tn;
  }
  v/=F[0];
  if(xt==0){ //地球
    var t2=t*t, t3=t2*t; //千年數的次方
    if(zn==0) v += (-0.0728 -2.7702*t -1.1019*t2 -0.0996*t3) / rad;
    if(zn==1) v += (+0.0000 +0.0004*t +0.0004*t2 -0.0026*t3) / rad;
    if(zn==2) v += (-0.0020 +0.0044*t +0.0213*t2 -0.0250*t3) / 1000000;
  }else{ //其它行星
    var dv = XL0_xzb[ (xt-1)*3+zn ];
    if(zn==0) v += -3*t/rad;
    if(zn==2) v += dv/1000000;
    else      v += dv/rad;
  }
  return v;
}
function gxc_sunLon(t){ //光行差,t是世紀數
  var v =-0.043126+ 628.301955*t -0.000002732*t*t; //平近點角
  var e = 0.016708634-0.000042037*t-0.0000001267*t*t;
  return  ( -20.49552 * (1+e*Math.cos(v)) )/rad; //黃經光行差
}
var nutB=new Array(//中精章動表
  2.1824,  -33.75705, 36e-6,-1720,920,
  3.5069, 1256.66393, 11e-6,-132, 57,
  1.3375,16799.4182, -51e-6, -23, 10,
  4.3649,  -67.5141,  72e-6,  21, -9,
  0.04,   -628.302,   0,     -14,  0,
  2.36,   8328.691,   0,       7,  0,
  3.46,   1884.966,   0,      -5,  2,
  5.44,  16833.175,   0,      -4,  2,
  3.69,  25128.110,   0,      -3,  0,
  3.55,    628.362,   0,       2,  0);
function nutationLon2(t){ //只計黃經章動
 var i,a, t2=t*t, dL=0, B=this.nutB;
 for(i=0;i<B.length;i+=5){
  if(i==0) a=-1.742*t; else a=0;
  dL += (B[i+3]+a) * Math.sin( B[i]+B[i+1]*t+B[i+2]*t2 );
 }
 return dL/100/rad;
}

支持(0) 中立(0) 反对(0)  单帖管理 | 引用 | 回复 回到顶部
帅哥哟，离线，有人找我吗？
chwc
 小大  25楼 个性首页 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：黑侠 帖子：603 积分：5315 威望：0 精华：4 注册：2008/4/21 19:06:00 		  发帖心情 Post By：2011/2/28 19:46:00

function pty_zty(t){ //時差計算(高精),t力學時儒略世紀
  var t2=t*t,t3=t2*t,t4=t3*t,t5=t4*t;
  var L = ( 1753470142 + 628331965331.8*t + 5296.74*t2 + 0.432*t3 - 0.1124*t4 - 0.00009*t5 )/1000000000 + Math.PI -20.5/rad;
  var E,dE,dL,f,z=new Array();
  dL= -17.2*Math.sin(2.1824-33.75705*t)/rad; //黃經章
  dE=   9.2*Math.cos(2.1824-33.75705*t)/rad; //交角章
  E = hcjj(t)+dE; //真黃赤交角、地球坐標
  z[0]=XL0_calc(0,0,t,50)+Math.PI+gxc_sunLon(t)+dL;
  z[1]=-( 2796*Math.cos(3.1987+8433.46616*t) +1016*Math.cos(5.4225+550.75532*t) +804*Math.cos(3.88  +522.3694*t) )/1000000000;
  z = llrConv( z, E ); //z太陽地心赤道坐標
  z[0]-=dL*Math.cos(E);
  L = rad2rrad(L-z[0]);
  return L/pi2; //單位是周天
}
function pty_zty2(t){ //時差計算(低精),誤差約在1秒內,t力學時儒略世紀數
  var L = ( 1753470142 + 628331965331.8*t + 5296.74*t*t )/1000000000 + Math.PI;
  var z=new Array();
  var E= (84381.4088 -46.836051*t)/rad;
  z[0]=XL0_calc(0,0,t,5)+Math.PI, z[1]=0; //地球坐標
  z = llrConv( z, E ); //z太陽地心赤道坐標
  L = rad2rrad(L-z[0]);
  return L/pi2; //單位是周(天)
}
function XL1_calc(zn,t,n){ //算月亮
  var ob=XL1[zn];
  var i,j,F,N,v=0,tn=1,c;
  var t2=t*t,t3=t2*t,t4=t3*t,t5=t4*t,tx=t-10;
  if(zn==0){
    v += (3.81034409 + 8399.684730072*t -3.319e-05*t2 + 3.11e-08*t3 - 2.033e-10*t4)*rad; //月球平黃經
    v += 5028.792262*t + 1.1124406*t2 + 0.00007699*t3 - 0.000023479*t4 -0.0000000178*t5;  //歲差(角秒)
    if(tx>0) v += -0.866 +1.43*tx +0.054*tx*tx; //公元3000年至5000年擬合,最大誤10角秒內
  }
  t2/=1e4,t3/=1e8,t4/=1e8;
  n*=6; if(n<0) n = ob[0].length;
  for(i=0;i<ob.length;i++,tn*=t){
   F=ob[i];
   N = floor( n*F.length/ob[0].length+0.5 );  if(i) N+=6;  if(N >= F.length) N=F.length;
   for(j=0,c=0;j<N;j+=6) c+=F[j]*Math.cos(F[j+1] +t*F[j+2] +t2*F[j+3] +t3*F[j+4] +t4*F[j+5]);
   v += c*tn;
  }
  if(zn!=2) v/=rad;
  return v;
};
function gxc_moonLon(t){ return -3.4E-6; }
var XL={ //日月星曆基本函數(日月球面坐標計算)
E_Lon:function(t,n){ return XL0_calc(0,0, t,n); }, //地球經度計算,返回Date分點黃經,傳世紀數、取項數
M_Lon:function(t,n){ return XL1_calc(0,t,n); },    //月球經度計算,返回Date分點黃經,傳世紀數,n是項數比例
//=========================
E_v:function(t){ //地球速度,t是世紀數,誤差萬分3內
 var f=628.307585*t;
 return 628.332 +21 *Math.sin(1.527+f) +0.44 *Math.sin(1.48+f*2)
         +0.129*Math.sin(5.82+f)*t +0.00055*Math.sin(4.21+f)*t*t;
},
M_v:function(t){ //月球速度,傳入世經數
  var v = 8399.71 - 914*Math.sin( 0.7848 + 8328.691425*t + 0.0001523*t*t ); //誤差小5%
  v-=179*Math.sin( 2.543  +15542.7543*t )  //誤差小0.3%
    +160*Math.sin( 0.1874 + 7214.0629*t )
    +62 *Math.sin( 3.14   +16657.3828*t )
    +34 *Math.sin( 4.827  +16866.9323*t )
    +22 *Math.sin( 4.9    +23871.4457*t )
    +12 *Math.sin( 2.59   +14914.4523*t )
    +7  *Math.sin( 0.23   + 6585.7609*t )
    +5  *Math.sin( 0.9    +25195.624 *t )
    +5  *Math.sin( 2.32   - 7700.3895*t )
    +5  *Math.sin( 3.88   + 8956.9934*t )
    +5  *Math.sin( 0.49   + 7771.3771*t );
   return v;
},
MS_aLon:function(t,Mn,Sn){ //月日視黃經差
  return this.M_Lon(t,Mn) + gxc_moonLon(t) - ( this.E_Lon(t,Sn) + gxc_sunLon(t) + Math.PI );
},
S_aLon:function(t,n){  //太陽視黃經
 return this.E_Lon(t,n) + nutationLon2(t) + gxc_sunLon(t) + Math.PI; //這裏算章動耗時
},
MS_aLon_t:function(W){ //已知月日視黃經差求時間
  var t,v= 7771.37714500204;
  t  = ( W + 1.08472               )/v;
  t += ( W - this.MS_aLon(t, 3, 3) )/v; v=this.M_v(t)-this.E_v(t);  //v的精度0.5%
  t += ( W - this.MS_aLon(t,20,10) )/v;
  t += ( W - this.MS_aLon(t,-1,60) )/v;
  return t;
},
S_aLon_t:function(W){ //已知太陽視黃經反求時間
  var t,v= 628.3319653318;
  t  = ( W - 1.75347-Math.PI   )/v; v=this.E_v(t); //v的精度0.03%，詳見許先生原文
  t += ( W - this.S_aLon(t,10) )/v; v=this.E_v(t); //再算一次提高精度,不算也可
  t += ( W - this.S_aLon(t,-1) )/v;
  return t;
},
MS_aLon_t2:function(W){ //已知月日視黃經差求時間,高速低精度,誤差不超過600秒(只驗算幾千年)
  var t,v = 7771.37714500204;
  t  = ( W + 1.08472 )/v;
  var L,t2 = t*t;
  t -= ( -0.00003309*t2 + 0.10976*Math.cos( 0.784758 + 8328.6914246*t + 0.000152292*t2 ) + 0.02224 *Math.cos( 0.18740  + 7214.0628654*t - 0.00021848 *t2 ) - 0.03342 *Math.cos( 4.669257 + 628.307585*t ) )/v;
  L = this.M_Lon(t,20) - (4.8950632+ 628.3319653318*t + 0.000005297*t*t + 0.0334166*Math.cos(4.669257+628.307585*t) + 0.0002061*Math.cos(2.67823+628.307585*t)*t + 0.000349*Math.cos(4.6261+1256.61517*t) - 20.5/rad);
  v = 7771.38 - 914*Math.sin( 0.7848 + 8328.691425*t + 0.0001523*t*t ) - 179*Math.sin( 2.543 + 15542.7543*t ) - 160*Math.sin( 0.1874 + 7214.0629*t );
  t += ( W - L )/v;
  return t;
},
S_aLon_t2:function(W){ //已知太陽視黃經反求時間,高速低精度,最大誤差不超600秒
  var t,L,v= 628.3319653318;
  t =  ( W - 1.75347-Math.PI )/v;
  t -= ( 0.000005297*t*t + 0.0334166 * Math.cos( 4.669257 + 628.307585*t) + 0.0002061 * Math.cos( 2.67823  + 628.307585*t)*t )/v;
  t += ( W - this.E_Lon(t,8) - Math.PI + (20.5+17.2*Math.sin(2.1824-33.75705*t))/rad )/v;
  return t;
}
};
function zdysi(y1,m1,d1,h1,mi1,sec,zone){
  var jd=JD(y1,m1,d1,h1,mi1,sec,zone);var Jw=zone*15;
   var J=Jw/radd;var Jwts=round(Jw*100)/100;
   var jda2=jd-2451545;var jda2a=jda2;
   var jd2 = jda2+dt_T(jda2); //力學時
    var jd9 =pty_zty(jd2/36525);
  jda2 += jd9+J/Math.PI/2+0.5;
var jda2a=jd-2451545+J/Math.PI/2+0.5;
var jd4=tail(jda2); var jd5=dToStr(jd4);var jd6=dToStr(tail(jda2a));var jd7=m2fm(jd9*86400,2,1);
var dxj=(Jwts<0)?'西經':'東經';if(Jwts==0)dxj='經度';
  return ('（'+dxj+Jwts+'°平太陽時'+jd6+'<font color="#FF0000">真太陽時'+jd5+'，</font>時差：'+jd7+'）');
}
function zdysi2(y1,m1,d1,h1,mi1,sec,zone,zone0){
  var mi2=abs(mi1);var jd=JD(y1,m1,d1,h1,mi2,sec,zone)+0.000000001;var Jw=zone*15;
   var J=Jw/radd;var Jwts=round(Jw*100)/100;
   var jda2=jd-2451545;var jda2a=jda2;
   var jd2 = jda2+dt_T(jda2); //力學時
    var jd9 =pty_zty(jd2/36525);
  jda2 += jd9+J/Math.PI/2+0.5;
var jda2a=jd-2451545+J/Math.PI/2+0.5;
var jd4=tail(jda2); var jd5=dToStr(jd4);var jd6=dToStr(tail(jda2a));
var vd=(zone==zone0)?('東經'+Jwts+'°東8區時間'+jd6+'(<font color="#FF0000">真太陽時'+jd5+'</font>)'):('設'+jd6+'(<font color="#FF0000">真太陽時'+jd5+'</font>)東經'+Jwts+'°東8區時間');
  return vd;
}
function qi_high(W){ //高精度氣1999年春分=0
 var wqa=W* Math.PI/12;
  var t = XL.S_aLon_t2(wqa)*36525;
  t = t - dt_T(t)+8/24;
  var v = ( (t+0.5) %1 ) * 86400;
  if(v<1200 || v >86400-1200) t = XL.S_aLon_t(wqa)*36525 - dt_T(t)+8/24;
  return  t+2451545+0.5;
 }
function so_high(W){ //高精度朔2000年1月7號哪次朔=0
 var wa=(W*Math.PI*2);
  var t = XL.MS_aLon_t2(wa)*36525;
  t = t - dt_T(t)+8/24;
  var v = ( (t+0.5) %1 ) * 86400;
  if(v<1800 || v >86400-1800) t = XL.MS_aLon_t(wa)*36525 - dt_T(t)+8/24;
  return  t+2451545+0.5;
 }
function suoCalc(k,jiao){ //定朔函數
var i,r,T,s2="";
  T = XL.MS_aLon_t( (k+jiao/360)*2*Math.PI );  //精確時間計算,入口參數是當年各朔望黃經
  s2 += ( T*36525+2451545+8/24-dt_T(T*36525)+0.5 );
return s2;
}
function qiCalc(n){ //定氣函數
 var i,T,s="",s2="";
  T = XL.S_aLon_t( (n*15/360)*2*Math.PI );    //精節氣時間計算
  s2+=( T*36525+2451545+8/24-dt_T(T*36525)+0.5 );
 return s2;
}

支持(0) 中立(0) 反对(0)  单帖管理 | 引用 | 回复 回到顶部
帅哥哟，离线，有人找我吗？
chwc
 小大  26楼 个性首页 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：黑侠 帖子：603 积分：5315 威望：0 精华：4 注册：2008/4/21 19:06:00 		  发帖心情 Post By：2011/2/28 19:46:00

//-----電腦醫萬年暦及福星萬年暦農暦節氣計算---//
   var qiS='ocFs22AFsckF2tsDtFqEt2aposFdFgiFseFtmelsssEfhkF2anmelpFlF1ikrotcnEqEq2FfqmcDsrFor22FgFrcDocFs22FgEeFtE2sfFs22sCoEsaF2tsD1FpeE2eFsssEciFsFnmelpFcFhkF2tcnEqEpFgkrotcnEqrEtFermcDsrcFs22FgBmcmr22DaDsaF222sD1FpeForeF2tssEfiFpEoeFssD1iFstC2pDgkF2tcnEqEpFg11FscnEqrAoAF2VBtAFrADlFoAkAEpAEgyoFgBiBqAenBaBoqxCdxDklEqCpE1BqVFgEiDrACdVf1VCgxeBbCaCiEifAE2VBa1C1EdEdFdixCoCeE1ADiEifDaVCdBg1FbCbFbcyDdDgiFaAC2VqzzzyEtzzVBbACezCiAFiCixEnxazxDqEoFmyBezzxEkzVEnEqyFkEcwEpDiDpVF1zzCdVBgzyBgAF1zxcACtAF2ACeeAkAEGH';//( 2301,12,22,24)
   var qijz=jieya(qiS);
function qij(k){ ///1646年到1960年1月史實定氣日與1960年到7800年節氣修正
  var v2='';var v=qijz.charAt(k);////
  if(k==7993||k==14034||k==14688||k==15654)v=0;if(k==13278||k==14070||k==14553)v=2;
  if(v=='1')
    v2=1;
  if(v=='2')
    v2=-1;
  if(v==''||v=='0')
    v2=0;
  return parseInt(v2);
 }
  var ykche=new Array(//史實平氣擬合1
  1640650.479938,1642476.703182,1683430.515601,1752157.640664,1807675.003759,1883627.765182,1907369.128100,1936603.140413,1939145.524180,1947180.798300,1964362.041824,1987372.340971,
  1999653.819126,2007445.469786,2021324.917146,2047257.232342,2070282.898213,2073204.872850,2080144.500926,2086703.688963,2110033.182763,2111190.300888,2113731.271005,2120670.840263,2123973.309063,
  2125068.997336,2136026.312633,2156099.495538,2159021.324663,2162308.575254,2178485.706538,2178759.662849,2185334.020800,2187525.481425,2188621.191481);
  var kche=new Array(//史實平氣擬合2
  -221,-216,-104,84,236,444,509,589,596,618,665,728,761,783,821,892,955,963,982,1000,1064,1067,1074,1093,1102,1105,1135,1190,1198,1207,
  1251,1252,1270,1276,1279);
  var jkche=new Array(//史實平氣擬合3
  15.21842500,15.21874996, 15.218750011,15.218749978,15.218620279,15.218612292,15.218449176,15.218425000,15.218466998, 15.218524844,15.218533526,15.218513908,15.218530782,
  15.218535181,15.218526248,15.218519654,15.218425000,15.218515221,15.218530782,15.218523776,15.218425000,15.218425000,15.218515671,15.218425000,15.218425000,15.218477932,15.218472436,
  15.218425000,15.218425000,15.218461742,15.218425000,15.218445786,15.218425000,15.218425000,15.218437484);
  var jkche2=new Array(//史實平氣擬合4
  -3,-3,0,4,4,3,3,4,3,3,4,4,19,3,3,3,4,4,4,3,0,4,3,3,4,4,4,3,3,3,10,4,4,4,4);
//

支持(0) 中立(0) 反对(0)  单帖管理 | 引用 | 回复 回到顶部
帅哥哟，离线，有人找我吗？
chwc
 小大  27楼 个性首页 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：黑侠 帖子：603 积分：5315 威望：0 精华：4 注册：2008/4/21 19:06:00 		  发帖心情 Post By：2011/2/28 19:47:00

function S(y,n,pd){  //pd取值為0或1，分別表示平氣和定氣,該函數返回節氣的D0值
  var vj='';var ykd=(erJD(y,1,1))-1;
  var ydk=24*(y-1646);var ydk2=(ydk+n-1);var ydk3=qij(ydk2);var vsb0=0;if(ydk3==-1)vsb0=0.952;if(ydk3==1)vsb0=0.0007;
  if((y>1646&&y<=1960||y==1646&&n>=3)&&ydk3==-1||(y>1646&&y<=1960||y==1646&&n>=3)&&ydk3==1){//史實擬合
  var yk=365.2423112;var jjk=0.00000001;///yk=365.2422226;
  var jk=y-2200;var j=(0.000084275/3300)*jk;if(y<=2219)j=0;
  var jk5=y-5500;var j5=(0.00001232/1860)*jk5;if(y<5500)j5=0;
  var jk6=y-7800;var j6=(0.00001285/2200)*jk6;if(y<7800)j6=0;
  var jk2=y-900;var j2=0.000252155/3600*jk2;if(1001<y)j2=0;
  var jk3=0.000100121/2012*(y-(-4712));var j3=0.000100121-jk3;if(y>=-2700)j3=0;
  var yk2=yk-j-j2-j3-j5+j6-jjk;
  var juD=y*(yk2-6.4e-14*(y-100)*(y-100)-3.047e-8*(y-100))+15.218427*n+1721050.71301;//儒略日
  var tht=3e-4*y-0.372781384-0.2617913325*n;//角度
  var yrD=(1.945*sin(tht)-0.01206*sin(2*tht))*(1.048994-2.583e-5*y);//年差實均數
  var shuoD=-18e-4*sin(2.313908653*y-0.439822951-3.0443*n);//朔差實均
  vj=floor((juD+yrD+shuoD-erD(y,1,0)-1721425)+(ydk3))+vsb0;
  }else{
  var jkk=0;if(y>-216||y==-216&&n>=21)jkk=1;if(y>=-103)jkk=2;if(y>85||y==85&&n>=4)jkk=3;
  if(y>237||y==237&&n>=4)jkk=4;if(y>445||y==445&&n>=3)jkk=5;if(y>510||y==510&&n>=3)jkk=6;if(y>590||y==590&&n>=4)jkk=7;
  if(y>597||y==597&&n>=3)jkk=8;if(y>619||y==619&&n>=3)jkk=9;if(y>666||y==666&&n>=4)jkk=10;if(y>729||y==729&&n>=4)jkk=11;
  if(y>762||y==762&&n>=19)jkk=12;if(y>784||y==784&&n>=3)jkk=13;if(y>822||y==822&&n>=3)jkk=14;if(y>893||y==893&&n>=3)jkk=15;
  if(y>956||y==956&&n>=4)jkk=16;if(y>964||y==964&&n>=4)jkk=17;if(y>983||y==983&&n>=4)jkk=18;if(y>1001||y==1001&&n>=3)jkk=19;
  if(y>1064||y==1064&&n>=24)jkk=20;if(y>1068||y==1068&&n>=4)jkk=21;
  if(y>1075||y==1075&&n>=3)jkk=22;if(y>1094||y==1094&&n>=3)jkk=23;if(y>1103||y==1103&&n>=4)jkk=24;
  if(y>1106||y==1106&&n>=4)jkk=25;if(y>1136||y==1136&&n>=4)jkk=26;if(y>1191||y==1191&&n>=3)jkk=27;if(y>1199||y==1199&&n>=3)jkk=28;
  if(y>1208||y==1208&&n>=3)jkk=29;if(y>1252||y==1252&&n>=10)jkk=30;if(y>1253||y==1253&&n>=4)jkk=31;if(y>1271||y==1271&&n>=4)jkk=32;
  if(y>1277||y==1277&&n>=4)jkk=33;if(y>1280||y==1280&&n>=4)jkk=34;
  var yk0=ykche[jkk];///初數
  var k=kche[jkk];//年界
  var jka=jkche[jkk];////氣長
  var jk9=jkche2[jkk];///節差數
  //史實計算
  var yk3=jka*(jk9*1);
  var yka=(yk0*1)-(yk3*1);
  var jq=jka*(n+(24*(y-k-1)));
  vj=jq+yka-ykd+0.5;
  if(y==502&&n==12)vj=1904585-ykd;if(y==559&&n==12)vj=1925404-ykd;if(y==575&&n==20)vj=1931368.952-ykd;
  if(y==697&&n==24)vj=1975991-ykd;if(y==698&&n==2)vj=1976020-ykd;if(y==725&&n==4)vj=1985913.001-ykd;
  if(y<-220||y>1646||y==1646&&n>=3)vj='';
  }
  var n0=24*(y-1999)-6+n;
  var vsa=qiCalc(n0)-ykd;
  var vs=(pd)?vsa:vj;//vj為古代平氣
  return vs;
}
function jqi(y,m,d,a,b){
  var mL=D0(y,m+1,1)-D0(y,m,1);if(y==1582&&m==10)mL=31;
  var yr2=yearStr(y);
  var sT00='';var sT0='';var sT1='';var sT2='';var sT3='';var sT4='';  var qSt='';var sDsStr1='';var ifsj1='';////节气
  var sN00=2*m-3;
  var sDt00=S(y,sN00,1);if(a==3||a==4&&S(y,sN00)>'')sDt00=S(y,sN00);
  var sD00=antiD0(y,floor(sDt00));
  var sM00=floor(sD00/100);//交節公暦月
  sDate00=sD00%100;
  var sN0=2*m-2;
  var sDt0=S(y,sN0,1);if(a==3||a==4&&S(y,sN0)>'')sDt0=S(y,sN0);
  var sD0=antiD0(y,floor(sDt0));
  var sM0=floor(sD0/100);
  sDate0=sD0%100;
  sN1=2*m-1;
  var sDt1=S(y,sN1,1);if(a==3||a==4&&S(y,sN1)>'')sDt1=S(y,sN1);
  var sD1=antiD0(y,floor(sDt1));
  var sM1=floor(sD1/100);
  sDate1=sD1%100;
  sN2=2*m;
  var sDt2=S(y,sN2,1);if(a==3||a==4&&S(y,sN2)>'')sDt2=S(y,sN2);
  var sD2=antiD0(y,floor(sDt2));
  var sM2=floor(sD2/100);
  sDate2=sD2%100;if(y==1582&&m==10)sDate2=sDate2+10;
  var sN3=2*m+1;
  if(sN3>24)
  sN3=25;
  var sDt3=S(y,sN3,1);if(a==3||a==4&&S(y,sN3)>'')sDt3=S(y,sN3);
  var sD3=antiD0(y,floor(sDt3));
  var sM3=floor(sD3/100);
  sDate3=sD3%100;
  var dpzi=' 定';var dbq='東8區';if(a==4)dpzi=' ',dbq=' ';
  sN00=rem(sN00-1,24)+1;sN0=rem(sN0-1,24)+1;sN1=rem(sN1-1,24)+1; sN2=rem(sN2-1,24)+1; sN3=rem(sN3-1,24)+1;
  if(sDate2>mL) sDate2-=mL; var jqk=D0(y,m,d);var qk00=floor(sDt00);
  var qk0=floor(sDt0);var qk1=floor(sDt1);var qk2=floor(sDt2);var qk3=floor(sDt3);
  if(qk00<D0(y,m,1)||qk00>D0(y,m,mL)) sN00='';
  if(qk0<D0(y,m,1)||qk0>D0(y,m,mL)) sN0='';
  if(qk1<D0(y,m,1)||qk1>D0(y,m,mL)) sN1='';
  if(qk2<D0(y,m,1)||qk2>D0(y,m,mL)) sN2='';
  if(qk3<D0(y,m,1)||qk3>D0(y,m,mL)) sN3='';//
  if(a==4){
  sT00='%公曆'+sM00+'月'+dsz(sDate00)+'日<b>(農曆'+lunMStr(lunMon(y,sM00,sDate00),b)+'月'+dsz(floor(lunDate(y,sM00,sDate00)-floor(lunDate(y,sM00,sDate00)/100)*100))+'日)'+dToStr(tail(sDt00))+sStr(sN00)+'</b><br>';if(sN00=='') sT00='';
  sT0='*公曆'+sM0+'月'+dsz(sDate0)+'日<b>(農曆'+lunMStr(lunMon(y,sM0,sDate0),b)+'月'+dsz(floor(lunDate(y,sM0,sDate0)-floor(lunDate(y,sM0,sDate0)/100)*100))+'日)'+dToStr(tail(sDt0))+sStr(sN0)+'</b><br>';if(sN0=='') sT0='';
  sT1='&公曆'+sM1+'月'+dsz(sDate1)+'日<b>(農曆'+lunMStr(lunMon(y,sM1,sDate1),b)+'月'+dsz(floor(lunDate(y,sM1,sDate1)-floor(lunDate(y,sM1,sDate1)/100)*100))+'日)'+dToStr(tail(sDt1))+sStr(sN1)+'</b><br>';if(sN1=='') sT1='';
  sT2='$公曆'+sM2+'月'+dsz(sDate2)+'日<b>(農曆'+lunMStr(lunMon(y,sM2,sDate2),b)+'月'+dsz(floor(lunDate(y,sM2,sDate2)-floor(lunDate(y,sM2,sDate2)/100)*100))+'日)'+dToStr(tail(sDt2))+sStr(sN2)+'</b>';if(sN2=='')sT2='';
  sT3='<br>'+'#公曆'+sM3+'月'+dsz(sDate3)+'日<b>(農曆'+lunMStr(lunMon(y,sM3,sDate3),b)+'月'+dsz(floor(lunDate(y,sM3,sDate3)-floor(lunDate(y,sM3,sDate3)/100)*100))+'日)'+dToStr(tail(sDt3))+sStr(sN3)+'</b>';if(sN3=='')sT3='';
  }else{
  sT00='%公曆'+yr2+sM00+'月'+dsz(sDate00)+'日'+dbq+dToStr(tail(sDt00))+dpzi+sStr(sN00)+'<br>';if(sN00=='') sT00='';
  sT0='*公曆'+yr2+sM0+'月'+dsz(sDate0)+'日'+dbq+dToStr(tail(sDt0))+dpzi+sStr(sN0)+'<br>';if(sN0=='') sT0='';
  sT1='&公曆'+yr2+sM1+'月'+dsz(sDate1)+'日'+dbq+dToStr(tail(sDt1))+dpzi+sStr(sN1)+'<br>';if(sN1=='') sT1='';
  sT2='$公曆'+yr2+sM2+'月'+dsz(sDate2)+'日'+dbq+dToStr(tail(sDt2))+dpzi+sStr(sN2);if(sN2=='')sT2='';
  sT3='<br>'+'#公曆'+yr2+sM3+'月'+dsz(sDate3)+'日'+dbq+dToStr(tail(sDt3))+dpzi+sStr(sN3);if(sN3=='')sT3=''; }
  var qSt5='';if(a==1)qSt5='定';if(a==2)qSt5='<img border="0" src="7000wnldat/jiqi.gif" width="12" height="12">';
  if(jqk==qk00)if(sT00==''){sDsStr1='|'}else{sDsStr1=qSt5+sStr(sN00)+':東8區'+dToStr(tail(sDt00));}
  if(jqk==qk0)if(sT0==''){sDsStr1='|'}else{sDsStr1=qSt5+sStr(sN0)+':東8區'+dToStr(tail(sDt0));}
  if(jqk==qk1)if(sN1==''){sDsStr1='|'}else{sDsStr1=qSt5+sStr(sN1)+':東8區'+dToStr(tail(sDt1));}
  if(jqk==qk2)if(sN2==''){sDsStr1='|'}else{ sDsStr1=qSt5+sStr(sN2)+':東8區'+dToStr(tail(sDt2));} ///
  if(jqk==qk3)if(sT3==''){sDsStr1='|'}else{sDsStr1=qSt5+sStr(sN3)+':東8區'+dToStr(tail(sDt3));}
 
  if(jqk==qk00)if(sT00==''){qSt=''}else{qSt=qSt5+sStr(sN00);}
  if(jqk==qk0)if(sT0==''){qSt=''}else{qSt=qSt5+sStr(sN0);}
  if(jqk==qk1)if(sT1==''){qSt=''}else{qSt=qSt5+sStr(sN1);}
  if(jqk==qk2)if(sT2==''){qSt=''}else{ qSt=qSt5+sStr(sN2);}
  if(jqk==qk3)if(sT3==''){qSt=''}else{qSt=qSt5+sStr(sN3);}
  if(a==1){return sDsStr1;}else{
  if(a==2){return qSt;}else{
  if(a==3){return qSt;}else{
  return sT00+sT0+sT1+sT2+sT3;}}}
  }
//--節氣實際顯示--//電腦醫萬年暦及福星萬年暦
 function jqi1(y,m,d){//顯示方式1，交節時間在某日、到了某日就顯示出交節時間
 return jqi(y,m,d,1);
 }
 function jqi2(y,m,d){//顯示方式2，公曆每月的節氣交節時間
 return jqi(y,m,d);
 }
 function jqi5(y,m,d,b){//顯示方式4，用特效窗口顯示實曆二十四節氣
 var xz=jqi(y,m,d,4,b);
 var xc='<b>實曆二十四節氣（平氣）</b><br>';if(y>=1647&&y<1961||y==1646&&m>=2)xc='<b>實曆二十四節氣</b><br>';
 if(y<-221||y==-221&&m<11)xc='<b>實曆二十四節氣</b><br>',xz='史上此年代還沒有完整的24節氣記載<br>請參考上面用現代數據反推的24節氣';
 if(y>=1961)xc='<b>二十四節氣</b><br>'
 var xs='&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'+xc+xz;
 return xs;
 }
 function jqi3(y,m,d){//節氣顯示方式3，用於月曆格子
  var sjq2='';var sjq0=jqi(y,m,d,2); var sjq12='';if(y>=1646&&y<1961)sjq12=jqi(y,m,d-1,3);var sjq13='';if(y>=1646&&y<1961)sjq13=jqi(y,m,d+1,3);
  if(y>=-220&&y<1646&&sjq0>''||y==1646&&m<=1&&sjq0>''||sjq12>''&&jqi(y,m,d,2)>''||sjq13>''&&jqi(y,m,d,2)>'')sjq0='<img border="0" src="7000wnldat/jiqi.gif" width="12" height="12">';
  var sjq1=jqi(y,m,d,3); var sjq=sjq0+sjq1;
 return sjq;
 }/////節氣計算結束

支持(0) 中立(0) 反对(0)  单帖管理 | 引用 | 回复 回到顶部
帅哥哟，离线，有人找我吗？
chwc
 小大  28楼 个性首页 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：黑侠 帖子：603 积分：5315 威望：0 精华：4 注册：2008/4/21 19:06:00 		  发帖心情 Post By：2011/2/28 19:47:00

//-----福星萬年暦和電腦醫生萬年暦公用農曆--//
//---農曆日月數及日月食---//
  var qdjd=new Array(//起點jd、史實平朔擬合1
  1457727.915958,1565455.530851,1683489.570910,1752148.041079,1807665.420323,1883618.114100,1907360.704700,1936596.224900,1939135.675300
  );
  var kzca=new Array(//起點kzs值差、史實平朔擬合2
  32417,28769,24772,22447,20567,17995,17191,16201,16115
  );
  var yche=new Array(//月長、史實平朔擬合3
  29.530805106,29.530805,29.53086158,29.53085097,29.53059851,29.53060000,29.53060000,29.53060000,29.53060000
  );
//史實定朔修正開始
  var suoSa ='FiF1FfADcDkAbFiFibCaFiEeFiAFkDbdEkFfEcixBkAFacgEfAbABcDkbDiFfbCfFaEkBeFiF1ADcCkAFdA1FkViBbEaAFgEgC1BdVcfDgyF1VDiC1VDdADgDkdxEbAcF1kVgwFexEbaADfF1EkVEaVaBdkxDgCkVFbEeVDdA1kFfAE1EcVeFiDgcAFfkDbAaFiaAEcFiADcBkFdFaA1ADcAFfFiFfxDfAadDbEggFfBkFeFiCeFiFiFiAFkFiFeaCcDaEhkeACiCiVbDgEbFfVFgVEcAbFiD1F1xCbBkAfFiVDgABdVeyeVgzVBkABdVFcVDiFbxCbxBiVFfVD1ycDdxFcB1BfFawFkfVexFczzAkAFeA1ABdFiVcEeFbCbADcFiC1AEiBgVEfV1ABcACdBbAfcdyFiFeaAB1FeFfADeBbxDbEezAFgADcFiADcxCcAbwBfADkyF1zEdA1zxdVDfwFdzCcVCazyC1zA1dVBgVEawdybDfBkxFeFiAFkFiFiVDdAfFeBbzwezzDdzzzzzzEaAfzzzyCbAB1VgDdAF1wFixEbwBbAEfVDizzzxCfzVDrAEizzzzzwFlzzzyBiCgEezxFczy2znyB1zAFmzzAFtAD';
  suoSa+='gzCnzzyCszzAazzzCeyoyezzzVBsAEozyC2AF2zwDlzCrzzzxEsyCtyD2FszVFtxlEpzzzzzxozF2zzADGJ';//-849,1,21
  var soujza=jieya(suoSa);
  var suoS='2FpCaFlmsdErDfFiFipdiEpFfEcaipqf1ksttikpfkq2fkqtekqttgkotgkqtekstfkptikq2fjstgjqttjkqtekqtekstfkpfkq2fjstgjiFfFoCiADpDrsliCkCsAEe1cAF1EaEfgdfikikFffakbFhaikgFag1EaFkieeibggiffdeigFfqDfkciDsFtdF1kEaikhkigeiahabgcFfakF1ggkiFeiaFiqEffckekidhhdhdikcikiafakF1dehdFhFccgbkdekgiFbiaikcfi1F1FibefjEgFdcFkFeFkdcfkF1kfkciaDfDacFiDgiaejcFfffkhkdgkFiei1ehdikedFffcjbdhhdikcfgjikhfjicjicgiehdikcikggcifgiejF1jkieedikcikggcikFegiegkfjefghigikggcikdgkaFkijcfkcikfkcifikiggkaeedefkckffcfkhkdgkedeidhijcFfakhfgehgieidiegikhfkfckfcjbdehdikcikgkfkicjicjF1dbidikFiggcifgiejkikggkigcdikcfggcikdbgfjefjF1kfegikggcikdgFkeeijcfkcikfkekcikdgkegbhkFikaffke';
  suoS+='fkhkdgkegbiaekffakiakhfgqdq2fkiakgkfkhfkfcjiekgFkgdkicgFiedF1jikejbbbicjbggkacgiejkijjgigfiakggfggcibFifjefjF1kfekdgjcibFegcijcfkfhkfkeaieigekggfhkfikiFkcjeaibgekgdkiffiffkiakF1jhbakgdki1dj1ikfkickfcjieedfgdkicggkigeigF1jfgkgfgbgikicggfggkideeigjgijkeijfiskiggkiaidhedF1jekijcikiggkiggkidhhdbgcfkFikfhkigeie1hiaikggikhkffaffijhidhhdikggikifikFikiakF1kfhedikggikifiggkigicjiejkieedikggiffiggkigieFijkfjkgkigbgikifiggkiaideeijkefjeijikhkiggkiaidheigcikaikaikijgkiahi1hhdiejcfaakekighhi1hiaikggikhkffakicjhiahaikggikhkikF1jF1jfeFhidikggiffiggkigiejkikgkgieedikggiffiggkidheigkgfjkeigikggikifiggkiaiFieijcfkFikikhkiggkiahi1ehigcikaffkhki';
  suoS+='ggkiahi1hhdikekfiFkFikcidhh1hitcikggikhkikfcjicghiedikcikggikhkijbjfejkieFhaikggiffiggkigiejkijjgikgeigikggiffiggkigieeigekijcijikggiffiggkideedeijkefkfckikhkiggkhdhi1ehijcikaffkhkiggkiahi1hhdikekikFikfckcidhh1hikcikggikhfjicjicgiehdikcikggifikigbjfejkieFhaikggifikiggfghigkfjeijkhigikggifikiggkigieeijcijcikfksikifikiggkidehdeijcfdckikhkiggkhdhi1ehijcfaffkhsEkErDoVtDd1AEtAFrCfEtoEpDqElB2DtEeEqEpBmADlF2AB2BtBmFsFsAD2llAFnBpBtVCmDlAFnlVbACoEqAEmAClB1EeD2ACrBsFtCtAFrAtFqFiCstAE1AFtDdA2BmFtAC2kACpFaowlFtABgmAl2bDsAD1FsVEbBtAFpArgEcBrACfAFoVDnVEfVFmEpAElVcC2VDszABmBqBpVrFpACrFlAEqAC2wElVFsyFlxDaxmxBtFqBmC2zzzAD1zV1zVFizAEdzzzzzyC0';//(2301,12,31)
  var soujz=jieya(suoS);
function souja(k){//-4713年1,11到-849年1,21;
  var v=soujza.charAt(k-(-82856));
  if(v=='1')
    v=1;
  if(v=='2')
    v=-1;
  if(v==''||v=='0')
    v=0;
  return parseInt(v);
 }
function souj(k){//620年十二月k=0;//2101年四月k=18309
  var v2='';var v=soujz.charAt(k);//農曆的校正（620-7800）
  if(k==18710)v=0;
  if(v=='1')
    v2=1;
  if(v=='2')
    v2=-1;
  if(v==''||v=='0')
    v2=0;
  return parseInt(v2);
 }//史實定朔修正結束

支持(0) 中立(0) 反对(0)  单帖管理 | 引用 | 回复 回到顶部
帅哥哟，离线，有人找我吗？
chwc
 小大  29楼 个性首页 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：黑侠 帖子：603 积分：5315 威望：0 精华：4 注册：2008/4/21 19:06:00 		  发帖心情 Post By：2011/2/28 19:47:00

function rsys(y,m,d,s1){//月相如lunD=15.5235，15為日數,小數部分是朔弦望時刻(該天不朔,不弦或不望為零空)
  var t=(y-1899.5)/100;
  var ms=floor((y-1900)*12.3685);
  var rpi=180/PI();
  var zone=8;//時區
  var f0=ang(ms,t,0,0.75933,2.172e-4,1.55e-7)+0.53058868*ms-8.37e-4*t+zone/24+0.5;
  var fc=0.1734-3.93e-4*t;
  var j0=693595+29*ms;
  var aa0=ang(ms,t,0.08084821133,359.2242/rpi,0.0000333/rpi,0.00000347/rpi);
  var ab0=ang(ms,t,7.171366127999999e-2,306.0253/rpi,-0.0107306/rpi,-0.00001236/rpi);
  var ac0=ang(ms,t,0.08519585128,21.2964/rpi,0.0016528/rpi,0.00000239/rpi);
  var jeJD=erJD(y,m,d);
  var mt=jeJD-1;var mw=jeJD+30;
  var mtk=((floor((mt-2451550.259)/29.530588))+1-(ms-1236));
  var mwk=((floor((mw-2451550.259)/29.530588))+1-(ms-1236));
  var leap=0;  //閏月,0不閏
  var ecli=''; //日月食
  var lunD=-1; //農曆日
  var shuoD=0; //朔日數
  var shuoT=0; //朔時刻
  var shanxD=0;//上弦時刻
  var shanxT=0;//上弦日數
  var wangD=0; //望時刻
  var wangT=0; //望日數
  var xiaxD=0; //下弦時刻
  var xiaxT=0; //下弦日數
  //
  for(var k=mtk;k<=mwk;k+=0.25){//k=整數朔,k=半整數望
    var aa=aa0+0.507984293*k;var ab=ab0+6.73377553*k;var ac=ac0+6.818486628*k;
    if(k==floor(k)){
    var kk2a=(ms+floor(k));var k2a=kk2a-1237;var kak=0;
    if(kk2a==1951||kk2a==2444)kak=1;
    var soj=(so_high(k2a)+(kak));//朔或望的等效儒略日
    var lunD0a=(jeJD-floor(soj));//當日距朔日的差
    if(k==floor(k)&&lunD0a>=0&&lunD0a<=29){
       var k1=floor(k);//當前的k值
      lunD=lunD0a+1;
     }}
   if(s1>''&&(k==k1||k==(k1+0.25)||k==(k1+0.5)||k==(k1+0.75))){
    var f1=f0+1.53058868*k+fc*sin(aa)-0.4068*sin(ab)+0.0021*sin(2*aa)+0.0161*sin(2*ab)+0.0104*sin(2*ac)-0.0074*sin(aa-ab)-0.0051*sin(aa+ab);
    var j=j0+28*k+f1+1721425;
    if(k==k1&&lunD==1){
    shuoT=(kak==0)?tail(suoCalc(k2a,0)):'0.0001';
    }
    if(k==(k1+0.25)&&abs((jeJD-floor(j)))<2){
      var shanxDs=suoCalc(k2a,90);shanxT=tail(shanxDs);
      shanxD=floor(shanxDs)-(jeJD-lunD+1)+1;
    }
    if(k==(k1+0.5)&&abs((jeJD-floor(j)))<2){
      var wangDs=suoCalc(k2a,180);wangT=tail(wangDs);
      wangD=floor(wangDs)-(jeJD-lunD+1)+1;
    }
    if(k==(k1+0.75)&&abs((jeJD-floor(j)))<2){
      var xiaxDs=suoCalc(k2a,270);xiaxT=tail(xiaxDs);
      xiaxD=floor(xiaxDs)-(jeJD-lunD+1)+1;
    }
     //判斷日月食
    if((lunD==1&&k==k1)||(lunD==wangD&&k==(k1+0.5))){
      if(abs(sin(ac))<=0.36){
        var s=5.19595-0.0048*cos(aa)+0.002*cos(2*aa)-0.3283*cos(ab)-0.006*cos(aa+ab)+0.0041*cos(aa-ab);
        var r=0.207*sin(aa)+0.0024*sin(2*aa)-0.039*sin(ab)+0.0115*sin(2*ab)-0.0073*sin(aa+ab)-0.0067*sin(aa-ab)+0.0117*sin(2*ac);
        var p=abs(s*sin(ac)+r*cos(ac));
        var q=0.0059+0.0046*cos(aa)-0.0182*cos(ab)+0.0004*cos(2*ab)-0.0005*cos(aa+ab);
        if(p-q<=1.5572){
          ecli='(日食)';//日食
          if(k!=floor(k)){//月食
            if(p+q>=1.0129)
              ecli='(月偏食)';
            else
              ecli='(月全食)';
          } } } }}else{}}//k循環結束
 if(y==1924&&m==3&&d==5)ecli='(日食)';//日食修正
  var str='';
  var v1=lunD;
  if(s1==1){
  if(v1==1||v1==101||v1==201)//日曆部份
    str='東8區'+dToStr(shuoT)+'朔<img border="0" src="7000wnldat/so.gif" width="11" height="11">'+ecli;
  else
    if(v1==shanxD)
      str='東8區'+dToStr(shanxT)+'上弦<img border="0" src="7000wnldat/shanx.gif" width="11" height="11">';
    else
    if(v1==wangD)
      str='東8區'+dToStr(wangT)+'望<img border="0" src="7000wnldat/wan.gif" width="11" height="11">'+ecli;
    else
    if(v1==xiaxD)
      str='東8區'+dToStr(xiaxT)+'下弦<img border="0" src="7000wnldat/xiax.gif" width="11" height="11">';
    else;
    }else{ if(s1==2){
  if(v1==1||v1==101||v1==201)//月曆部份
    str='<img border="0" src="7000wnldat/so.gif" width="11" height="11">';
  else
    if(v1==shanxD)
      str='<img border="0" src="7000wnldat/shanx.gif" width="11" height="11">';
    else
    if(v1==wangD)
      str='<img border="0" src="7000wnldat/wan.gif" width="11" height="11">';
    else
    if(v1==xiaxD)
      str='<img border="0" src="7000wnldat/xiax.gif" width="11" height="11">';
    else;
  }else{str='';}}
  return str;
}
function lunData(y,m,d,s1){//日數、如3001，30表示月大(月小29),01表示日數
  var ms=floor((y-1900)*12.3685);var k1='';
  var zone=8;//時區
  var lunD=-1;//農曆日數
  var jeJD=erJD(y,m,d);
  var mt=jeJD-1;var mw=jeJD+35;
  var mtk=((floor((mt-2451550.259)/29.530588))+1-(ms-1236));
  var mwk=((floor((mw-2451550.259)/29.530588))+1-(ms-1236));
  //(y<-849||y>=2111)(y>=2111)
  var rpi=(y>=2111)?0:180/PI();
  var t=(y>=2111)?0:(y-1899.5)/100;
  var f0=(y>=2111)?0:ang(ms,t,0,0.75933,2.172e-4,1.55e-7)+0.53058868*ms-8.37e-4*t+zone/24+0.5;
  var fc=(y>=2111)?0:0.1734-3.93e-4*t;
  var j0=(y>=2111)?0:693595+29*ms;
  var aa0=(y>=2111)?0:ang(ms,t,0.08084821133,359.2242/rpi,0.0000333/rpi,0.00000347/rpi);
  var ab0=(y>=2111)?0:ang(ms,t,7.171366127999999e-2,306.0253/rpi,-0.0107306/rpi,-0.00001236/rpi);
  var ac0=(y>=2111)?0:ang(ms,t,0.08519585128,21.2964/rpi,0.0016528/rpi,0.00000239/rpi);
  for(var k=mtk;k<=mwk;k+=1){//朔k=整數(y>=-849&&y<2111)
  var kzs=ms+floor(k);
  if(y<2111){
  var aa=(y>=2111)?0:aa0+0.507984293*k;var ab=ab0+6.73377553*k;var ac=ac0+6.818486628*k; 
  var f1=(y>=2111)?0:f0+1.53058868*k+fc*sin(aa)-0.4068*sin(ab)+0.0021*sin(2*aa)+0.0161*sin(2*ab)+0.0104*sin(2*ac)-0.0074*sin(aa-ab)-0.0051*sin(aa+ab);
  var qdkg=-1;
  if(kzs>=-34000)qdkg=0;//前850年-1-21(JD=1410981)用；-722-1-16起、古曆·春秋戰國
  if(kzs>=-28769)qdkg=1;//前428年-12-26(JD=1565456)起用、古曆·春秋戰國·秦漢
  if(kzs>=-24771)qdkg=2;//前104年-03-23(JD=1683518)用；前104年-02-22起、漢書·律曆志(太初曆)
  if(kzs>=-22447)qdkg=3;//85年-02-13(JD=1752148)起、後漢書·律曆志(四分曆)
  if(kzs>=-20563)qdkg=4;//237年-06-11(JD=1807784)起用；237年-02-12起h=0.00033、晉書·律曆志(景初曆)
  if(kzs>=-17995)qdkg=5;//445年-01-24(JD=1883619)起、宋書·律曆志(何承天元嘉曆)
  if(kzs>=-17191)qdkg=6;//510年-01-26(JD=1907361)起、宋書·律曆志(祖沖之大明曆)
  if(kzs>=-16201)qdkg=7;//590年-02-10(JD=1936597)起、隨書·律曆志(開皇曆)
  if(kzs>=-16115)qdkg=8;//597年-01-24(JD=1939136)起、隨書·律曆志(大業曆)
  if(kzs>=-15843)qdkg=-1;//619-01-21(JD=1947168)平朔止
  var jsf=(kzs>=-34000&&kzs<-28769)?(0.00269249*(y-(-721))):0;
  var qdjds=(qdkg==-1)?'':(qdjd[qdkg]);//起點jd
  var yches=(qdkg==-1)?'':(yche[qdkg]);//起點kzs值差
  var qdkzs=(qdkg==-1)?'':(kzs+(kzca[qdkg]));//月長
  var j=(qdkg==-1)?(j0+28*k+f1+1721425):((qdjds-jsf+yches*(qdkzs))+0.5);//朔等效儒略日及時刻
  var kk=(qdkg==-1)?(souj(ms+floor(k)+15819)):0;var akk=(qdkg==-1)?(souja(ms+floor(k))):0;
  var lunD0=(qdkg==-1)?(jeJD-(floor(j)+kk+akk)):(jeJD-(floor(j)));//當日距朔日的差
  }else{
  var k2a=kzs-1237;var kak=0;if(kzs==1951||kzs==2444)kak=1;
  var j=(so_high(k2a)+(kak));var lunD0=(jeJD-(floor(j)));
  }
  if(k==floor(k)&&lunD0>=0&&lunD0<=29){
  lunD=(s1==5)?kzs:lunD0+1;k1=floor(k);
  var lunD03=floor(j);if(s1==5)lunD03=0;//當月朔日的值
  }
  if(k==(k1+1)){
  var lunD02=(qdkg==-1)?(floor(j)+kk+akk):(floor(j));if(s1==5)lunD02=0;//下月朔日的值
  }}
  var syd023=(s1==5)?0:lunD02-lunD03;//當月總天數；算大小月
  var v=lunD;//返回值
  var syd026=syd023;
 return(v+syd026*100);
 }

支持(0) 中立(0) 反对(0)  单帖管理 | 引用 | 回复 回到顶部
帅哥哟，离线，有人找我吗？
chwc
 小大  30楼 个性首页 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：黑侠 帖子：603 积分：5315 威望：0 精华：4 注册：2008/4/21 19:06:00 		  发帖心情 Post By：2011/2/28 19:48:00

//---電腦醫萬年暦及福星萬年暦農暦閏月信息---//
  var starYdM5=-4713;
var leapM7='ttHGtHHGkkkkHHGHtkHGktHGkkHGtHGtHHGkkkkkGtkHGktHGkkHGtkkHGHtHGtHGkHtHGHGtkHHGHHtHHGkkkkkGtkHGHtHGtHGkkHGtkHHGktHGkktHGkkHGtkHGktHGkkHt000';
var leapM7a=jieyaNum(leapM7);
 function leapM5(y){
   var v=leapM7a.charAt(y-starYdM5);
  if(v=='a')
    v=10;
  if(v=='b')
    v=11;
  if(v=='c')
    v=12;
  if(v=='')
    v=0;
  return parseInt(v);
}
      ////---前1188年到2302年某的總閏月----//
var leapNumber=new Array(0,0,0,1,1,1,2,2,3,3,3,4,4,4,5,5,6,6,6,7,7,7,8,8,8,9,9,10,10,10,11,11,11,12,12,13,13,13,14,14,14,15,15,15,16,16,17,17,17,18,18,18,19,19,20,20,20,21,21,21,22,22,22,23,23,24,24,24,25,25,25,26,26,27,27,27,28,28,28,29,29,29,30,30,31,31,31,32,32,32,33,33,34,34,34,35,35,35,36,36,36,37,37,38,38,38,39,39,39,40,40,41,41,41,42,42,42,43,43,43,44,44,45,45,45,46,46,46,47,47,48,48,48,49,49,49,50,50,50,51,51,52,52,52,53,53,53,54,54,55,55,55,56,56,56,57,57,57,58,58,59,59,59,60,60,60,61,61,62,62,62,63,63,63,64,64,64,65,65,66,66,66,67,67,67,68,68,69,69,69,70,70,70,71,71,71,72,72,73,73,73,74,74,74,75,75,76,76,76,77,77,77,78,78,78,79,79,80,80,80,81,81,81,82,82,83,83,83,84,84,84,85,85,85,86,86,87,87,87,88,88,88,89,89,90,90,90,91,91,91,92,92,92,93,93,94,94,94,95,95,95,96,96,97,97,97,98,98,98,99,99,99,100,100,101,101,101,102,102,102,103,103,104,104,104,105,105,105,106,106,106,107,107,108,108,108,109,109,109,110,110,111,111,111,112,112,112,113,113,113,114,114,115,115,115,116,116,116,117,117,118,118,118,119,119,119,120,120,120,121,121,122,122,122,123,123,123,124,124,125,125,125,126,126,126,127,127,127,128,128,129,129,129,130,130,130,131,131,132,132,132,133,133,133,134,134,134,135,135,136,136,136,137,137,137,138,138,139,139,139,140,140,140,141,141,141,142,142,143,143,143,144,144,144,145,145,146,146,146,147,147,147,148,148,148,149,149,150,150,150,151,151,151,152,152,153,153,153,154,154,154,155,155,155,156,156,157,157,157,158,158,158,159,159,160,160,160,161,161,161,162,162,162,163,163,164,164,164,165,165,165,166,166,167,167,167,168,168,168,169,169,170,170,170,171,171,171,172,172,172,173,173,174,174,174,175,175,176,176,176,177,177,177,178,178,178,179,179,180,180,180,180,181,181,181,182,182,183,183,183,183,184,184,185,185,186,186,187,187,188,188,188,188,189,189,189,189,190,190,190,191,191,192,192,193,193,193,193,194,195,195,195,195,195,195,196,196,197,197,198,198,198,199,199,199,199,200,200,201,201,201,201,202,203,203,203,203,203,204,204,204,205,206,206,206,207,207,208,208,208,209,209,209,210,210,210,210,211,211,211,211,212,212,213,213,214,214,215,215,215,216,216,217,217,218,218,218,218,219,219,220,220,220,220,221,221,222,222,222,223,223,224,224,224,225,225,225,226,226,226,227,227,228,228,228,229,229,229,230,230,230,231,231,231,232,232,233,233,233,234,234,235,235,235,236,236,236,237,237,238,238,238,239,239,240,240,240,241,241,241,241,242,242,243,243,243,244,244,245,245,245,246,246,246,247,247,248,248,248,248,249,249,250,250,250,250,251,251,252,252,253,253,254,254,254,254,255,255,256,256,256,257,257,257,258,258,259,259,259,260,260,260,261,261,261,262,262,263,263,263,264,264,265,265,265,266,266,266,267,267,267,268,268,268,269,269,270,270,270,271,271,271,272,272,273,273,273,274,274,274,275,275,275,276,276,277,277,277,278,278,278,279,279,280,280,280,281,281,281,282,282,282,283,283,284,284,284,285,285,285,286,286,287,287,287,288,288,288,289,289,289,290,290,291,291,291,292,292,292,293,293,294,294,294,295,295,295,296,296,296,297,297,298,298,298,299,299,299,300,300,301,301,301,302,302,302,303,303,303,304,304,305,305,305,306,306,306,307,307,308,308,308,309,309,309,310,310,310,311,311,312,312,312,313,313,313,314,314,315,315,315,316,316,316,317,317,317,318,318,319,319,319,320,320,320,321,321,322,322,322,323,323,323,324,324,324,325,325,326,326,326,327,327,327,328,328,329,329,329,330,330,330,331,331,331,332,332,333,333,333,334,334,334,335,335,336,336,336,337,337,337,338,338,338,338,338,339,339,339,340,340,341,341,341,342,342,342,343,343,343,344,344,345,345,345,346,346,346,347,347,347,348,348,349,349,349,350,350,350,351,351,352,352,352,353,353,353,354,354,354,355,355,356,356,356,357,357,357,358,358,359,359,359,360,360,360,361,361,361,362,362,363,363,363,364,364,364,365,365,366,366,366,367,367,367,368,368,368,369,369,370,370,370,371,371,371,372,372,373,373,373,374,374,374,375,375,376,376,376,377,377,377,378,378,378,379,379,380,380,380,381,381,381,382,382,383,383,383,384,384,384,385,385,385,386,386,387,387,387,388,388,388,389,389,390,390,390,391,391,391,392,392,392,393,393,394,394,394,395,395,395,396,396,397,397,397,398,398,398,399,399,400,400,400,401,401,401,402,402,402,403,403,404,404,404,405,405,405,406,406,407,407,407,408,408,408,409,409,409,410,410,411,411,411,412,412,412,413,413,414,414,414,415,415,415,416,416,416,417,417,418,418,418,419,419,419,420,420,421,421,421,422,422,422,423,423,423,424,424,425,425,425,426,426,426,427,427,428,428,428,429,429,429,430,430,430,431,431,432,432,432,433,433,433,434,434,435,435,435,436,436,436,437,437,437,438,438,439,439,439,440,440,440,441,441,441,442,442,443,443,443,444,444,444,445,445,446,446,446,447,447,447,448,448,449,449,449,450,450,450,451,451,451,452,452,453,453,453,454,454,454,455,455,456,456,456,457,457,457,458,458,458,459,459,460,460,460,461,461,461,462,462,463,463,463,464,464,464,465,465,465,466,466,467,467,467,468,468,468,469,469,470,470,470,471,471,471,472,472,472,473,473,474,474,474,475,475,475,476,476,477,477,477,478,478,478,479,479,479,480,480,481,481,481,482,482,482,483,483,484,484,484,485,485,485,486,486,486,487,487,488,488,488,489,489,489,490,490,491,491,491,492,492,492,493,493,493,494,494,495,495,495,496,496,496,497,497,498,498,498,499,499,499,500,500,500,501,501,502,502,502,503,503,503,504,504,505,505,505,506,506,506,507,507,507,508,508,509,509,509,510,510,510,511,511,512,512,512,513,513,513,514,514,514,515,515,516,516,516,517,517,517,518,518,519,519,519,520,520,520,521,521,521,522,522,523,523,523,524,524,524,525,525,526,526,526,527,527,527,528,528,528,529,529,530,530,530,531,531,531,532,532,533,533,533,534,534,534,535,535,535,536,536,537,537,537,538,538,538,539,539,540,540,540,541,541,541,542,542,542,543,543,544,544,544,545,545,545,546,546,547,547,547,548,548,548,549,549,549,550,550,551,551,551,552,552,552,553,553,554,554,554,555,555,555,556,556,556,557,557,558,558,558,559,559,559,560,560,561,561,561,562,562,562,563,563,563,564,564,565,565,565,566,566,566,567,567,568,568,568,569,569,569,570,570,570,571,571,572,572,572,573,573,573,574,574,575,575,575,576,576,576,577,577,577,578,578,579,579,579,580,580,580,581,581,582,582,582,583,583,583,584,584,584,585,585,586,586,586,587,587,587,588,588,589,589,589,590,590,590,591,591,591,592,592,593,593,593,594,594,594,595,595,596,596,596,597,597,597,598,598,598,599,599,599,600,600,601,601,601,602,602,602,603,603,604,604,604,605,605,605,606,606,606,607,607,608,608,608,609,609,609,610,610,611,611,611,612,612,612,613,613,613,614,614,615,615,615,616,616,616,617,617,618,618,618,619,619,619,620,620,620,621,621,622,622,622,623,623,623,624,624,625,625,625,626,626,626,627,627,627,628,628,629,629,629,630,630,630,631,631,632,632,632,633,633,633,634,634,634,635,635,636,636,636,637,637,637,638,638,639,639,639,640,640,640,641,641,641,642,642,643,643,643,644,644,644,645,645,646,646,646,647,647,647,648,648,648,649,649,650,650,650,651,651,651,652,652,653,653,653,654,654,654,655,655,655,656,656,657,657,657,658,658,658,659,659,660,660,660,661,661,661,662,662,662,663,663,664,664,664,665,665,665,666,666,667,667,667,668,668,668,669,669,669,670,670,671,671,671,672,672,672,673,673,674,674,674,675,675,675,676,676,676,677,677,678,678,678,679,679,679,680,680,681,681,681,682,682,682,683,683,683,684,684,685,685,685,686,686,686,687,687,687,688,688,689,689,689,690,690,690,691,691,692,692,692,693,693,693,694,694,694,695,695,696,696,696,697,697,697,698,698,699,699,699,700,700,700,701,701,702,702,702,703,703,703,704,704,704,705,705,706,706,706,707,707,707,708,708,708,709,709,710,710,710,711,711,711,712,712,713,713,713,714,714,714,715,715,715,716,716,717,717,717,718,718,718,719,719,720,720,720,721,721,721,722,722,722,723,723,724,724,724,725,725,725,726,726,727,727,727,728,728,728,729,729,729,730,730,731,731,731,732,732,732,733,733,734,734,734,735,735,735,736,736,736,737,737,738,738,738,739,739,739,740,740,741,741,741,742,742,742,743,743,743,744,744,745,745,745,746,746,746,747,747,748,748,748,749,749,749,750,750,750,751,751,752,752,752,753,753,753,754,754,755,755,755,756,756,756,757,757,757,758,758,759,759,759,760,760,760,761,761,762,762,762,763,763,763,764,764,764,765,765,766,766,766,767,767,767,768,768,769,769,769,770,770,770,771,771,771,772,772,773,773,773,774,774,774,775,775,776,776,776,777,777,777,778,778,778,779,779,780,780,780,781,781,781,782,782,783,783,783,784,784,784,785,785,785,786,786,787,787,787,788,788,788,789,789,790,790,790,791,791,791,792,792,792,793,793,794,794,794,795,795,795,796,796,797,797,797,798,798,798,799,799,799,800,800,801,801,801,802,802,802,803,803,804,804,804,805,805,805,806,806,806,807,807,808,808,808,809,809,809,810,810,811,811,811,812,812,812,813,813,813,814,814,815,815,815,816,816,816,817,817,818,818,818,819,819,819,820,820,820,821,821,822,822,822,823,823,823,824,824,825,825,825,826,826,826,827,827,827,828,828,829,829,829,830,830,830,831,831,831,832,832,833,833,833,834,834,834,835,835,836,836,836,837,837,837,838,838,838,839,839,840,840,840,841,841,841,842,842,843,843,843,844,844,844,845,845,845,846,846,847,847,847,848,848,848,849,849,850,850,850,851,851,851,852,852,852,853,853,854,854,854,855,855,855,856,856,857,857,857,858,858,858,859,859,860,860,860,861,861,861,862,862,862,863,863,864,864,864,865,865,865,866,866,866,867,867,868,868,868,869,869,869,870,870,871,871,871,872,872,872,873,873,873,874,874,875,875,875,876,876,876,877,877,878,878,878,879,879,879,880,880,880,881,881,882,882,882,883,883,883,884,884,885,885,885,886,886,886,887,887,887,888,888,889,889,889,890,890,890,891,891,892,892,892,893,893,893,894,894,894,895,895,896,896,896,897,897,897,898,898,899,899,899,900,900,900,901,901,901,902,902,903,903,903,904,904,904,905,905,906,906,906,907,907,907,908,908,908,909,909,910,910,910,911,911,911,912,912,913,913,913,914,914,914,915,915,915,916,916,917,917,917,918,918,918,919,919,919,920,920,921,921,921,922,922,922,923,923,924,924,924,925,925,925,926,926,927,927,927,928,928,928,929,929,929,930,930,931,931,931,932,932,932,933,933,933,934,934,935,935,935,936,936,936,937,937,938,938,938,939,939,939,940,940,941,941,941,942,942,942,943,943,943,944,944,945,945,945,946,946,946,947,947,948,948,948,949,949,949,950,950,950,951,951,952,952,952,953,953,953,954,954,955,955,955,956,956,956,957,957,957,958,958,959,959,959,960,960,960,961,961,962,962,962,963,963,963,964,964,964,965,965,966,966,966,967,967,967,968,968,968,969,969,970,970,970,971,971,971,972,972,973,973,973,974,974,974,975,975,975,976,976,977,977,977,978,978,978,979,979,980,980,980,981,981,981,982,982,982,983,983,984,984,984,985,985,985,986,986,987,987,987,988,988,988,989,989,989,990,990,991,991,991,992,992,992,993,993,994,994,994,995,995,995,996,996,997,997,997,998,998,998,999,999,999,1000,1000,1001,1001,1001,1002,1002,1002,1003,1003,1003,1004,1004,1005,1005,1005,1006,1006,1006,1007,1007,1008,1008,1008,1009,1009,1009,1010,1010,1010,1011,1011,1012,1012,1012,1013,1013,1013,1014,1014,1015,1015,1015,1016,1016,1016,1017,1017,1017,1018,1018,1019,1019,1019,1020,1020,1020,1021,1021,1022,1022,1022,1023,1023,1023,1024,1024,1024,1025,1025,1026,1026,1026,1027,1027,1027,1028,1028,1029,1029,1029,1030,1030,1030,1031,1031,1031,1032,1032,1033,1033,1033,1034,1034,1034,1035,1035,1036,1036,1036,1037,1037,1037,1038,1038,1038,1039,1039,1040,1040,1040,1041,1041,1041,1042,1042,1042,1043,1043,1044,1044,1044,1045,1045,1045,1046,1046,1047,1047,1047,1048,1048,1048,1049,1049,1049,1050,1050,1051,1051,1051,1052,1052,1052,1053,1053,1054,1054,1054,1055,1055,1055,1056,1056,1056,1057,1057,1058,1058,1058,1059,1059,1059,1060,1060,1061,1061,1061,1062,1062,1062,1063,1063,1063,1064,1064,1065,1065,1065,1066,1066,1066,1067,1067,1068,1068,1068,1069,1069,1069,1070,1070,1070,1071,1071,1072,1072,1072,1073,1073,1073,1074,1074,1075,1075,1075,1076,1076,1076,1077,1077,1077,1078,1078,1079,1079,1079,1080,1080,1080,1081,1081,1082,1082,1082,1083,1083,1083,1084,1084,1084,1085,1085,1086,1086,1086,1087,1087,1087,1088,1088,1089,1089,1089,1090,1090,1090,1091,1091,1091,1092,1092,1093,1093,1093,1094,1094,1094,1095,1095,1095,1096,1096,1097,1097,1097,1098,1098,1098,1099,1099,1100,1100,1100,1101,1101,1101,1102,1102,1102,1103,1103,1104,1104,1104,1105,1105,1105,1106,1106,1107,1107,1107,1108,1108,1108,1109,1109,1110,1110,1110,1111,1111,1111,1112,1112,1112,1113,1113,1114,1114,1114,1115,1115,1115,1116,1116,1117,1117,1117,1118,1118,1118,1119,1119,1119,1120,1120,1121,1121,1121,1122,1122,1122,1123,1123,1124,1124,1124,1125,1125,1125,1126,1126,1126,1127,1127,1128,1128,1128,1129,1129,1129,1130,1130,1130,1131,1131,1132,1132,1132,1133,1133,1133,1134,1134,1135,1135,1135,1136,1136,1136,1137,1137,1137,1138,1138,1139,1139,1139,1140,1140,1140,1141,1141,1142,1142,1142,1143,1143,1143,1144,1144,1144,1145,1145,1146,1146,1146,1147,1147,1147,1148,1148,1149,1149,1149,1150,1150,1150,1151,1151,1151,1152,1152,1153,1153,1153,1154,1154,1154,1155,1155,1156,1156,1156,1157,1157,1157,1158,1158,1158,1159,1159,1160,1160,1160,1161,1161,1161,1162,1162,1163,1163,1163,1164,1164,1164,1165,1165,1166,1166,1166,1167,1167,1167,1168,1168,1168,1169,1169,1170,1170,1170,1171,1171,1171,1172,1172,1172,1173,1173,1174,1174,1174,1175,1175,1175,1176,1176,1177,1177,1177,1178,1178,1178,1179,1179,1179,1180,1180,1181,1181,1181,1182,1182,1182,1183,1183,1184,1184,1184,1185,1185,1185,1186,1186,1186,1187,1187,1188,1188,1188,1189,1189,1189,1190,1190,1191,1191,1191,1192,1192,1192,1193,1193,1193,1194,1194,1195,1195,1195,1196,1196,1196,1197,1197,1198,1198,1198,1199,1199,1199,1200,1200,1200,1201,1201,1202,1202,1202,1203,1203,1203,1204,1204,1205,1205,1205,1206,1206,1206,1207,1207,1207,1208,1208,1209,1209,1209,1210,1210,1210,1211,1211,1212,1212,1212,1213,1213,1213,1214,1214,1214,1215,1215,1216,1216,1216,1217,1217,1217,1218,1218,1219,1219,1219,1220,1220,1220,1221,1221,1221,1222,1222,1223,1223,1223,1224,1224,1224,1225,1225,1226,1226,1226,1227,1227,1227,1228,1228,1228,1229,1229,1230,1230,1230,1231,1231,1231,1232,1232,1233,1233,1233,1234,1234,1234,1235,1235,1235,1236,1236,1237,1237,1237,1238,1238,1238,1239,1239,1239,1240,1240,1241,1241,1241,1242,1242,1242,1243,1243,1244,1244,1244,1245,1245,1245,1246,1246,1247,1247,1247,1248,1248,1248,1249,1249,1249,1250,1250,1251,1251,1251,1252,1252,1252,1253,1253,1254,1254,1254,1255,1255,1255,1256,1256,1256,1257,1257,1258,1258,1258,1259,1259,1259,1260,1260,1261,1261,1261,1262,1262,1262,1263,1263,1263,1264,1264,1265,1265,1265,1266,1266,1266,1267,1267,1267,1268,1268,1269,1269,1269,1270,1270,1270,1271,1271,1272,1272,1272,1273,1273,1273,1274,1274,1274,1275,1275,1276,1276,1276,1277,1277,1277,1278,1278,1279,1279,1279,1280,1280,1280,1281,1281,1281,1282,1282);
支持(0) 中立(0) 反对(0)  单帖管理 | 引用 | 回复 回到顶部
总数 39 上一页 1 2 3 4 下一页

返回版面帖子列表

[原创]电脑医生万年历和福星万年历最新历算源码
签名：
RSS2.0　　Xhtml无图版　　Xslt无图版 Copyright ©2005 - 2018 NongLi.Com Email:chinanongli@tom.com   京ICP备05002438号 Powered By Dvbbs8.2.0