img_url="http://qpon.quu.cc/java/moon/";//月の写真の保存場所
back_img="moon1"+(img_size-1)+".jpg";
moon_size=230;if(img_size<2){moon_size=115;}if(img_size>2){moon_size=460;}
moon_size2=moon_size/2;

//月齢計算
function moon(julian) {
//////////////////////////////////////////////////////////////////
// 月齢計算は福原直人さんのソースを使わせていただきました	//
// http://member.nifty.ne.jp/naohito/topic/moonage.js.txt	//
//////////////////////////////////////////////////////////////////
kijun=2451550.09765;//2000/1/6 23:23の新月
syuki= 29.530589;//周回日数
var k= Math.floor((julian - kijun) / syuki);
var t     = k / 1236.85;

//直前の新月日(ユリウス日)
var nmoon = kijun;
nmoon=nmoon+  syuki  * k;
nmoon=nmoon+  0.0001337 * t * t;
nmoon=nmoon-  0.40720   * Math.sin((201.5643 + 385.8169 * k) * 0.017453292519943);
nmoon=nmoon+  0.17241   * Math.sin((2.5534 +  29.1054 * k) * 0.017453292519943);
///////////////////////////////////////////////////////////////////
//月齢
d=julian - nmoon;
if(d<0){d=0;}
  return d;
}


//桁揃え
function keta(num){
  if (num < 10){ num= '0' + num;  } 
 return num;
}
//少数点揃え
function ten(num){
age=(Math.round(num*10))/10;
age=""+age;
l=age.indexOf(".",0);
if(l<0){age=age+".0";}
 return age;
}

///////ユリウス日→年月日////////
nisu=new Array(0,31,28,31,30,31,30,31,31,30,31,30,31);
function jull(s){
ss=s*0.416666;
if(ss==0){clearTimeout(j_tim);return;}
jull_sub();
}
//月齢自動増減
s_nisu=new Array();
function jull_sub(){
j_tim=setTimeout("jull_sub()",200);
julian=julian+ss;
moonage=moon(julian);//現在時刻の月齢
ju=julian-0.125;
y1=Math.floor(ju/(400*365));
y2=Math.floor(ju/(100*365));
y3=Math.floor(ju/(4*365));
yy=Math.floor((ju-y3+y2-y1)/365);
nisu[2]=29;
if(yy%4==0){ nisu[2]=29;}
if(yy%100==0){ nisu[2]=28;}
if(yy%400==0){ nisu[2]=29;}
s_nisu[0]=0;
for(i=1;i<=12;i++){
s_nisu[i]=s_nisu[i-1]+nisu[i];

}
year=yy-4713+1;
dd1=(ju-y3+y2-y1-35);
dd=Math.floor(dd1%365);
ii=0;
for(i=0;i< 12;i++){
if(dd>s_nisu[i]){ii=i;}
}
month=ii+1;
ddd=dd-s_nisu[ii];

day=Math.floor(ddd);
ju2=ju-Math.floor(ju);
hh=Math.floor(ju2*1440);

hour=Math.floor(hh/60);
minute=hh%60;
you= Math.floor(ju+2)%7;
//データの値セット
dt_put();
moon_put();
}

//現在の年月日、時刻
//var moonage;
week   = new Array('\日', '\月', '\火', '\水', '\木', '\金', '\土');
//現在の年月日、時刻
function ima(){
nowDate   = new Date();
year    = nowDate.getYear();
if(year < 2000){  year += 1900;}
month  = nowDate.getMonth() + 1;
day    = nowDate.getDate();
you =nowDate.getDay();
hour   = nowDate.getHours();
minute = nowDate.getMinutes();
}

//初期化
function cls(){
ima();
keisan_sub();
dt_put();
moon_put();
}
//データ取り出し
function dt_get(){
year    = document.moon_form.nen.value*1;
month   = document.moon_form.tuki.value*1;
day   = document.moon_form.hi.value*1;
hour   = document.moon_form.ji.value*1;
minute = document.moon_form.hun.value*1;
}
//月齢計算
function keisan(){
dt_get();
keisan_sub();
dt_put();
moon_put();
}
//
function keisan_sub(){
ymd=year+"/"+month+"/"+day;
d0=Date.parse(ymd);//1970/01/01からのミリ秒
d1=(hour*60+minute)*60*1000;//今日のミリ秒
d_time=(d0+d1)/ 86400000;//1970/01/01の日数
julian=d_time +2440587.5;//ユリウス通日(紀元前4713年1月1日からの日数）
moonage=moon(julian);//現在時刻の月齢
in_date= new Date(ymd);
you=in_date.getDay();
}
//データの値セット
function dt_put(){
document.moon_form.rei.value=ten(moonage);
document.moon_form.jul.value=julian;
document.moon_form.tuki.value=keta(month);
document.moon_form.hi.value=keta(day);
document.moon_form.ji.value=keta(hour);
document.moon_form.hun.value=keta(minute);

document.moon_form.youbi.value=week[you];

}
//月の絵の満ち欠け
function moon_put(){
document.moon_l.height=moon_size;
document.moon_r.height=moon_size;
document.moon_l1.height=moon_size;
document.moon_r1.height=moon_size;
if(moonage<7.5){
document.moon_l1.src=img_url+"moon_rl1.gif";
document.moon_l1.width=moon_size2+1;
document.moon_l.src=img_url+"moon_rl1.gif";
document.moon_l.width=2;

p=(Math.round(Math.cos(3.1416*(((1-(7.5-moonage)/7.5))*-90/180))*100))/100;
document.moon_r1.src=img_url+"moon_rl.gif";
document.moon_r1.width=moon_size2*(1-p);
document.moon_r.src=img_url+"moon_r1.gif";
document.moon_r.width=moon_size2*(p);

}
if(moonage>=7.5 && moonage<15){
p=(100-Math.round(Math.cos(3.1416*(((15-moonage)/7.5)*90/180))*100))/100;
document.moon_l.src=img_url+"moon_l.gif";
document.moon_l.width=moon_size2*(1-p);
document.moon_l1.src=img_url+"moon_rl1.gif";
document.moon_l1.width=moon_size2*p;

document.moon_r.src=img_url+"moon_rl.gif";
document.moon_r.width=2;
document.moon_r1.src=img_url+"moon_rl.gif";
document.moon_r1.width=moon_size2+1;
}
if(moonage>=15 && moonage<22.5){
document.moon_l1.src=img_url+"moon_rl.gif";
document.moon_l1.width=1
document.moon_l.src=img_url+"moon_rl.gif";
document.moon_l.width=moon_size2+1;

p=(Math.round(Math.cos(3.1416*(((1-(22.5-moonage)/7.5))*-90/180))*100))/100;
document.moon_r1.src=img_url+"moon_rl1.gif";
document.moon_r1.width=moon_size2*(1-p);
document.moon_r.src=img_url+"moon_r.gif";
document.moon_r.width=moon_size2*(p);

}
if(moonage>22.5){
p=(100-Math.round(Math.cos(3.1416*(((30-moonage)/7.5)*90/180))*100))/100;
document.moon_l.src=img_url+"moon_l1.gif";
document.moon_l.width=moon_size2*(1-p);
document.moon_l1.src=img_url+"moon_rl.gif";
document.moon_l1.width=moon_size2*p;

document.moon_r.src=img_url+"moon_rl1.gif";
document.moon_r.width=moon_size2+1;
document.moon_r1.src=img_url+"moon_rl1.gif";
document.moon_r1.width=2
}
}