Last Friday of each month: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 1,957: | Line 1,957: | ||
></pre> |
></pre> |
||
=={{header|Maple}}== |
|||
<lang Maple>fridays := proc(year) |
|||
local i, dt, change, last_days; |
|||
last_days := [31,28,31,30,31,30,31,31,30,31,30,31]; |
|||
if (Calendar:-IsLeapYear(year)) then |
|||
last_days[2] := 28; |
|||
end if; |
|||
for i to 12 do |
|||
dt := Date(year, i, last_days[i]); |
|||
change := 0; |
|||
if not(Calendar:-DayOfWeek(dt) = 6) then |
|||
change := -(Calendar:-DayOfWeek(dt) mod 7)-1; |
|||
end if; |
|||
dt := Calendar:-AdjustDateField(dt, "date", change); |
|||
printf("%d-%d-%d\n", year, Month(dt), DayOfMonth(dt)); |
|||
end do; |
|||
end proc; |
|||
fridays(2012);</lang> |
|||
{{Out|Output}} |
|||
<pre>2012-1-27 |
|||
2012-2-24 |
|||
2012-3-30 |
|||
2012-4-27 |
|||
2012-5-25 |
|||
2012-6-29 |
|||
2012-7-27 |
|||
2012-8-31 |
|||
2012-9-28 |
|||
2012-10-26 |
|||
2012-11-30 |
|||
2012-12-28</pre> |
|||
=={{header|Mathematica}}== |
=={{header|Mathematica}}== |