Obrigado pelo retorno, mas não foi bem isso, eu transformar 21/04/87 no número de anos até hoje, e
alguém deu a sugestão que não consegui implementar
x=21/04/87
(c(Sys.Date() - as.Date(gsub("(
\\d{2})$
", "19\\1", x), "%d/%m/%Y")) /365.25) %/% 1
[1] NA
Mauro, tenta assim:
x='21/04/87'
format(as.Date(x,'%d/%m/%y'),'%Y')
[1] "1987"
format(as.Date(x,'%d/%m/%y'),'%y')
[1] "87"