Sub AddOneHoliday()

in AddHolidays_en.vbs [117:143]

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

Sub AddOneHoliday( strName, strHoliday )
    Dim itmOneHoliday
    
    Set itmOneHoliday = fldCalendar.Items.Find( _
        "[CATEGORIES] = 'Holiday' AND [LOCATION] = 'Japan' AND [START] >= '" & _
        strHoliday & " 00:00 AM' AND [END] <= '" & _
        DateAdd("d", CDate(strHoliday), 1) & "'")
        
    
    
    
        
    If itmOneHoliday Is Nothing Then
        Set itmOneHoliday = appOlk.CreateItem(OlAppointment)
        itmOneHoliday.Subject = strName
        itmOneHoliday.Start = strHoliday
        itmOneHoliday.AllDayEvent = True
        itmOneHoliday.BusyStatus = OlFree
        itmOneHoliday.ReminderSet = False
        itmOneHoliday.Location = "Japan"
        itmOneHoliday.Categories = "Holiday"
        itmOneHoliday.Save
        
    Else
        
    End If
End Sub