Hi,
The following code produces (for me) this output.. ( dd-mm-yyyy)
13-01-2017 Test event
17-02-2017 Test event
17-03-2017 Test event
14-04-2017 Test event
12-05-2017 Test event
16-06-2017 Test event
14-07-2017 Test event
18-08-2017 Test event
15-09-2017 Test event
13-10-2017 Test event
17-11-2017 Test event
15-12-2017 Test event
Some of these dates are correct e.g. 14-04-2017 is the second Friday of
April 2017,
however 17-02-2017 is the Third Friday, the expected result is 10-02-2017
I would appreciate any help, I'm baffled :-)
Kind regards,
Andrew Martin
#!/usr/bin/perl
use strict;
use warnings;
use DateTime;
use DateTime::Event::Recurrence;
my $year=2017;
my $event="Test event";
my $dt1 = DateTime->new( year => $year,
month => 1,
day => 1,
);
my $dt2 = DateTime->new( year => $year,
month => 12,
day => 31,
);
my $set = DateTime::Event::Recurrence->monthly( weeks => 2, days =>5 );
my @days = $set->as_list( start => $dt1, end => $dt2 );
foreach my $d (@days){
print $d->dmy . " $event\n";
}