Sub MoveHoliday()

in AddHolidays_en.vbs [146:166]

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

Sub MoveHoliday( strName, strOldDay, strNewDay )
    Dim itmOneHoliday
    
    Set itmOneHoliday = fldCalendar.Items.Find( _
        "[CATEGORIES] = 'Holiday' AND [LOCATION] = 'Japan' AND [START] >= '" & _
        strOldDay & " 00:00 AM' AND [END] <= '" & _
        DateAdd("d", CDate(strOldDay), 1) & "'")

    If itmOneHoliday Is Nothing Then
        Set itmOneHoliday = appOlk.CreateItem(OlAppointment)
    End If

    itmOneHoliday.Subject = strName
    itmOneHoliday.Start = strNewDay
    itmOneHoliday.AllDayEvent = True
    itmOneHoliday.BusyStatus = OlFree
    itmOneHoliday.ReminderSet = False
    itmOneHoliday.Location = "Japan"
    itmOneHoliday.Categories = "Holiday"
    itmOneHoliday.Save
End Sub