Code:Option Explicit Sub bDay() Dim TheDate As Date Dim msg TheDate = InputBox("Enter a date") msg = "Time from today: " & DateDiff("yyyy", TheDate, Now) / 365 MsgBox msg End Sub
Code:Option Explicit Sub bDay() Dim TheDate As Date Dim msg TheDate = InputBox("Enter a date") msg = "Time from today: " & DateDiff("yyyy", TheDate, Now) / 365 MsgBox msg End Sub