Sub AddNormalHolidays()

in AddHolidays_en.vbs [86:99]

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

Sub AddNormalHolidays( iYear, arrHolidays )
    Dim i
    Dim arrRec

    For i = LBound(arrHolidays) To UBound(arrHolidays)
        arrRec = Split(arrHolidays(i),",")

        If UBound(arrRec) = 4 Then
            MoveHoliday arrRec(0), iYear & "/" & arrRec(1) & "/" & arrRec(2), iYear & "/" & arrRec(3) & "/" & arrRec(4)
        Else
            AddOneHoliday arrRec(0), iYear & "/" & arrRec(1) & "/" & arrRec(2)
        End If
    Next
End Sub