HSPTV!掲示板

西暦から年齢を割り出すようなシステムを作りたいのですがどうすればできるでしょうか？

gettime(0)で西暦を取得して、
西暦-生まれた年で求められると思います。

	font "",20
	pos 50,50:mes "あなたの生まれた年は？"
	
		a=2000
	pos 50,70:input a,50,20,4
	pos 50+50,70:mes "年"
	
	pos 50,100:button "年齢",*nenrei
	
	pos 50,130
	
		stop
	
*nenrei
	
		b=gettime(0)-a
	
	if b>=0{
		mes "あなたは"+b+"歳です。"
	}else{
		mes "あなたはまだ生まれていないです。("+b+"歳)"
	}

単純に現在の年と生まれた年を引き算すれば簡単に年齢が割り出せます。

mes "生まれた年を入力してください。"
input seireki,100,20,4
button "年齢の算出",*sanshutsu
genzai = gettime(0)
stop
*sanshutsu
	if seireki<=genzai{
	nenrei = genzai - seireki
	mes "貴方は今年で"+nenrei+"歳になります。"
	stop
}else{
	umarerutoshi = seireki - genzai
	mes "貴方は後、"+umarerutoshi+"年で生まれます。"
	stop
}

ありがとうございます。
質問ないようが簡潔すぎて詳しい部分までお伝えできておりませんでした。
現在２５歳、何日後に２６歳
等、詳しい部分まで求めたいのです＞＜

正確さは保証できませんが、こんな感じでしょうか。

	#module
		#defcfunc getday int y,int m, int d	;Fairfieldの公式によるグレゴリオ暦換算
		return 365 * y + (y/4) - (y/100) + (y/400) + (306 * (m+1) / 10) + d - 428
	#global
	mes "生年月日を入力(yyyymmdd)"
	birthday=0 : input birthday,120,20,8
	button "算出",*calc : stop
*calc
	ty=gettime(0) : tm=gettime(1) : td=gettime(3)
	by=birthday/10000 : bm=birthday\10000/100 : bd=birthday\100
	today=ty*10000+tm*100+td : age=(today-birthday)/10000	;年齢算出
	if (bm*100+bd)-(tm*100+td)<1{cy=ty+1}else{cy=ty}		;今年の誕生日を迎えている
	next_age=getday(cy,bm,bd)-getday(ty,tm,td)				;次の誕生日までの日数算出
	dialog "今の年齢は"+age+"歳です。\n"+next_age+"日後に"+(age+1)+"歳になります。"