Re: Split date range into 3 equal parts

[Khen1950fx]

in reply to Split date range into 3 equal parts

Class::Date makes it a lot quicker.

#!/usr/bin/perl -slw

use strict;
use warnings;
use Class::Date qw(date);

my $date = new Class::Date;
print "from_date:  ",  date("2010-06-01");
print "mid_date1:  ",  date("2010-06-01") + '3M' + '1D ' - '1D';
print "mid_date2:  ",  date("2010-06-01") + '3M' + '1D';
print "to_date:    ", date("2010-06-01") + '7M';

[sundialsvc4]

I “fanned” that approach, because, in my humble experience, when you start down the primrose-path of date calculations (in terms of what employees such as salesmen and accountants want to do with them ...), it just gets messier and messier.   But, because so darned many of us have been down that very same primrose-path so many times before, “all the work that went into” modules like this one are darned well worth it.   The client comes back to you with a new twist and you can still say, a la “A Chorus Line” ... “I can do that.”   Priceless.