Sub MoveHoliday()

in AddHolidays.vbs [146:166]

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

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