Last Friday of each month: Difference between revisions
no edit summary
m (added whitespace before the TOC (table of contents).) |
No edit summary |
||
Line 2,103:
Friday 30 Nov 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>
| |||