Как сравнить даты? - VB

Формулировка задачи:

в таблицу в колонку начало отпуска и конец отпуска вводятся даты.....необходимо определить к какому кварталу относятся эти даты, и,соответственно, из нужного квартала - вычесть число календарных дней отпуска(т.е. разницу между началом и концом отпуска) p.s. данные поквартально все заполнены по умолчанию =)

Решение задачи: «Как сравнить даты?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Macro1()
 
Dim i, s As Integer
i = 5: k = 5
 
While Trim(Cells(i, 2).Value) <> ""
    If Cells(i, 20).Value <> "Отмечено" Then
        If IsDate(Cells(i, 18).Value) Then
            If Month(Cells(i, 18)) <= Month(Cells(3, 12)) And Month(Cells(i, 18)) >= Month((Cells(3, 10))) Then
                s = Round(((DateDiff("d", Cells(i, 18).Value, Cells(i, 19).Value))), 0)
                Cells(i, 13).Value = s
                Cells(i, 20).Value = "Отмечено"
            End If
        End If
    End If
    i = i + 1
Wend