ＶＢＡの日時指定について

質問

ＶＢＡの日時指定について

TimeSerialとdateSerialの合わせた物を探しています　
やりたい事は、
５日の１４時を境に処理を変えたいです。

例
If ５日の１４時前 Then
処理
ElseIf ５日の１４時過ぎ Then
処理
Endif

回答No.2

KURUMITO · ベストアンサー

ご質問の意味がよく理解できていませんが例えばＡ列に日付と時間が2010/7/4 12:00のように入力されているのでしたら例えば次のようにすればよいでしょう。

For i = 1 To 10
If Day(Cells(i, "A")) <= 5 And Hour(Cells(i, "A")) < 14 Then
Cells(i, "B") = "OK"
ElseIf Day(Cells(i, "A")) >= 5 And Hour(Cells(i, "A")) >= 14 Then
Cells(i, "B") = "NG"
End If
Next

それとも5日の14時というのは年や月をも考えた場合のことでしょうか？
例えば2010年の6月5日の14時以前ということでしたら次のようになりますね。

For i = 1 To 10
If Cells(i, "A").Value < DateSerial(2010, 6, 5) + TimeSerial(14, 0, 0) Then
Cells(i, "B") = "OK"
Elseif Cells(i, "A").Value >= DateSerial(2010, 6, 5) + TimeSerial(14, 0, 0) Then
Cells(i, "B") = "NG"
End If

お礼

御回答有難う御座います。
セルは使わないですが、参考になります。

回答No.1

watabe007

>TimeSerialとdateSerialの合わせた物を探しています　
If Now() < dateSerial(・・・) + TimeSerial(・・・) Then

お礼

御回答有難う御座います。
参考にさせて頂きます。