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

CompDate ( Date1 , Comp , Date2 )

Date1

比較する一方の日付をyyyy/mm/ddの形式で指定します。

yyyyに0〜69の範囲の整数値を指定すると，2,000〜2,069に読み替えられます。

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

ddに存在しない不正な値を指定した場合は，存在する日付に置き換えます。例えば，1999/12/32（存在しない日付）を指定した場合，2000/01/01（存在する日付）に置き換えます。

Comp

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

値	意味
Equal	等しい（ = ）
NotEqual	等しくない（ < > ）
Before	Date1より，Date2の方が前の日付である（ > ）
After	Date1より，Date2の方があとの日付である（ < ）

Date2

比較するもう一方の日付をyyyy/mm/ddの形式で指定します。

Date1と同様に，yyyyに0〜69の整数値を指定すると，2,000〜2,069に読み替えられ，ddに存在しない不正な値を指定した場合は，存在する日付に置き換えます。

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

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

' 更新日付が今日から30日前のファイル（拡張子.TXT）を削除する。
Dim  fileName ,delDate ,updDate
delDate = CalcDate ( Date() ,Minus ,0 ,0 ,29 )
 
For  fileName = _TEMP_+"*.TXT"  Do
  GetFileTime ( _TEMP_+fileName ,updDate , ,Update )
  If  CompDate ( updDate ,After ,deldate ) = True  Then
    DeleteFile ( _TEMP_+fileName )
  End If
End For