VB_2014_SLIP 14

 

SLIP 14_1

Private Sub Command1_Click()

Dim dob As Date

dob = InputBox("Enter Date of Birth")

age = DateDiff("yyyy", dob, Now()) + Int(Format(Now(), "mmdd") < Format(dob, "mmdd"))

y = Year(Now()) - Year(dob)

m = Month(Now()) - Month(dob)

d = Day(Now()) - Day(dob)

hr = Hour(Now) - Hour(dob)

mn = Minute(Now) - Minute(dob)

sec = Second(Now) - Second(dob)

Print "Year : " & y

Print "Month :" & m

Print "Day : " & d

Print "Hour :" &hr

Print "Minute :" &mn

Print "seconds :" & sec

End Sub