Sub AddHappyMondays()

in AddHolidays_en.vbs [102:114]

• 10 lines of code
• 2 McCabe index (conditional complexity)

Sub AddHappyMondays( iYear, arrHappyMon )
    Dim i
    Dim arrRec
    Dim iWeek
    Dim iDay

    For i = LBound(arrHappyMon) To UBound(arrHappyMon)
        arrRec = Split(arrHappyMon(i),",")
        iWeek = Weekday(iYear & "/" & arrRec(1) & "/1", vbTuesday) - 1
        iDay = 7 * CInt(arrRec(2)) - iWeek
        AddOneHoliday arrRec(0), iYear & "/" & arrRec(1) & "/" & iDay
    Next
End Sub