hoje<-Sys.Date()
class(hoje)
tc<-"1970-06-21"
tcamp<-as.Date(tc)
dif<-hoje-tcamp
outrodia<-hoje+43