【VBA】TimeValue関数の使い方と活用方法：時刻の計算

【基本構文】

TimeValue(timeString)

Sub ExampleTimeValue()

Dim timeStr As String
Dim timeResult As Date

timeStr = "14:30" ' 時刻を文字列として設定
timeResult = TimeValue(timeStr) ' 時刻型に変換

MsgBox "変換後の時刻: " & timeResult

End Sub

Sub CompareWithCurrentTime()

Dim timeStr As String
Dim timeResult As Date

timeStr = "12:00 PM"
timeResult = TimeValue(timeStr)

If timeResult > Time Then

MsgBox "指定した時刻は現在の時刻より後です。"

Else

MsgBox "指定した時刻は現在の時刻より前です。"

End If

End Sub

Sub AddTime()

Dim timeStr As String
Dim timeResult As Date

timeStr = "08:00"
timeResult = TimeValue(timeStr) + TimeValue("1:30") ' 1時間30分を加算

MsgBox "新しい時刻: " & Format(timeResult, "hh:mm:ss")

End Sub

Sub SubtractTime()

Dim startTime As Date
Dim endTime As Date
Dim elapsedTime As Double

startTime = TimeValue("09:15")
endTime = TimeValue("11:45")
elapsedTime = endTime - startTime ' 経過時間を計算

MsgBox "経過時間: " & Format(elapsedTime, "h 時間 m 分")

End Sub

Sub FormatTimeValue()

Dim timeStr As String
Dim timeResult As Date

timeStr = "18:45"
timeResult = TimeValue(timeStr)

MsgBox "時刻のフォーマット: " & Format(timeResult, "hh:mm AM/PM")

End Sub

Sub ProcessCellTime()

Dim cellTime As Date

cellTime = TimeValue(Range("A1").Value) ' セル A1 の値を変換
MsgBox "セルの時刻: " & Format(cellTime, "hh:mm:ss")

End Sub

Sub TimeRangeCheck()

Dim inputTime As Date
Dim startTime As Date
Dim endTime As Date

inputTime = TimeValue("15:00")
startTime = TimeValue("14:00")
endTime = TimeValue("18:00")

If inputTime >= startTime And inputTime <= endTime Then

MsgBox "指定した時刻は範囲内です。"

Else

MsgBox "指定した時刻は範囲外です。"

End If

End Sub