Find the last Sunday of each month: Difference between revisions
Content added Content deleted
MaiconSoft (talk | contribs) (Added Delphi example) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 661: | Line 661: | ||
2020-11-29 |
2020-11-29 |
||
2020-12-27"</pre> |
2020-12-27"</pre> |
||
=={header|Arturo}}== |
|||
<lang rebol>lastSundayForMonth: function [m,y][ |
|||
ensure -> in? m 1..12 |
|||
daysOfMonth: @[0 31 (leap? y)? -> 28 -> 27 31 30 31 30 31 31 30 31 30 31] |
|||
loop range get daysOfMonth m 1 [d][ |
|||
dt: to :date.format:"yyyy-M-dd" ~"|y|-|m|-|d|" |
|||
if dt\Day = "Sunday" -> return dt |
|||
] |
|||
] |
|||
getLastSundays: function [year][ |
|||
loop 1..12 'month [ |
|||
print to :string.format:"yyyy-MM-dd" lastSundayForMonth month year |
|||
] |
|||
] |
|||
getLastSundays 2013</lang> |
|||
{{out}} |
|||
<pre>2013-01-27 |
|||
2013-02-24 |
|||
2013-03-31 |
|||
2013-04-28 |
|||
2013-05-26 |
|||
2013-06-30 |
|||
2013-07-28 |
|||
2013-08-25 |
|||
2013-09-29 |
|||
2013-10-27 |
|||
2013-11-24 |
|||
2013-12-29</pre> |
|||
=={{header|AutoHotkey}}== |
=={{header|AutoHotkey}}== |