if(!require(pacman)) install.packages("pacman")
p_load(lubridate)
p_loaded()[1] "lubridate" "pacman"
bdt="1952-12-30"
myage=function(dt){
td=Sys.Date()
yd=year(td)-year(dt)
md=month(td)-month(dt)
dd=day(td)-day(dt)
if((md)<=0){
md=md+12
yd=yd-1
}
if(dd<=0){
md=md-1
dd=dd+30
}
tmp=(list(yd,md,dd))
tmp1=unlist(tmp)
return(paste(" kirit ved you are ",tmp1[1]," years",tmp1[2]," months"," and ",tmp1[3]," days ", " old "))
}