ttp://www.ai.wakwak.com/~y-nagano/Programs/koyomi/ の qreki.js の最後に以下の行を追加。
<%%>がいる人は各自追加のこと。
function format(num, keta) {
var d = Math.pow(10, keta);
return Math.floor(num * d + .5) / d;
}
var uruu = "";
var date = new Date();
var kr = new kyureki(date.getJD());
if(kr.uruu) uruu="閏";
var fso = new ActiveXObject("Scripting.FileSystemObject");
var a = fso.CreateTextFile("qreki.txt", true);
a.WriteLine("DATE ("+kr.rokuyo+")");
a.WriteLine("旧暦 "+kr.year+"/"+uruu+kr.month+"/"+kr.day);
a.Write("月齢 "+format(kr.mage, 3));
a.Close();