'　通算日計算
res=inputbox("誕生から今日までの通算日を計算します。" & vbCR _
	& "あなたの誕生日を入力してください。" & vbCR _
	& "入力例：１９８７年２月１５日→87/02/15")
If res <> "" Then
	ss="あなたが生まれて通算　" & vbCR & DateDiff("yyyy",res,Date) & " 年" & vbCR _
		& DateDiff("m",res,Date) & " ヶ月" & vbCR _
		& DateDiff("w",res,Date) & " 週" & vbCR _
		& DateDiff("d",res,Date) & " 日" & vbCR _
		& "です。"
	Msgbox ss
Else Msgbox "入力されませんでした。終了します。"
End If