VBAで時刻の記述方法

質問

エクセルのVBAの時刻処理に関するif文の記述方法がわかりません。
例を挙げて説明します。

例
今の時刻が9:00-17:30なら処理(1)をそれ以外なら処理(2)を実行する

上記のように現在の時間を用いたif文を書きたいと思っています。
現在の時刻や日を取得することまではできたのですが、上記のような処理をするのができずに困っています。

また、下記のようにString型で時刻を記述して日時を扱う処理はできるのでしょうか？たとえば、下記時間を一時間進める等・・・

Dim 日時 As String
日時 = "2007/10/27 20:17:00"

簡単な質問ですがお願いします。

回答No.3

zap35 · ベストアンサー

後半部分に回答します。以下のマクロで１時間進められたことが確認できますよ

Sub Macro3()
Dim DateTime As Date
　DateTime = CDate("2007/10/27 20:17:00")
　MsgBox Hour(DateTime)
　DateTime = DateTime + TimeValue("01:00:00")
　MsgBox Hour(DateTime)
End Sub

回答No.2

noname#187541

こんばんは。

＞今の時刻が9:00-17:30なら処理(1)をそれ以外なら処理(2)を実行する
If Time >= TimeValue("9:00") And Time <= TimeValue("17:30") Then
'処理1
Else
'処理2
End If

回答No.1

n-jun

>今の時刻が9:00-17:30なら処理(1)をそれ以外なら処理(2)を実行する

If Time >= TimeValue("9:00:00") And Time <= TimeValue("17:30:00") Then
MsgBox "処理１"
Else
MsgBox "処理２"
End If
では、どうでしょう？