掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Delphi4でTDateTimeの値を比較するには？ (ID:43695)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>ukさん、3Kさん 返信ありがとうございます。 Delphi4にもあったのですね…調べる能力が足りませんでした。 結果的には以下のように実装できました。 function TForm.MonthCheck(CheckDate: TDateTime): Boolean; var dateBefore3m: TDateTime; dateAfter3m: TDateTime; dateNow: TDateTime; begin dateNow := Now(); dateBefore3m := Int(IncMonth(dateNow, -3)); //3か月前 dateAfter3m := Int(IncMonth(dateNow, 3)); //3か月後 if (CheckDate >= dateBefore3m) and (CheckDate <= dateAfter3m) then Result := True else Result := False; end; TDateTime型はどうやらある年月日を基準に日数が整数部に加算されているような動きをしていたので、 現在の月を調べて3か月後の日数と3か月前の日数を割り出して判定するという方法を用いれば ukさんが提示して下さったように自分で作成することができるのではないかと思いました。 大変助かりました。ありがとうございます。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.