指定した二つの時刻を比較して，結果を真（True），または偽（False）で返します。

CompTime ( Time1 , Comp , Time2 )

Time1

比較する一方の時刻をhh:mm:ssの形式で指定します。

hhに存在しない不正な値を指定した場合は，エラーになります。

mmとssに存在しない不正な値を指定した場合は，存在する時刻に置き換えて結果を返します。例えば，19:00:61（存在しない時刻）を指定した場合，19:01:01（存在する時刻）に置き換えます。

Comp

比較方法を次の値で指定します。

値	意味
Equal	等しい（=）
NotEqual	等しくない（<>）
Before	Time1より，Time2の方が前の時刻である（>）
After	Time1より，Time2の方があとの時刻である（<）

Time2

比較するもう一方の時刻をhh:mm:ssの形式で指定します。

Time1と同様に，mmとssに存在しない不正な値を指定した場合は，存在する時刻に置き換えます。

Compで指定した方法で二つの時刻を比較し，結果をコマンドの実行結果として返します。比較結果がCompで指定した値と一致する場合は真（True）を，それ以外の場合は偽（False）を返します。

エラーが発生した場合は，長さ0の文字列（""）を返します。

' 更新時間が今日の午前中のファイル（拡張子.TXT）を削除する。
Dim  fileName ,updDate ,updTime
 
For  fileName = _TEMP_+"*.TXT"  Do
  GetFileTime ( _TEMP_+fileName ,updDate ,updTime ,Update )
  If  CompDate ( updDate ,Equal ,Date() )  Then
    If  CompTime ( updTime ,After ,"12:00:00" ) = True  Then
      DeleteFile ( _TEMP_+fileName )
    End If
  End If
End For