'######################################## ' 満年齢計算(VBScript) '  TjSoft-82  Taiju  2008.6.17 ' 【使い方】 '  日付を入力すると、満年齢を計算する。 '######################################## str = InputBox("誕生日を入力。(全角でも半角でも可。)" & String(2, vbCr) & " 例: 昭和31年4月2日" & vbCr & "    1956年4月2日" & vbCr & "    1956-4-2" & vbCr & "    1956/4/2") iManNenrei = DateDiff("yyyy", DateValue( str ), Date ) iMonthDiff = DateDiff("y", Month(DateValue( str )), Month(Date) ) iDayDiff = DateDiff("d", Day(DateValue( str )), Day(Date) ) If iMonthDiff =< 0 Then If iDayDiff =< 0 Then iManNenrei = iManNenrei - 1 End If End If MsgBox( iManNenrei & "歳")