Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Re^2: How to get last day of 2 months ago

by dirtdog (Scribe)
on Mar 11, 2011 at 16:49 UTC ( #892694=note: print w/replies, xml ) Need Help??

in reply to Re: How to get last day of 2 months ago
in thread How to get last day of 2 months ago

Thank you all for the replies. I did figure out what i was doing wrong..I had


..when i should have had

use POSIX 'strftime'; my @t = (localtime(time)); my $lastday = POSIX::mktime(0,0,0,0,$t[4],$t[5],0,0,-1); my $lastday_prev = POSIX::mktime(0,0,0,0,$t[4]-1,$t[5],0,0,-1); my @ld_prev = localtime($lastday_prev); my @ld = localtime($lastday); my $monthly_date_beg = strftime('%m/' . $ld_prev[3] . '/%Y', $t[0],$t[ +1], $t[2], $t[3], $t[4]-2, $t[5]); my $monthly_date_end = strftime('%m/' . $ld[3] . '/%Y', $t[0],$t[1], $ +t[2], $t[3], $t[4]-1, $t[5]); print "beg = $monthly_date_beg\n"; print "end = $monthly_date_end\n";

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://892694]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (9)
As of 2016-10-25 11:45 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (317 votes). Check out past polls.