8.4.14 CompTime (二つの時刻を比較する)
- 機能
-
指定された二つの時刻を比較して,結果を真(True),または偽(False)で返します。
- 形式
CompTime ( Time1 , Comp , Time2 )
- 指定項目
-
- Time1
-
比較する一方の時刻を hh:mm:ss の形式で指定します。
hhに不正な値を指定した場合はエラーになりますが,mmとssに不正な値を指定した場合はエラーになりません。実在する時刻に置き換えます。
例えば,19:00:65(実在しない時刻)を指定した場合,19:01:05(実在する時刻)と置き換えます。
- Comp
-
比較方法を指定します。
この値は,次のどれかになります。
値
意味
Equal
等しい( = )
NotEqual
等しくない( <> )
Before
Time1より,Time2の方が前の時刻である( > )
After
Time1より,Time2の方が後の時刻である( < )
- Time2
-
比較するもう一方の日付を hh:mm:ss の形式で指定します。
mmとssに不正な値を指定した場合は,実在する時刻に置き換えます。
- 説明
-
二つの時刻をCompで指定された方法で比較し,結果をコマンドの実行結果として返します。比較結果がCompで指定された値と一致する場合は真(True)を,それ以外の場合は偽(False)を返します。
エラーが発生した場合は,長さ0の文字列("")を返します。
- 例
' 作成時間が今日の午前中のファイルを削除する。 Dim fileName ,creDate ,creTime For fileName = _TEMP_+"*.*" Do GetFileTime ( _TEMP_+fileName ,creDate ,creTime ,Create ) If CompDate ( creDate ,Equal ,Date() ) Then If CompTime ( creTime ,After ,"12:00:00" ) = True Then DeleteFile ( _TEMP_+fileName ) End If End If End For
- 対象バージョン
-
JP1/Script 05-20以降