Last Friday of each month: Difference between revisions
Content added Content deleted
(jq) |
|||
Line 1,085: | Line 1,085: | ||
ocaml unix.cma str.cma -I +calendar calendarLib.cma last_fridays.ml 2012 |
ocaml unix.cma str.cma -I +calendar calendarLib.cma last_fridays.ml 2012 |
||
=={{header|Oforth}}== |
|||
<lang Oforth>func: lastFridays(y) |
|||
{ |
|||
| m | |
|||
Date.JANUARY Date.DECEMBER for: m [ |
|||
Date newDate(y, m, Date.DaysInMonth(y, m)) |
|||
while(dup dayOfWeek Date.FRIDAY <>) [ addDays(-1) ] |
|||
println |
|||
] |
|||
}</lang> |
|||
{{out}} |
|||
<pre> |
|||
2012-01-27 00:00:00,000 |
|||
2012-02-24 00:00:00,000 |
|||
2012-03-30 00:00:00,000 |
|||
2012-04-27 00:00:00,000 |
|||
2012-05-25 00:00:00,000 |
|||
2012-06-29 00:00:00,000 |
|||
2012-07-27 00:00:00,000 |
|||
2012-08-31 00:00:00,000 |
|||
2012-09-28 00:00:00,000 |
|||
2012-10-26 00:00:00,000 |
|||
2012-11-30 00:00:00,000 |
|||
2012-12-28 00:00:00,000 |
|||
</pre> |
|||
=={{header|Perl}}== |
=={{header|Perl}}== |