掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
DaysBetweenの使用方法について (ID:3450)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
エラーになっていたのは、行数を増やしているのにx,yに代入するところで 行数を増やす前の行番で代入していたため。 行数を増やすタイミングと１番最初に入力されるとき（前回の日付時間が ない状態）のときの処理も考えたほうがいいかも。 最後の >Cells[1,RowCount]:=DateToStr(DaysBetween(x,y)); ですが、 DaysBetween関数は日数を返すのでDateToStrよりIntToStrの方がいいのでは？ procedure TForm1.Button1Click(Sender: TObject); var x,y:TDateTime; begin with StringGrid1 do begin RowCount:=RowCount+1; Cells[0,RowCount-2]:=DateToStr(DateTimePicker1.Date); if RowCount < 3 then Exit; x:=StrToDate(Cells[0,RowCount-2]); y:=StrToDate(Cells[0,RowCount-3]); Cells[1,RowCount-2]:=IntToStr(DaysBetween(x,y)); end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.