Last Friday of each month: Difference between revisions

=={{header|AutoIt}}==

<lang AutoIt>

#include <Date.au3>

$iYear = InputBox('Last Friday in each month', 'Please input the year:')

_GetLastFridays($iYear)

Func _GetLastFridays($_iYear)

Local $sResult = 'last fridays in ' & $_iYear & @LF, $iDay

Local $aDaysInMonth[12] = [31,28,31,30,31,30,31,31,30,31,30,31]

If _DateIsLeapYear($_iYear) Then $aDaysInMonth[1] = 29

For $i = 1 To 12

$iDay = $aDaysInMonth[$i-1]

While 1

If _DateToDayOfWeekISO($_iYear, $i, $iDay) = 5 Then

$sResult &= StringFormat('%4d-%02d-%02d', $_iYear, $i, $iDay) & @LF

ExitLoop

EndIf

$iDay -= 1

WEnd

Next

ConsoleWrite($sResult)

EndFunc ;==>_GetFridays

</lang>

Output

<pre>

last fridays in 2012

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>

--[[User:BugFix|BugFix]] ([[User talk:BugFix|talk]]) 13:27, 15 November 2013 (UTC)