<html>
<head>
<meta content="text/html; charset=utf-8" http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<p>Olá,</p>
<p><br>
</p>
<p>Eu uso sempre o pacote lubridate para calcular datas
<a class="moz-txt-link-freetext" href="https://cran.r-project.org/web/packages/lubridate/index.html">https://cran.r-project.org/web/packages/lubridate/index.html</a></p>
<p><br>
</p>
<p>Vale a pena conferir melhor as funções.</p>
<p><br>
</p>
<p>Abraços<br>
</p>
<div class="moz-signature"><b>Paulo Henrique Schau Guerra</b>
<br>
Universidade Federal do Rio de Janeiro / <i>Federal University of
Rio de Janeiro</i>
<br>
Diretoria de Relações Internacionais / <i>International Affairs
Office</i> <br>
Seção de Acordos Acadêmicos Internacionais / <i>International
Academic Agreements Section</i> <br>
<br>
Av. Pedro Calmon, 550 – 2.º andar – Prédio da Reitoria -- UFRJ
Cidade Universitária – Ilha do Fundão – Rio de Janeiro – RJ
<br>
CEP.: 21941-901 - Tel.: +55 21 3938-1733</div>
<div class="moz-cite-prefix">Em 22/12/2016 15:31, Karina Rebuli via
R-br escreveu:<br>
</div>
<blockquote
cite="mid:CALfxEuUfo0tM5hMNe3udDdQjCSr18vBvavnFxWPixt+Hgr8CGQ@mail.gmail.com"
type="cite">
<div dir="ltr">
<div>
<div><br>
Olá, Leonard.<br>
<br>
Sei duas formas de fazer isso.<br>
<br>
=====<br>
* Com os funções-base do R:<br>
sapply( sapply( as.Date( c("2011-01-17", "2009-11-21") ),
seq, Sys.Date(), by = "month" ), length )<br>
<br>
</div>
Importante ressaltar que desssa forma se o dia das datas a
serem comparadasfor maior que o dia da data atual, ele vai
retornar um mês a mais (pois a seq() vai começar com a data
passada e isso já é um retorno a ser contabilizado na
length().<br>
<br>
====<br>
</div>
* Com funções do lubridate (acho o pacote excelente e uso
bastante, é de autoria do Hadley):<br>
<div>
<div>sapply( c("2011-01-17", "2009-11-21"), function(day0){ <br>
p <- as.period( interval( ymd( day0 ), Sys.Date() ) )<br>
year(p)*12 + month(p)<br>
})<br>
<br>
</div>
<div>Dessa forma não precisa se preocupar com o dia inicial e
você ainda pode acrescentar o day(p)/30 ao retorno se quiser
a fração do resultado em meses.<br>
<br>
</div>
<div>Abs,<br>
</div>
<div>Karina<br>
</div>
<div><br>
<br>
</div>
</div>
</div>
<br>
<div class="gmail_quote">
<div dir="ltr">On Thu, Dec 22, 2016 at 3:03 PM Leonard Mendonça
de Assis via R-br <<a moz-do-not-send="true"
href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>>
wrote:<br>
</div>
<blockquote class="gmail_quote" style="margin:0 0 0
.8ex;border-left:1px #ccc solid;padding-left:1ex">
<div link="#0563C1" vlink="#954F72" class="gmail_msg"
lang="PT-BR">
<div class="m_-3371540158814534415WordSection1 gmail_msg">
<p class="MsoNormal gmail_msg">Boa tarde</p>
<p class="MsoNormal gmail_msg"> </p>
<p class="MsoNormal gmail_msg">Imagine o seguinte cmr:</p>
<p class="MsoNormal gmail_msg"> </p>
<table class="m_-3371540158814534415MsoNormalTable
gmail_msg" style="width:614.25pt;background:white"
border="0" cellpadding="0" cellspacing="0" width="819">
<tbody>
<tr class="gmail_msg">
<td style="padding:0cm 0cm 6.0pt 4.5pt"
class="gmail_msg" valign="top">
<p class="MsoNormal gmail_msg"
style="word-break:break-all"><span
style="font-size:10.0pt;font-family:"Lucida
Console";color:blue" class="gmail_msg"
lang="EN-US">as.Date(c("2011-01-17",
"2009-11-21"))-Sys.Date()</span></p>
<p class="MsoNormal gmail_msg"
style="word-break:break-all"><span
style="font-size:10.0pt;font-family:"Lucida
Console";color:black" class="gmail_msg">Time
differences in days</span></p>
<p class="MsoNormal gmail_msg"
style="word-break:break-all"><span
style="font-size:10.0pt;font-family:"Lucida
Console";color:black" class="gmail_msg">[1]
-2166 -2588</span></p>
</td>
</tr>
<tr class="gmail_msg">
<td style="padding:0cm 0cm 6.0pt 4.5pt"
class="gmail_msg" valign="top"><br>
</td>
</tr>
<tr class="gmail_msg">
<td style="padding:0cm 0cm 6.0pt 4.5pt"
class="gmail_msg" valign="top">
<table class="m_-3371540158814534415MsoNormalTable
gmail_msg" style="width:614.25pt" border="0"
cellpadding="0" cellspacing="0" width="819">
<tbody>
<tr class="gmail_msg">
<td style="width:.75pt;padding:0cm 0cm 0cm
0cm" class="gmail_msg" valign="top"
width="1">
<p class="MsoNormal gmail_msg"><span
style="font-size:12.0pt;font-family:"Lucida
Console";color:blue"
class="gmail_msg">> </span></p>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
<p class="MsoNormal gmail_msg">Como eu conseguiria obter
este resultado, não em dias, mas em meses?</p>
<p class="MsoNormal gmail_msg"> </p>
<p class="MsoNormal gmail_msg">Leonard</p>
</div>
</div>
_______________________________________________<br
class="gmail_msg">
R-br mailing list<br class="gmail_msg">
<a moz-do-not-send="true"
href="mailto:R-br@listas.c3sl.ufpr.br" class="gmail_msg"
target="_blank">R-br@listas.c3sl.ufpr.br</a><br
class="gmail_msg">
<a moz-do-not-send="true"
href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br"
rel="noreferrer" class="gmail_msg" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br
class="gmail_msg">
Leia o guia de postagem (<a moz-do-not-send="true"
href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer"
class="gmail_msg" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>)
e forneça código mínimo reproduzível.</blockquote>
</div>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forne�a c�digo m�nimo reproduz�vel.</pre>
</blockquote>
<br>
</body>
</html>