date_time_lubiridate.R

adob="7 June 1977 19:20"
library(lubridate)
adob2=dmy_hm(adob)
adob2

## [1] "1977-06-07 19:20:00 UTC"

mydob="1 June 1981"
mydob2=dmy(mydob)
mydob2

## [1] "1981-06-01 UTC"

#give me your age in secs 
#my  dob = 1 june 1981
pd=Sys.Date()
pt=Sys.time()
#give me how old you are from me 
# hint I was born on 7 june 1977 at 1920 hours
difftime(adob2,pt,units="secs")

## Time difference of -1203358055 secs

difftime(adob2,mydob2,units="days")

## Time difference of -1454.194 days