喫茶XRAY [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 の操作については書かれていな.... いですね．
ちょっと分からんです．

参考になるレスが付いているので，問題はないと思いますが，
「放射能」で気になりました．
知恵袋はアカウントを持っていますが，こうい疑問があると対話が必要です．
知恵袋は，対話的なことができない，難しいのでレスは無理ですが．