您所在位置：主题：[讨论]高手指导一下，关于日期计算的一个问题。结果乱码了
zhangbin0733
[专家分：20] 发布于 2007-05-21 19:51:00
我是一个新手，想用DateTimePicker控件来计算，2个日期之间的天数，结果乱码了。
代码如下。
var
Form1: TForm1;
StartTime, StopTime,Difference : TDateTime;
procedure TForm1.Button1Click(Sender: TObject);
begin
StartTime:=DateTimePicker1.Date;
StopTIme:=DateTimePicker2.Date;
Difference:=StopTime-StartTime;
Edit1.Text:=DatetoStr(Difference);
end;
我运行以后，发现代码是乱的，出来的不是天数。1900－××－××，怎么回事啊。
应该怎么写啊？小生先谢了。
代码如下。
var
Form1: TForm1;
StartTime, StopTime,Difference : TDateTime;
procedure TForm1.Button1Click(Sender: TObject);
begin
StartTime:=DateTimePicker1.Date;
StopTIme:=DateTimePicker2.Date;
Difference:=StopTime-StartTime;
Edit1.Text:=DatetoStr(Difference);
end;
我运行以后，发现代码是乱的，出来的不是天数。1900－××－××，怎么回事啊。
应该怎么写啊？小生先谢了。