<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_function">mktime</span><span class="sh_symbol">(</span>sec<span class="sh_symbol">,</span> min<span class="sh_symbol">,</span> hour<span class="sh_symbol">,</span> mday<span class="sh_symbol">,</span> mon<span class="sh_symbol">,</span> year<span class="sh_symbol">,</span> wday <span class="sh_symbol">=</span> <span class="sh_number">0</span><span class="sh_symbol">,</span> yday <span class="sh_symbol">=</span> <span class="sh_number">0</span><span class="sh_symbol">,</span> isdst <span class="sh_symbol">=</span> <span class="sh_symbol">-</span><span class="sh_number">1</span><span class="sh_symbol">)</span></pre>
<div><br></div><div><span style="font-family:arial,sans-serif;background-color:rgb(255,255,255);font-size:medium">The month (</span><code style="background-color:rgb(255,255,255)">mon</code><span style="font-family:arial,sans-serif;background-color:rgb(255,255,255);font-size:medium">), weekday (</span><code style="background-color:rgb(255,255,255)">wday</code><span style="font-family:arial,sans-serif;background-color:rgb(255,255,255);font-size:medium">), and yearday (</span><code style="background-color:rgb(255,255,255)">yday</code><span style="font-family:arial,sans-serif;background-color:rgb(255,255,255);font-size:medium">) begin at zero. I.e. January is 0, not 1; Sunday is 0, not 1; January 1st is 0, not 1. The year (</span><code style="background-color:rgb(255,255,255)">year</code><span style="font-family:arial,sans-serif;background-color:rgb(255,255,255);font-size:medium">) is given in years since 1900. I.e. The year 1995 is 95; the year 2001 is 101. Consult your system's </span><code style="background-color:rgb(255,255,255)">mktime()</code><span style="font-family:arial,sans-serif;background-color:rgb(255,255,255);font-size:medium"> manpage for details about these and the other arguments.</span> <br>
</div><div><br></div><div>É muito provavel que sua função mktime esteja dessa maneira.</div><div> mktime(0,0,0, $dia, $mes-1, $ano-1900)</div><div><br></div><br><div class="gmail_quote">2012/3/12 Renato Santos <span dir="ltr"><<a href="mailto:renato.cron@gmail.com">renato.cron@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">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" target="_blank">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 style="padding-left:1em;padding-right:1em;border-bottom-width:1px;padding-top:1em;border-top-style:solid;border-right-style:solid;padding-bottom:1em;border-bottom-color:rgb(136,136,136);border-top-width:1px;border-bottom-style:solid;border-left-color:rgb(136,136,136);border-top-color:rgb(136,136,136);border-left-style:solid;border-right-color:rgb(136,136,136);border-right-width:1px;border-left-width:1px;background-image:initial">
<span>my</span> <span>(</span> <span>$days</span><span>,</span> <span>$hours</span><span>,</span> <span>$seconds</span> <span>)</span> <span>=</span> <span>$dur</span><span>-></span><span>in_units</span><span>(</span><span>'days'</span><span>,</span> <span>'hours'</span><span>,</span> <span>'seconds'</span><span>);</span></pre>
</div><div><br><div class="gmail_quote">2012/3/12 Juliano Silva <span dir="ltr"><<a href="mailto:julianosilva@metroman.com.br" target="_blank">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><div class="h5">
<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: <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 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></div></div><div class="im">=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" target="_blank">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></div></blockquote></div><span class="HOEnZb"><font color="#888888"><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>
</font></span></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>