Vba에서 시간차를 계산하는 방법(예제 포함)

VBA에서 다음 기본 구문을 사용하여 두 시간의 차이를 계산할 수 있습니다.

 Sub FindTimeDifference()
    
    Dim i As Integer

    For i = 2 To 7
        'calculate time difference in days
        Range(" C " & i) = Range(" B " & i) - Range(" A " & i)
        
        'calculate time difference in hours
        Range(" D " & i) = (Range(" B " & i) - Range(" A " & i)) * 24
        
        'calculate time difference in minutes
        Range(" E " & i) = (Range(" B " & i) - Range(" A " & i)) * 24 * 60
        
        'calculate time difference in seconds
        Range(" F " & i) = (Range(" B " & i) - Range(" A " & i)) * 24 * 60 * 60
    Next i
    
End Sub

이 특정 매크로는 A2:A7 및 B2:B7 범위에서 해당 시간 간의 차이를 계산하고 다음 결과를 반환합니다.

• C2:C7 에는 일 단위의 시차가 포함됩니다.
• D2:D7 에는 시차가 포함됩니다.
• E2:E7에는 분 단위의 시차가 포함됩니다.
• F2:F7에는 초 단위의 시간 차이가 포함됩니다.

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

예: VBA에서 시간차 계산

Excel에 다음 두 개의 시작 및 종료 시간 열이 있다고 가정합니다.

다음 매크로를 생성하여 각 시작 시간과 종료 시간 사이의 시간 차이를 계산하고 C~F 열에 결과를 표시할 수 있습니다.

 Sub FindTimeDifference()
    
    Dim i As Integer

    For i = 2 To 7
        'calculate time difference in days
        Range(" C " & i) = Range(" B " & i) - Range(" A " & i)
        
        'calculate time difference in hours
        Range(" D " & i) = (Range(" B " & i) - Range(" A " & i)) * 24
        
        'calculate time difference in minutes
        Range(" E " & i) = (Range(" B " & i) - Range(" A " & i)) * 24 * 60
        
        'calculate time difference in seconds
        Range(" F " & i) = (Range(" B " & i) - Range(" A " & i)) * 24 * 60 * 60
    Next i
    
End Sub

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

C~F 열에는 시작 시간과 종료 시간 간의 시간 차이가 다양한 단위로 표시됩니다.

추가 리소스

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

VBA에서 날짜를 비교하는 방법
VBA에서 두 날짜 사이의 일수를 계산하는 방법
VBA에서 문자열을 날짜로 변환하는 방법