|
许剑伟, 你好，我改了一下程序(八字功能)，输出日历到文本文件， 格式如下
(每天00:30:00点开始)公历 , 儒略日数 , 距2000年首(日) , 八字 , 真太阳
1995-1-1 00:30:00 , 2449719 , -1826 , 甲戌丙子壬辰庚子 , 00:12:30
1995-1-2 00:30:00 , 2449720 , -1825 , 甲戌丙子癸巳壬子 , 00:12:02
1995-1-3 00:30:00 , 2449721 , -1824 , 甲戌丙子甲午甲子 , 00:11:34
1995-1-4 00:30:00 , 2449722 , -1823 , 甲戌丙子乙未丙子 , 00:11:06
1995-1-5 00:30:00 , 2449723 , -1822 , 甲戌丙子丙申戊子 , 00:10:38
1995-1-6 00:30:00 , 2449724 , -1821 , 甲戌丙子丁酉庚子 , 00:10:11
....
我希望增加 阴历日期、二十四节气及它精确时间 等到 字段末尾， 新格式变为
(每天00:30:00点开始)公历 , 儒略日数 , 距2000年首(日) , 八字 , 真太阳 , 阴历日期 , 节气, 节气精确时间
2012-3-5 00:00:00 , 2455992 , 4447 , 壬辰壬寅乙丑丙子 , 23:33:58 , 2012-2-13小, 惊蛰, 2012-03-05 12:21:02
...
希望帮助，附件是改过的程序，sxwnl.html 主要更改部分如下：
/**********************
命理八字计算
**********************/
function ML_calc() {
var ob = new Object();
Cml_m.value = '1';
Cml_d.value = '1';
Cml_his.value = '00:00:00';
var t = timeStr2hour(Cml_his.value);
//var jd = JD.JD(year2Ayear(Cml_y.value), Cml_m.value - 0, Cml_d.value - 0 + t / 24)
var jd, rl, ns;
var i = 0, m_dy = 0, m_dm = 0, m_dd = 0, m_endy = 0;
var path = document.location.pathname;
var dir = path.substring(path.indexOf('/') + 1, path.lastIndexOf('/'));
var sText = '(每天'+Cml_his.value+'点开始)公历 , 儒略日数 , 距2000年首(日) , 八字 , 真太阳 \n';
var sep = ' , ';
var myDate = new Date();
//var endDate = new Date();
myDate.setFullYear(Cml_y.value, Cml_m.value - 1, Cml_d.value);
//endDate.setFullYear(Cml_y.value + 10, Cml_m.value - 1, Cml_d.value);
m_dy = Cml_y.value-0;
m_endy = m_dy;
m_endy += (Cml_span.value-0);
// 长时间运行，关掉超时报警
setTimeout("ML_calc", 120000);
// 最大时间跨度 100年
for (i = 0; i<36600; i++) {
m_dy="m_dy" = myDate.getFullYear() - 0;
if="if" (m_dy >= m_endy) break;
m_dm = myDate.getMonth()+1;
m_dd = myDate.getDate()-0;
jd = JD.JD(year2Ayear(m_dy), m_dm - 0, m_dd - 0 + t / 24);
obb.mingLiBaZi(jd + curTZ / 24 - J2000, Cp11_J.value / radd, ob); //八字计算
rl = int2(jd + 0.5);
ns = int2(jd + 0.5 - J2000);
//Cal6.innerHTML +=
// '公历 ' + myDate.toLocaleDateString() +' 儒略日数 ' + rl + ' 距2000年首' + ns + '日'
// + '[八字]：' + ob.bz_jn + '年 ' + ob.bz_jy + '月 ' + ob.bz_jr + '日 ' + ob.bz_js + '时 真太阳' + ob.bz_zty + '换行字符';
myDate.setDate(myDate.getDate() + 1); // 时间后延
sText += m_dy+'-'+ m_dm +'-'+m_dd+ ' '+Cml_his.value+ sep + rl + sep + ns + sep + ob.bz_jn +ob.bz_jy +ob.bz_jr + ob.bz_js + sep + ob.bz_zty + '\n';
}
var fso = new ActiveXObject("Scripting.FileSystemObject");
var m_file = dir + '/D' + Cml_y.value + 'SPAN' + Cml_span.value + '.txt';
Cal6.innerHTML += m_file + '换行字符';
//ForReading 1 Open a file for reading only. You can't write to this file.
//ForWriting 2 Open a file for writing.
//ForAppending 8 Open a file and write to the end of the file.
var FileObject = fso.OpenTextFile(m_file, 2, true, 0); // 8=append, true=create if not exist, 0 = ASCII
FileObject.write(sText);
FileObject.close()
}
换行字符 是 < b r >
|
加好友 
发短信
Post By：2012/3/7 19:14:00
Post By：2012/3/12 20:32:00
此主题相关图片如下：1.jpg