Last Friday of each month: Difference between revisions

=={{header|M2000 Interpreter}}==

<syntaxhighlight lang="m2000 interpreter">

module lastfriday {

string year

integer y%

input "Year (e.g. 2023):", y%

year=str$(y%,"")

date a="1/1/"+year

date a1="31/12/"+year

double i, b=a, c=a1

for i=b to b+6

if val(date$(i, 1033, "d"))=6 then exit for

next

document result$="Last Friday per month for year " + year + {:

}

for i=i+7 to c step 7

if val(date$(i, 1033, "M")) <>val(date$(i+7, 1033, "M")) then

result$=date$(i, 1033, "M"+chr$(9)+"dd") + {

}

end if

next

report result$

clipboard result$

}

lastfriday

</syntaxhighlight>

{{out}}

<pre>

Year (e.g. 2023):2023

Last Friday per month for year 2023:

1 27

2 24

3 31

4 28

5 26

6 30

7 28

8 25

9 29

10 27

11 24

12 29

</pre>