Eu sugiro que use o <span style="color:rgb(0,102,153);font-family:arial,sans-serif;background-color:rgb(221,221,221);font-size:medium">DateTime (</span><a href="http://search.cpan.org/~drolsky/DateTime-0.72/lib/DateTime.pm">http://search.cpan.org/~drolsky/DateTime-0.72/lib/DateTime.pm</a>) <div>
A sintaxe dele é bem menos confusa, e no manual vc tem vários exemplos de como criar um objeto DateTime.</div><div><br>Então você pode criar dois DateTime e depois fazer:<br>$resultado = $date1 - $date2;</div><div>ele vai retornar um <span style="background-color:rgb(221,221,221);color:rgb(0,102,153);font-family:arial,sans-serif;font-size:medium">DateTime::Duration</span> e ai vc pode fazer um </div>
<div><pre class="sh_perl sh_sourceCode" style="background-image:initial;background-color:rgb(255,255,255);border-top-width:1px;border-right-width:1px;border-bottom-width:1px;border-left-width:1px;border-top-style:solid;border-right-style:solid;border-bottom-style:solid;border-left-style:solid;border-top-color:rgb(136,136,136);border-right-color:rgb(136,136,136);border-bottom-color:rgb(136,136,136);border-left-color:rgb(136,136,136);padding-top:1em;padding-right:1em;padding-bottom:1em;padding-left:1em">
<span class="sh_keyword">my</span> <span class="sh_symbol">(</span> <span class="sh_variable">$days</span><span class="sh_symbol">,</span> <span class="sh_variable">$hours</span><span class="sh_symbol">,</span> <span class="sh_variable">$seconds</span> <span class="sh_symbol">)</span> <span class="sh_symbol">=</span> <span class="sh_variable">$dur</span><span class="sh_symbol">-></span><span class="sh_function">in_units</span><span class="sh_symbol">(</span><span class="sh_string">'days'</span><span class="sh_symbol">,</span> <span class="sh_string">'hours'</span><span class="sh_symbol">,</span> <span class="sh_string">'seconds'</span><span class="sh_symbol">);</span></pre>
</div><div><br><div class="gmail_quote">2012/3/12 Juliano Silva <span dir="ltr"><<a href="mailto:julianosilva@metroman.com.br">julianosilva@metroman.com.br</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div lang="PT-BR" link="blue" vlink="purple"><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 lang="EN-US" style="color:red">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 lang="EN-US" style="color:red">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: 1328842800.<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',1328842800).</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 width="138" height="31" alt="METROM~1"><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"><div><br></div>-- <br><div><font size="1" color="#333333">Saravá,</font></div><div><font size="1" color="#333333">Renato CRON Santos</font></div><div><div style="text-align:right">
<font size="1" color="#333333"><a href="http://www.renatocron.com/blog/" target="_blank">http://www.renatocron.com/blog/</a></font></div></div><div style="text-align:right"><font size="1" color="#333333"><a href="http://twitter.com/#!/renato_cron" target="_blank">@renato_cron</a><br>
</font></div><div style="text-align:right"><br></div><br>
</div>