もし今の時間が四時を超えてるのなら ｉｆステートメ

質問

もし今の時間が四時を超えてるのなら　ｉｆステートメントで条件分岐したいです。

まだ、3時半前なのに

If Now > TimeValue("16:00:00") Then
MsgBox "4時を過ぎました"
End If

これをすると、四時を過ぎたことになるのですが四時前ならメッセージを表示しない方法を教えてください。

回答No.1

keithin · ベストアンサー

if now - date > timeserial(16,0,0) then msgbox "４時を過ぎました"
などのようにします。

nowの値をキチンと調べてみると、日時まで含んでいて直接「４時」とは比較できないのが判ります。

お礼

ありがとうございます。

回答No.2

mshr1962

Nowは現在日付時刻（PCに表示されているもの）です。
今日の15:40なら、実体は　2013/9/29 15:40:00　を意味します。

時刻だけを比較するなら
If Hour(Now) > 16 Then

時分秒まで比較なら
If (Now Mod 1) > TimeValue("16:00:00") Then

お礼

ありがとうございます。