Hi.<br><br>Sugiro utilizar o módulo DateTime quando falamos sobre datas.<br>Ele mesmo possui os métodos de subtract() à partir de inteiros ou outro objeto DateTime.<br><br><a href="https://metacpan.org/module/DateTime">https://metacpan.org/module/DateTime</a><br>
<br>[]'s<br><br><div class="gmail_quote">Em 12 de março de 2012 11:16, Juliano Silva <span dir="ltr"><<a href="mailto:julianosilva@metroman.com.br">julianosilva@metroman.com.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div link="blue" vlink="purple" lang="PT-BR"><div><p class="MsoNormal">Bom dia a todos.<u></u><u></u></p><p class="MsoNormal">Estou trabalhando com datas, utilizando: mktime e strftime, contudo não estou conseguindo o que espero.<u></u><u></u></p>
<p class="MsoNormal">Tenho o seguinte código:<u></u><u></u></p><p class="MsoNormal"><span style="color:red"> </span><span style="color:red" lang="EN-US">use Date::Calc qw(:all);<u></u><u></u></span></p><p class="MsoNormal" style="text-indent:35.4pt">
<span style="color:red">use POSIX;<u></u><u></u></span></p><p class="MsoNormal" style="text-indent:35.4pt"><span style="color:red">my $tempo=Mktime($vAnoFecha_libera,$vMesFecha_libera,$vDiaFecha_libera,0,0,0);<u></u><u></u></span></p>
<p class="MsoNormal" style="text-indent:35.4pt"><span style="color:red">print "retorno: ".$tempo."\n";<u></u><u></u></span></p><p class="MsoNormal" style="text-indent:35.4pt"><span style="color:red">my $dataNova = strftime("%d-%m-%Y",0,0,0,$tempo);<u></u><u></u></span></p>
<p class="MsoNormal" style="text-indent:35.4pt"><span style="color:red">print "Nova data eh: ".$dataNova."\n";</span><u></u><u></u></p><p class="MsoNormal"><u></u> <u></u></p><p class="MsoNormal">E obtenho o seguinte resultado:<u></u><u></u></p>
<p class="MsoNormal"><span style="color:red" lang="EN-US">Usage: POSIX::strftime(fmt, sec, min, hour, mday, mon, year, wday = -1, yday = -1, isdst = -1) at C:\Documents and Settings\julianosilva\Meus documentos\CTI_3\GeraTML.pl line 134, <STDIN> line 2.</span><span lang="EN-US"><u></u><u></u></span></p>
<p class="MsoNormal"><span lang="EN-US"><u></u> <u></u></span></p><p class="MsoNormal">Eu consigo o retorno do mktime com sucesso: <span style="color:red">retorno: <a href="tel:1328842800" value="+551328842800" target="_blank">1328842800</a>.<u><u></u><u></u></u></span></p>
<p class="MsoNormal">Eu imprimi a linha de comando para verificar se estava passando o valor obtido no mktime e ficou assim: <span style="color:red">strftime('%d-%m-%Y',<a href="tel:1328842800" value="+551328842800" target="_blank">1328842800</a>).</span><u></u><u></u></p>
<p class="MsoNormal"><u></u> <u></u></p><p class="MsoNormal">Estou querendo encontrar a diferença entre duas datas que estão no formato (“dd/mm/YYYY”). <u></u><u></u></p><p class="MsoNormal">Quando o mês e ano é igual nas duas datas é fácil, porém, quando tenho diferença, ai complica, por isso estou utilizando o Mktime.<u></u><u></u></p>
<p class="MsoNormal"><u></u> <u></u></p><p class="MsoNormal">Grato a todos,<u></u><u></u></p><p class="MsoNormal"><u></u> <u></u></p><p class="MsoNormal"><span style="color:#1f497d"><img src="" alt="METROM~1" height="31" width="138"><u></u><u></u></span></p>
<p class="MsoNormal"><b><span style="color:#1f497d">Juliano Dantas Almeida Silva<u></u><u></u></span></b></p><p class="MsoNormal"><b><span style="font-size:12.0pt;color:#17365d">Consórcio Metroman<u></u><u></u></span></b></p>
<p class="MsoNormal"><u></u> <u></u></p></div></div><br>=begin disclaimer<br>
Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
<br></blockquote></div><br><br clear="all"><br>-- <br><span style="color:rgb(0,0,0);font-family:'Times New Roman';font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:normal;line-height:normal;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;font-size:medium"><font>Junior Moraes (fvox)<br>
Perl Developer<br><a href="http://www.unsecurity.com.br/" target="_blank">http://www.unsecurity.com.br/</a><br><br></font></span><span style="color:rgb(0,0,0);font-family:'Times New Roman';font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:normal;line-height:normal;text-align:-webkit-auto;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;font-size:medium"><a href="http://www.twitter.com/juniiormoraes" target="_blank"><img src="http://i.imgur.com/yIS1c.png"></a><span> </span><a href="http://pt-br.facebook.com/juniiormoraes" target="_blank"><img src="http://i.imgur.com/BhlCG.png"></a><span> </span><a href="http://plus.google.com/104958988925423385684" target="_blank"><img src="http://i.imgur.com/y1VgL.png"></a><span> </span><a href="http://www.lastfm.com.br/user/juniior182" target="_blank"><img src="http://i.imgur.com/UgjTP.png"></a><span> </span><a href="http://www.delicious.com/fvox" target="_blank"><img src="http://i.imgur.com/Xmoky.png"></a><span> </span><a href="http://github.com/fvox" target="_blank"><img src="http://i.imgur.com/qK5SU.png"></a></span><br>
<br>