Re: How to get last month date period

As this is mostly static info (except for leap years), you might just want to use a simple lookup table.

my %period = (
    Jan => ['01 Dec','31 Dec'],
    Feb => ['01 Jan','31 Jan'],
    Mar => ['01 Feb','28 Feb'],
    #...
    Dec => ['01 Nov','30 Nov'],
);

my $curr_month = "Mar";
my $curr_year  = 2010;

my $p = $period{$curr_month};
print "$p->[0] $curr_year - $p->[1] $curr_year\n";   # 01 Feb 2010 - 2
+8 Feb 2010
[download]

To figure out when the "28 Feb" isn't correct, you could use one of the many date modules on CPAN (this is left as an exercise for... :). Or simply hardcode a list of those years up until the time you'll retire ;)

Update: the following should also work for up to 2099

...
my $p = $period{$curr_month};
if ($curr_month eq "Mar") {
    $p->[1] = '29 Feb' unless $curr_year % 4;
}
...
[download]

Comment on Re: How to get last month date period Select or Download Code

Replies are listed 'Best First'.
Re^2: How to get last month date period by bart (Canon) on Mar 04, 2010 at 16:51 UTC
This will break in January. As for leap years, the rule is: Assume 28 days, except: if the current year divisible by 4: 29 days, except if the current year is divisible by 100: 28 days except: if the current year is divisible by 400: 29 days	[reply]
Re^3: How to get last month date period by almut (Canon) on Mar 04, 2010 at 16:56 UTC
This will break in January. You're right. To fix, just add: `$curr_year-- if $curr_month eq "Jan";` [download]	[reply] [d/l]
Re^2: How to get last month date period by roborat (Novice) on Mar 04, 2010 at 16:28 UTC
Hi Almut, thanks a lot for the help! I'll find out how to check it 28 Feb isn't correct. :) Hope to find the solution to this soon. :) Thanks you very much!	[reply]