目次
経緯
VBAを使って、取得した時間の比較をしたくて、
今回勉強しました。
日付型にする「CDate」を使う
まず、プログラムを書きます。”今の時間now_timeと制限時間limit_timeがあり、今の時間が過ぎたら、この処理”って設定です。
Dim now_time, limit_time
now_time = CDate(Format(Time, "hh:mm:ss"))
limit_time = CDate("17:00:00")
If now_time > limit_time Then
MsgBox "17時過ぎました。記入しないでね。"
Else
MsgBox "17時前なので書き込めますよ"
End if
こんな感じです。プログラムを説明します。空白の行は省略してます。
1行目、変数の宣言です。now_timeとlimit_timeという変数を宣言してます。
2行目、今の時間を取得してます。
3行目、制限時間を取得してます。
4行目、if文、もしnow_timeがlimit_timeより大きかったら、5行目に。小さいなら、6行目に飛ぶます。
5行目、メッセージボックスでコメントしてます。
6行目、4行目で小さかった場合の処理になります。
7行目、 メッセージボックスでコメントしてます。
8行目、if文終わりです。
私はデータ型の処理をしていなくて、不等号がうまくいかず、てこずってました。
参考になれば、幸いです。
ここまで読んでいただきありがとうございました。
