8.4.11 CompDate二つの日付を比較する

機能
指定された二つの日付を比較して,結果を真(True),または偽(False)で返します。
形式

CompDate ( Date1 , Comp , Date2 )

指定項目
Date1
比較する一方の日付を yyyy/mm/dd の形式で指定します。yyyyに0~69の範囲の数値を指定すると,2000~2069と読み替えられます。
mmに不正な値を指定した場合はエラーになりますが,ddに不正な値を指定した場合はエラーになりません。実在する日付に置き換えて結果を返します。
例えば,1999/12/33(実在しない日付)を指定した場合,2000/01/02(実在する日付)に置き換えます。
Comp
比較方法を指定します。
この値は,次のどれかになります。
意味
Equal等しい( = )
NotEqual等しくない( < > )
BeforeDate1より,Date2の方が前の日付である( > )
AfterDate1より,Date2の方が後の日付である( < )
Date2
比較するもう一方の日付をyyyy/mm/ddの形式で指定します。
yyyyに0~69の範囲の数値を指定すると,2000~2069と読み替えられます。また,mmに不正な値を指定した場合はエラーになりますが,ddに不正な値を指定した場合は,実在する日付に置き換えます。
説明
二つの日付をCompで指定された方法で比較し,結果をコマンドの実行結果として返します。比較結果がCompで指定した値と一致する場合は真(True)を,それ以外の場合は偽(False)を返します。
エラーが発生した場合は,長さ0の文字列("")を返します。

' 30日以上前に作成された一時フォルダ下のファイルを削除する。
Dim  fileName ,delDate ,creDate
delDate = CalcDate ( Date() ,Minus ,0 ,0 ,29 )

For  fileName = _TEMP_+"*.*"  Do
 GetFileTime ( _TEMP_+fileName ,creDate , ,Create )

 If  CompDate ( creDate ,After ,deldate ) = True  Then
   DeleteFile ( _TEMP_+fileName )
 End If
End For

対象バージョン
JP1/Script 05-20以降