' キリ日・・・誕生日からの通し日数後の年月日を返します。
birth="64/06/11" '誕生日を設定する
ans=Inputbox("今日は、あなたが生まれて通算" & DateDiff("d",birth,Date) & "日です。" & vbCRLF & " 通し日数＝")
If ans <>"" Then
theday=DateAdd("d",ans,birth)
MsgBox("通し日数" & ans & "日後のその日は、" & vbCRLF & _
		Year(theday) & "年　" & Month(theday) & "月　" & Day(theday) & "日(" & WeekdayName(Weekday(theday)) & "）　です。" )
Else Msgbox("値が入力されていません。終了します。")
End If