[SP-pm] Trabalhando com datas

[Renato Santos]

Eu sugiro que use o DateTime (
http://search.cpan.org/~drolsky/DateTime-0.72/lib/DateTime.pm)
A sintaxe dele é bem menos confusa, e no manual vc tem vários exemplos de
como criar um objeto DateTime.

Então você pode criar dois DateTime e depois fazer:
$resultado = $date1 - $date2;
ele vai retornar um DateTime::Duration e ai vc pode fazer um

my ( $days, $hours, $seconds ) = $dur->in_units('days', 'hours', 'seconds');


2012/3/12 Juliano Silva <julianosilva at metroman.com.br>

> Bom dia a todos.****
>
> Estou trabalhando com datas, utilizando: mktime e strftime, contudo não
> estou conseguindo o que espero.****
>
> Tenho o seguinte código:****
>
>                 use Date::Calc qw(:all);****
>
> use POSIX;****
>
> my
> $tempo=Mktime($vAnoFecha_libera,$vMesFecha_libera,$vDiaFecha_libera,0,0,0);
> ****
>
> print "retorno: ".$tempo."\n";****
>
> my $dataNova = strftime("%d-%m-%Y",0,0,0,$tempo);****
>
> print "Nova data eh: ".$dataNova."\n";****
>
> ** **
>
> E obtenho o seguinte resultado:****
>
> 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.****
>
> ** **
>
> Eu consigo o retorno do mktime com sucesso: retorno: 1328842800.**
>
> Eu imprimi a linha de comando para verificar se estava passando o valor
> obtido no mktime e ficou assim: strftime('%d-%m-%Y',1328842800).****
>
> ** **
>
> Estou querendo encontrar a diferença entre duas datas que estão no formato
> (“dd/mm/YYYY”). ****
>
> 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.****
>
> ** **
>
> Grato a todos,****
>
> ** **
>
> [image: METROM~1]****
>
> *Juliano Dantas Almeida Silva*
>
> *Consórcio Metroman*
>
> ** **
>
> =begin disclaimer
>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>


-- 
Saravá,
Renato CRON Santos
http://www.renatocron.com/blog/
@renato_cron <http://twitter.com/#!/renato_cron>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20120312/e7ec3908/attachment-0001.html>