Sub AddOneHoliday()

in AddHolidays.vbs [117:143]

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

Sub AddOneHoliday( strName, strHoliday )
    Dim itmOneHoliday
    
    Set itmOneHoliday = fldCalendar.Items.Find( _
        "[分類項目] = '祝日' AND [場所] = '日本' AND [開始日] >= '" & _
        strHoliday & " 00:00 AM' AND [終了日] <= '" & _
        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 = "日本"
        itmOneHoliday.Categories = "祝日"
        itmOneHoliday.Save
        
    Else
        
    End If
End Sub