Beefy Boxes and Bandwidth Generously Provided by pair Networks chromatic writing perl on a camel
Do you know where your variables are?
 
PerlMonks  

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

by dirtdog (Beadle)
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

$t[3]

..when i should have had

$t[4]-1
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";


Comment on Re^2: How to get last day of 2 months ago
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (11)
As of 2014-04-18 13:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (468 votes), past polls