Last Friday of each month: Difference between revisions
no edit summary
No edit summary |
|||
Line 249:
2012-11-30
2012-12-28</pre>
=={{header|Perl}}==
<lang Perl>#!/usr/bin/perl -w
use strict ;
use DateTime ;
use feature qw( say ) ;
foreach my $month ( 1..12 ) {
my $dt = DateTime->last_day_of_month( year => $ARGV[ 0 ] , month => $month ) ;
while ( $dt->day_of_week != 5 ) {
$dt->subtract( days => 1 ) ;
}
say $dt->ymd ;
}</lang>
Output:
<pre>2012-01-27
2012-02-24
2012-03-30
2012-04-27
2012-05-25
2012-06-29
2012-07-27
2012-08-31
2012-09-28
2012-10-26
2012-11-30
2012-12-28
</pre>
=={{header|Pike}}==
| |||