hoje<-Sys.Date()
class(hoje)
copa.70<-"21/06/70"
copa.70<-as.Date(copa.70, format="%d/%m/%y")
dif<-hoje-copa.70
outrodia<-hoje+43