<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2900.3429" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial color=#0000ff>Obrigado, mas não tinha reparado as
aspas!</FONT></DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV><BR></DIV>É só questão de entrar com o x certo, tem que colocar entre
aspas o valor (string)
<DIV><SPAN class=Apple-style-span
style="COLOR: rgb(51,51,51); FONT-FAMILY: Arial; BORDER-COLLAPSE: collapse"><BR></SPAN></DIV>
<DIV>x='21/04/87'
<DIV>
<DIV>(c(Sys.Date() - as.Date(gsub("(<A href="file://\\d{2})$">\\d{2})$</A>",
"19\\1", x), "%d/%m/%Y")) /365.25) %/% 1</DIV>
<DIV>[1] 24</DIV>
<DIV><BR></DIV>
<DIV>Se quiser fugir de expressão regular, da pra fazer assim:</DIV>
<DIV><BR></DIV>x='21/04/87'
<DIV>as.real((Sys.Date() - as.Date(x,'%d/%m/%y'))/365.25) %/% 1</DIV>
<DIV>[1] 24</DIV>
<DIV><BR></DIV>
<DIV><BR></DIV>
<DIV class=gmail_quote>2011/4/25 Mauro Sznelwar <SPAN dir=ltr><<A
href="mailto:sznelwar@uol.com.br">sznelwar@uol.com.br</A>></SPAN><BR>
<BLOCKQUOTE class=gmail_quote
style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">
<DIV bgcolor="#ffffff">
<DIV><FONT face=Arial size=2>Obrigado pelo retorno, mas não foi bem isso, eu
transformar 21/04/87 no número de anos até hoje, e </FONT></DIV>
<DIV><FONT face=Arial size=2>alguém deu a sugestão que não consegui
implementar </FONT></DIV>
<DIV class=im>
<DIV><FONT face=Arial size=2>x=21/04/87<BR>(c(Sys.Date() -
as.Date(gsub("(<A>\\d{2})$</A>", "19\\1", x), "%d/%m/%Y")) /365.25) %/%
1</FONT></DIV>
<DIV>
<DIV><FONT face=Arial size=2>[1] NA</FONT></DIV><FONT face=Arial
size=2></FONT></DIV></DIV>
<DIV class=im>
<DIV><FONT face=Arial size=2>
<DIV>Mauro, tenta assim:</DIV>
<DIV><BR></DIV>
<DIV>x='21/04/87'</DIV>format(as.Date(x,'%d/%m/%y'),'%Y')
<DIV>[1] "1987"</DIV>
<DIV>
<DIV>format(as.Date(x,'%d/%m/%y'),'%y')</DIV>
<DIV>[1] "87"</DIV></DIV></FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><BR></DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV><FONT face=Arial
size=2></FONT> </DIV></BLOCKQUOTE></DIV></DIV><BR>_______________________________________________<BR>R-br
mailing list<BR><A
href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</A><BR><A
href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br"
target=_blank>https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</A><BR><BR></BLOCKQUOTE></DIV><BR></DIV></DIV>
<P>
<HR>
<P></P>_______________________________________________<BR>R-br mailing
list<BR>R-br@listas.c3sl.ufpr.br<BR>https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br<BR></BLOCKQUOTE></BODY></HTML>