分だけを足して年月日が変わっているかチェックするには？

解決

ニビンコ＠すんごく初心者 2004-03-18 01:12:58 No: 7734

いつもココの掲示板を参考にさせてもらっているニビンコです。
今日初めて書き込みです、
超初心者です・・・（；；
よろしくお願いします。
内容は題名の通りなんですが、
現在時間に分（変数）だけを足して日にちが次の日になっているか知りたいのですが、
どのように考えたらいいのでしょうか？
よろしくお願いいたします。

ふぐちゃん 2004-03-18 01:37:44 No: 7735

参考になるとよいのですが。

implementation

uses
DateUtils;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  M: Int64;
  T: TDateTime;
begin
  M := 45;
  T := Today;
  if T = DateOf(IncMinute(Now, M)) then
    ShowMessage('今日です。')
  else
    ShowMessage('日付が変わりました。');
end;

ニビンコ 2004-03-18 02:11:22 No: 7736

ふぐちゃんさん早速の回答ありがとうございます〜＾＾
分を加えるためにはIncMinute(A,B)を使えばいいんですね。
何分になってるか確認してみようかと思ったら
DateOf(IncMinute(Now, M))で
時間を切り捨てになっているんですね＾＾；
少々あせっちゃいましたが何とかわかりました〜☆
本当にありがとうございました＾＾