VBSで生年月日から年齢を計算する簡単なプログラム

生年月日から年齢を計算する簡単な計算式 | 日経 xTECH（クロステック）

力づくと評されることの多い私のプログラミングですが、
面白いと思ったので作ってみました。

ret=inputbox("誕生日を入力してください。","YYYYMMDD形式(スラッシュなし)","19750210")

If IsNumeric(ret) Then

	If IsDate(mid(ret,1,4) & "/" & mid(ret,5,2) & "/" & mid(ret,7,2)) Then

		age = int(((Year(Date)*10000)+(Month(Date)*100)+Day(Date)-ret)/10000)


		If int(mid(ret,5,2) & mid(ret,7,2)) = int((Month(Date)*100)+Day(Date)) Then
			strW = age & "歳の誕生日おめでとう！！"
		Else
			strW = age & "歳ですね！！"
		End If
	Else
		strW = "日付ではありませんよ。"
	End If
Else
	strW = "日付ではありませんよ。"
End If

Msgbox strW

拡張子を.vbsにして実行するのですが、環境によっては思ったように動かないかもです。

http://www.geocities.jp/fk_2000/work/test/birth.htm

追記

IE限定のようですね。。

追々記

20000101とか入れてくれる人とかいるのだろうか＾＾
少しほほえましいプログラムができた気がする。