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
等しくない（ < > ）
Before
Date1より，Date2の方が前の日付である（ > ）
After
Date1より，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以降