Calendar: Difference between revisions
Content added Content deleted
m (minor fix) |
m (→{{header|Perl 6}}: clean up unused var) |
||
| Line 941: | Line 941: | ||
$str ~= @week-day-names~"\n"; |
$str ~= @week-day-names~"\n"; |
||
my $date = DateTime.new(year => $year, month => $month); |
my $date = DateTime.new(year => $year, month => $month); |
||
my $week-number = $date.week-number; |
|||
my $week-day = $date.day-of-week; |
my $week-day = $date.day-of-week; |
||
| Line 953: | Line 952: | ||
if $week-day == 8 { |
if $week-day == 8 { |
||
$str ~= "\n"; |
$str ~= "\n"; |
||
$week- |
$week-day = 1; |
||
} |
} |
||
$week-day = 1 if $week-day == 8; |
|||
$str ~= sprintf "%2d", $day; |
$str ~= sprintf "%2d", $day; |
||