Hi. Sugiro utilizar o módulo DateTime quando falamos sobre datas. Ele mesmo possui os métodos de subtract() à partir de inteiros ou outro objeto DateTime.
https://metacpan.org/module/DateTime []'s Em 12 de março de 2012 11:16, Juliano Silva <[email protected]>escreveu: > 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: [email protected] > L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> > =end disclaimer > > -- Junior Moraes (fvox) Perl Developer http://www.unsecurity.com.br/ <http://www.twitter.com/juniiormoraes> <http://pt-br.facebook.com/juniiormoraes> <http://plus.google.com/104958988925423385684> <http://www.lastfm.com.br/user/juniior182> <http://www.delicious.com/fvox> <http://github.com/fvox>
=begin disclaimer Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ SaoPaulo-pm mailing list: [email protected] L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> =end disclaimer
