TimeValue Function

문자열로 전달된 매개 변수인 지정한 시간, 분 및 초에서 단일 숫자 값으로 시간을 나타내는 연속 시간 값을 계산합니다. 이 값을 사용하여 시간 차를 계산할 수 있습니다.

구문:

TimeValue (Text As String)

반환 값:

날짜

매개 변수:

Text: "HH:MM:SS" 서식으로 계산할 시간을 포함하는 임의의 문자열 식입니다.

이 함수를 사용하여 임의의 시간을 시간 차 계산이 가능한 단일 값으로 변환할 수 있습니다.

이 TimeValue 함수는 VarType 7의 Variant 형식(Date)을 구하며 이 값을 내부적으로 0에서 0.9999999999 사이의 배정밀도 숫자로 저장합니다.

고정 날짜를 기준으로 연속 날짜 값이 날짜가 되는 DateSerial 또는 DateValue 함수와 달리 TimeValue 함수를 사용하여 구한 값은 계산하는 데에는 사용할 수 있지만 이 값을 평가할 수는 없습니다.

TimeSerial 함수에서는 시간, 분, 초 등과 같은 개별 매개 변수를 별도의 숫자 식으로 전달할 수 있습니다. 그러나 TimeValue 함수의 경우에는 문자열을 시간이 포함된 매개 변수로 전달할 수 있습니다.

예:

Sub ExampleTimerValue
Dim daDT As Date
Dim a1, b1, c1, a2, b2, c2 As String
    a1 = "start time"
    b1 = "end time"
    c1 = "total time"
    a2 = "8:34"
    b2 = "18:12"
    daDT = TimeValue(b2) - TimeValue(a2)
    c2 = a1 & ": " & a2 & chr(13)
    c2 = c2 & b1 & ": " & b2 & chr(13)
    c2 = c2 & c1 & ": " & trim(Str(Hour(daDT))) & ":" & trim(Str(Minute(daDT))) & ":" & trim(Str(Second(daDT)))
    MsgBox c2
End Sub