<div dir="ltr"><div>Bom dia!</div><div><br></div><div>Tente isso:</div><div><br></div><div>library(tidyverse)<br>library(lubridate)<br><br>df <- data.frame("NASCIMENTO" = c("06-09-99", "25-10-31", "07-01-76", "10-12-50"))<br>df<br><br>df <- <br>  df %>% <br>  mutate(NASCIMENTO2 = dmy(NASCIMENTO)) %>% <br>  mutate(NASCIMENTO2 = case_when(NASCIMENTO2 > Sys.Date() ~ format(NASCIMENTO2, "19%y-%m-%d"),<br>                                                                TRUE ~ format(NASCIMENTO2)))<br>df</div><div><br></div><div>Abs,</div><div><br></div><div>Ronaldo Alves<br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Em ter., 28 de nov. de 2023 às 01:16, Amiko Bh por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> escreveu:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div dir="ltr">Pessoal:<div><br></div><div>Votos de Paz e Bem!</div><div><br></div><div>Estou tendo problemas ao converter datas:</div><div><br></div><div>
        
        
        



<table cellspacing="0" border="0" style="font-family:"Liberation Sans";font-size:x-small">
        <colgroup width="106"></colgroup>
        <colgroup width="111"></colgroup>
        <tbody><tr>
                <td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" height="17" align="center"><b>NASCIMENTO</b></td>
                <td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center"><b>NASCIMENTO2</b></td>
        </tr>
        <tr>
                <td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" height="17" align="left"> 06-09-99</td>
                <td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="right">1999-09-06</td>
        </tr>
        <tr>
                <td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" height="17" align="left"> 25-10-31</td>
                <td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="right">2031-10-25</td>
        </tr>
        <tr>
                <td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" height="17" align="left"> 07-01-76</td>
                <td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="right">1976-01-07</td>
        </tr>
        <tr>
                <td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" height="17" align="left"> 10-12-50</td>
                <td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="right">2050-12-10</td>
        </tr>
</tbody></table><br></div><div>Para criar a coluna NASCIMENTO2 usei  </div><div>df$NASCIMENTO2 = dmy(df$NASCIMENTO)</div><div><br></div><div>linhas 1 e 3, certo = 1999 e 1976</div><div>linhas 2 e 4, errado = 2031 ao invés de 1931 e 2050 ao invés de 1950.</div><div>Não consegui encontrar auxílio pesquisando no fórum.</div><div>Solicito ajuda.</div><div>Muito obrigado.</div></div>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div>