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