Time

---

Timeステートメント

構文

Time = time

timeには、時刻を表す数式または文字列式を指定します。

解説

システムの時刻を設定します。

サンプル

次の例は、現在のシステムの時刻を１時間進めてから元に戻します。

Sub Sample()
    MsgBox "現在の時刻は " & Format(Now, "hh:mm:ss") & "です"
    Time = TimeSerial(Hour(Now) + 1, Minute(Now), Second(Now))
    MsgBox "現在の時刻は " & Format(Now, "hh:mm:ss") & "です"
    Time = TimeSerial(Hour(Now) - 1, Minute(Now), Second(Now))
    MsgBox "現在の時刻は " & Format(Now, "hh:mm:ss") & "です"
End Sub