名前 題名 ▼ Mr.XRAYさん > 確認のために，日付，時刻，Delphi 等で検索していたら， > 以下のようなのを見つけました． > 「放射能」と書いてはありましたが，プログラム，コーディングそのものは， > 放射能じゃなくても，なのですが． > > http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q12132054502 > > こういうことらしいのですが， > > type > TForm1 = class(TForm) > DateTimePicker1: TDateTimePicker; > DateTimePicker2: TDateTimePicker; > Button1: TButton; > procedure Button1Click(Sender: TObject); > private > { Private 宣言 } > public > { Public 宣言 } > end; > > var > Form1: TForm1; > > implementation > > uses DateUtils; > > {$R *.dfm} > > procedure TForm1.Button1Click(Sender: TObject); > var > seizou : TDateTime; > genzai : TDateTime; > A : double; > begin > //質問者が提示したコードにはこの部分はない > //したがって，TDateTimePickerにどのようにして値を設定したのかは不明 > DateTimePicker1.DateTime := Now; > DateTimePicker2.DateTime := IncDay(Now, 1); > > seizou :=DateTimePicker1.time; //timeプロパティの型はTDatetime型 > genzai :=DateTimePicker2.time; > > //質問者は以下の値が 0 になるということらしい? > //どのようにして値を確認したかは不明 > A := genzai - seizou; > ShowMessage(FloatToStr(A)); > end; > > やってみたのが，下の最初の図です．0 にはなっていないですね． > Windows 7 U64(SP1) + Delphi XE(UP1) Pro です． > で， > > DateTimePicker2.DateTime := IncDay(Now, 1); > > を次のようにして，1 時間だけ増加させてみました． > > DateTimePicker2.DateTime := IncHour(Now, 1); > > その結果が下の図です． > やはり 0 にはならないですね．う〜む． > 当然ですが，TDateTimePicker の値が同じなら 0 ですが． > その TDateTimePicker の操作については書かれていな.... いですね． > ちょっと分からんです． > > 参考になるレスが付いているので，問題はないと思いますが， > 「放射能」で気になりました． > 知恵袋はアカウントを持っていますが，こうい疑問があると対話が必要です． > 知恵袋は，対話的なことができない，難しいのでレスは無理ですが． GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link