□ Scripts for TClock □

このエントリーをはてなブックマークに追加
951名無し~3.EXE
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();