// 01/01/03    6,265,655,821  
// http://blue.census.gov/cgi-bin/ipc/popclockw

// World Vital Events Per Time Unit: 2003
// (Figures may not add to totals due to rounding)
// -------------------------------------------------
//                                          Natural
// Time unit       Births      Deaths       increase
// -------------------------------------------------
// Year       128,746,122   55,660,746    73,085,376 
// Month       10,728,844    4,638,396     6,090,448 
// Day            352,729      152,495       200,234 
// Hour            14,697        6,354         8,343 
// Minute             245          106           139 
// Second             4.1          1.8           2.3 
// -------------------------------------------------
// http://blue.census.gov/cgi-bin/ipc/pcwe


function pop(){
	// 1970/1/1 0:00:00からの経過時間
	// 2001/h13年度末(2003/1/1)の時刻 : 1041379200
	var t_2003 = 1041379200;

	// 2003/1/1 の世界人口：6265655821
	var pop_2003 = 6265655821;
    
	// 2003　の人口増加推定値（年） : 73085376
	var inc_2003 = 73085376;

	// 日付オブジェクトを取得します
	var obj_date = new Date();
    
    // 1970/1/1 0:00:00からの経過時間
	var now_time = obj_date.getTime() / 1000;
    now_time = now_time + parseInt(document.F_SEL.DD1.value) * 31536000;
    
	// 線形近似にる１秒の人口増加量
	var pop_inc = inc_2003 / 365 / 24 / 3600;

	// 現在の人口
    var pop = pop_2003 + (now_time - t_2003) * pop_inc;

	// 人口計算結果の各単位表示処理
	var popOKU = Math.floor(pop / 100000000);
	var popMAN = Math.floor((pop - popOKU * 100000000) / 10000);
	var popBASE = Math.floor((pop - popOKU * 100000000 - popMAN * 10000));

	// フォームに表示します
//	document.forms[0].tot.value = pop;
	document.forms[0].oku.value = popOKU;
	document.forms[0].man.value = popMAN;
	document.forms[0].nin.value = popBASE;

	timeoutID = setTimeout('pop()', 1000);
}

// 統計表示
function stat(){
	self.name="main"
	window.open("stat_pop.htm","statistics","resizable=no,menubar=no,directories=no,status=no,scrollbars=no,location=no,width=520,height=300");
}