Vba에서 날짜를 비교하는 방법(예제 포함)

VBA에서 다음 기본 구문을 사용하여 두 날짜를 비교할 수 있습니다.

 SubCompareDates ()
    Dim i As Integer

    For i = 2 To 5
        If CDate(Range(" A " & i)) < CDate(Range(" B " & i)) Then
            Result = " First Date is Earlier "
    Else
        If CDate(Range(" A " & i)) > CDate(Range(" B " & i)) Then
                Result = “ First Date is Later ”
            Else
                Result = " Dates Are Equal "
            End If
        End If
        
    Range(" C " & i) = Result
    
    Next i
End Sub

이 특정 예에서는 A2:A5 및 B2:B5 범위에 있는 해당 셀의 날짜를 비교하고 C2:C5 범위에 있는 날짜 비교 결과를 반환합니다.

참고 : CDate 함수는 주어진 셀의 값을 날짜로 변환합니다.

다음 예에서는 실제로 이 구문을 사용하는 방법을 보여줍니다.

예: VBA에서 날짜 비교

Excel에 날짜가 포함된 다음 두 개의 열이 있다고 가정합니다.

일치하는 각 행의 날짜를 비교하고 C 열에 날짜 비교 결과를 표시한다고 가정합니다.

이를 위해 다음 매크로를 생성할 수 있습니다:

 SubCompareDates ()
    Dim i As Integer

    For i = 2 To 5
        If CDate(Range(" A " & i)) < CDate(Range(" B " & i)) Then
            Result = " First Date is Earlier "
    Else
        If CDate(Range(" A " & i)) > CDate(Range(" B " & i)) Then
                Result = “ First Date is Later ”
            Else
                Result = " Dates Are Equal "
            End If
        End If
        
    Range(" C " & i) = Result
    
    Next i
End Sub

이 매크로를 실행하면 다음과 같은 출력이 나타납니다.

이제 날짜 비교 결과가 C열에 표시됩니다.

추가 리소스

다음 자습서에서는 VBA에서 다른 일반적인 작업을 수행하는 방법을 설명합니다.

VBA: 여러 열을 기준으로 시트를 정렬하는 방법
VBA:범위 내 행 수를 계산하는 방법
VBA: 열을 필터링하는 방법