// リアルタイム財政赤字カウンター ver 5.6.3.1
// 更新履歴などは http://www.kh-web.org/fin/faq.htm で

// 表示形式の為の共有変数を設定します
showType = 0;
function f_akaji(){
	// 1970/1/1 0:00:00からの経過時間（ミリ秒）による
	// 1997/h09年度末(1998/3/31)の時刻 : 891388800000
	var t_1997 = 891388800000;
	// 1998/h10年度末(1999/3/31)の時刻 : 922924800000
	var t_1998 = 922924800000;
	// 1999/h11年度末(2000/3/31)の時刻 : 954547200000
	var t_1999 = 954547200000;
	// 2000/h12年度末(2001/3/31)の時刻 : 986083200000
	var t_2000 = 986083200000;
	// 2001/h13年度末(2002/3/31)の時刻 : 1017619200000
	var t_2001 = 1017619200000;
	// 2002/h14年度末(2003/3/31)の時刻 : 1049155200000
	var t_2002 = 1049155200000;
	// 2003/h15年度末(2004/3/31)の時刻 : 1080777600000
	var t_2003 = 1080777600000;
	// 2004/h16年度末(2005/3/31)の時刻 :1112313600000
	var t_2004 = 1112313600000;
	// 2005/h17年度末(2006/3/31)の時刻 :1143849600000
	var t_2005 = 1143849600000;
	// 2006/h18年度末(2007/3/31)の時刻 :1175385600000
	var t_2006 = 1175385600000;
	// 2007/h19年度末(2008/3/31)の時刻 :1206921600000
	var t_2007 = 1206921600000;
	// 2008/h20年度末(2009/3/31)の時刻 :1238457600000
	var t_2008 = 1238457600000;
	// 2009/h21年度末(2010/3/31)の時刻 :1269993600000
	var t_2009 = 1269993600000;

	// 2004/h16年度末の国債／借入金残高 見込: 813兆円	地方含：983兆円
	var red2004_allins = 983000000000000;
	// 2005/h17年度末の国債／借入金残高 見込: 887兆円	地方含：1059兆円
	var red2005_allins = 1059000000000000;
	// 2006/h18年度末の国債／借入金残高 見込: 887兆円	地方含：1064兆円
	var red2006_allins = 1064055000000000;
	// 2007/h19年度末の国債／借入金残高 見込: 882兆円	地方含：1081兆円
	var red2007_allins = 1081000000000000;
	// 2008/h20年度末の国債／借入金残高 見込: 885兆円	地方含：1082兆円
	var red2008_allins = 1082000000000000;
	// 2009/h21年度末の日本全体の借入金残高 見込: 906兆円	地方含：1103兆円
	var red2009_allins = 1103000000000000;

	// 1997/h09年度末の国／地方長期債務残高 : 489兆円
	var red1997_allj = 489000000000000;
	// 1998/h10年度末の国／地方長期債務残高 : 553兆円
	var red1998_allj = 560000000000000;
	// 1999/h11年度末の国／地方長期債務残高 : 608兆円
	var red1999_allj = 608000000000000;
	// 2000/h12年度末の国／地方長期債務残高 : 646兆円
	var red2000_allj = 646000000000000;
	// 2001/h13年度末の国／地方長期債務残高 : 675兆円
	var red2001_allj = 675000000000000;
	// 2002/h14年度末の国／地方長期債務残高 : 705兆円
	var red2002_allj = 705000000000000;
	// 2003/h15年度末の国／地方長期債務残高 補正後: 695兆円	実績：692兆円
	var red2003_allj = 692000000000000;
	// 2004/h16年度末の国／地方長期債務残高 予算: 719兆円	補正後：740兆円
	var red2004_allj = 740000000000000;
	// 2005/h17年度末の国／地方長期債務残高 予算: 774兆円	補正後：770	実績：758兆円
	var red2005_allj = 758000000000000;
	// 2006/h18年度末の国／地方長期債務残高 予算: 775兆円	補正後：767兆円
	var red2006_allj = 767000000000000;
	// 2007/h19年度末の国／地方長期債務残高 予算: 772兆円	補正後：
	var red2007_allj = 773000000000000;
	// 2008/h20年度末の国／地方長期債務残高 予算: 776兆円	補正後：787兆円
	var red2008_allj = 787000000000000;
	// 2009/h21年度末の国／地方長期債務残高 予算: 816兆円	補正後：
	var red2009_allj = 816000000000000;

	// 1997/h09年度末の普通国債残高 : 255兆円
	var red1997_cent = 255000000000000;
	// 1998/h10年度末の普通国債残高 : 299兆円
	var red1998_cent = 299000000000000;
	// 1999/h11年度末の普通国債残高 : 335兆円
	var red1999_cent = 335000000000000;
	// 2000/h12年度末の普通国債残高 : 368兆円
	var red2000_cent = 368000000000000;
	// 2001/h13年度末の普通国債残高 : 392兆円
	var red2001_cent = 392000000000000;
	// 2002/h14年度末の普通国債残高 : 428兆円
	var red2002_cent = 428000000000000;
	// 2003/h15年度末の普通国債残高 補正後: 459兆円	実績：457兆円
	var red2003_cent = 457000000000000;
	// 2004/h16年度末の普通国債残高 予算: 483兆円	補正後：505兆円
	var red2004_cent = 505000000000000;
	// 2005/h17年度末の普通国債残高 予算: 538兆円	補正後：536兆円	実績：527兆円
	var red2005_cent = 527000000000000;
	// 2006/h18年度末の普通国債残高 予算: 542兆円	補正後：538兆円
	var red2006_cent = 538000000000000;
	// 2007/h19年度末の普通国債残高 予算: 547兆円	実績：568
	var red2007_cent = 568000000000000;
	// 2008/h20年度末の普通国債残高 予算: 553兆円	実績：573
	var red2008_cent = 573000000000000;
	// 2009/h21年度末の普通国債残高 見込: 592兆円	補正後：619
	var red2009_cent = 619000000000000;

	// 日本の人口 2000/h12 : 126926
	// 日本の人口 2004/h16 : 127716
	var pop = 127716000;

	// 日付オブジェクトを取得します
	var obj_date = new Date();
	// 1970/1/1 0:00:00からの経過時間（ミリ秒）を求めます
	var now_time = obj_date.getTime();

	// （大胆にも！）線形近似によって現在の長期債務残高総額を求めます
	// 現在の短期債も含む国および地方の国債／借入金残高
	var akaji_allins = (red2009_allins - red2008_allins) / (t_2009 - t_2008) * ( now_time - t_2009) + red2009_allins;
	// 現在の国／地方長期債務残高
	var akaji_allj = (red2009_allj - red2008_allj) / (t_2009 - t_2008) * ( now_time - t_2009) + red2009_allj;
	// 現在の普通国債残高
	var akaji_cent = (red2009_cent - red2008_cent) / (t_2009 - t_2008) * ( now_time - t_2009) + red2009_cent;

	// 表示形態により値を選択します
	if (showType == 0){
		var akaji = akaji_allins;
	} else if (showType == 1){
		var akaji = akaji_allins / pop;
	} else if (showType == 2){
		var akaji = akaji_allj;
	} else if (showType == 3){
		var akaji = akaji_allj / pop;
	} else if (showType == 4){
		var akaji = akaji_cent;
	} else {
		var akaji = akaji_cent / pop;
	} 

	// 赤字額の各単位を計算します
	var akajiCHO = Math.floor(akaji/1000000000000);
	var akajiOKU = Math.floor((akaji-akajiCHO*1000000000000)/100000000);
	var akajiMAN = Math.floor((akaji-akajiCHO*1000000000000-akajiOKU*100000000)/10000);
	var akajiYEN = Math.floor((akaji-akajiCHO*1000000000000-akajiOKU*100000000-akajiMAN*10000));
	var akajiSEN = Math.floor(100*(akaji-akajiCHO*1000000000000-akajiOKU*100000000-akajiMAN*10000-akajiYEN));

	// 0だったら空白にします
	if (akajiCHO == 0){	akajiCHO = ""; }
	if (akajiOKU == 0){	akajiOKU = ""; }

	// フォームに表示します
//	document.forms[0].tot.value = akaji;
	document.forms[0].cho.value = akajiCHO;
	document.forms[0].oku.value = akajiOKU;
	document.forms[0].man.value = akajiMAN;
	document.forms[0].yen.value = akajiYEN;
	timeoutID = setTimeout('f_akaji()', 1000);
}