Last Friday of each month: Difference between revisions
Content added Content deleted
m (added whitespace before the TOC (table of contents).) |
No edit summary |
||
Line 2,103: | Line 2,103: | ||
Friday 30 Nov 2012 |
Friday 30 Nov 2012 |
||
Friday 28 Dec 2012 |
Friday 28 Dec 2012 |
||
</pre> |
|||
=={{header|Ring}}== |
|||
<lang ring> |
|||
see "What year to calculate (yyyy) : " |
|||
give year |
|||
see "Last Fridays in " + year + " are on :" + nl |
|||
month = list(12) |
|||
mo = [4,0,0,3,5,1,3,6,2,4,0,2] |
|||
mon = [31,28,31,30,31,30,31,31,30,31,30,31] |
|||
if year < 2100 leap = year - 1900 else leap = year - 1904 ok |
|||
m = ((year-1900)%7) + floor(leap/4) % 7 |
|||
for n = 1 to 12 |
|||
month[n] = (mo[n] + m) % 7 |
|||
next |
|||
for n = 1 to 12 |
|||
for i = (mon[n] - 6) to mon[n] |
|||
if year%4 = 0 and n>0 and n<3 |
|||
x = (month[n] + i) % 7 - 1 |
|||
else x = (month[n] + i) % 7 ok |
|||
if n < 10 strn = "0" + string(n) else strn = string(n) ok |
|||
if x = 2 see year + "-" + strn + "-" + string(i) + nl ok |
|||
next |
|||
next |
|||
</lang> |
|||
Output: |
|||
<pre> |
|||
What year to calculate (yyyy) : 2012 |
|||
Last Fridays in 2012 are on : |
|||
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> |
</pre> |
||