http://www.perlmonks.org?node_id=431574


in reply to previous and next quarter calculation

How about:

use DateTime::Event::Recurrence;

my $fiscal = monthly DateTime::Event::Recurrence( interval => 3 );

print $fiscal->next( DateTime->today ), "\n";
print $fiscal->current( DateTime->today ), "\n";

# 2005-04-01T00:00:00
# 2005-01-01T00:00:00

[download]

In Section Seekers of Perl Wisdom