[求助]问个tdatetime的问题。

菜鸟上路发布于 2007-01-11 11:38， 627 次点击

请问如何将计算两日期的相差的天数？
比如'2007-02-03'和'2007-01-11'，可转换成datetime类型的话，显示出的效果又是'1900-1-22'？

[此贴子已经被作者于2007-1-11 18:12:10编辑过]

5 回复

nongen2007-01-11 12:47

var d1,d2:tdate;
begin
d1:=strtodate('2007-02-03');
d2:=strtodate('2007-01-11');
d1:=d1-d2;
//用datetostr(d1)输入值　根据机器设定的初始日期来

end;

菜鸟上路2007-01-11 14:31

var
t1,t2,t3:Tdatetime;
begin
Edit1.Text:='2007-02-03';
Edit2.Text:='2007-01-11';
t1:=strtodatetime(Edit1.Text);
t2:=strtodatetime(Edit2.Text);
t3:=t1-t2;
showmessage(datetimetostr(t3));
end;
可这样显示的是'1900-1-22'呀，怎么得到时间差呢？
用datetostr(d1)做输入值是什么意思啊？

[此贴子已经被作者于2007-1-11 14:32:01编辑过]

菜鸟上路2007-01-11 15:19

谢谢nongen回答，这样应该可以得到相差的天数
var
t1,t2,t3:Tdatetime;
i:real;
begin
Edit1.Text:='2007-02-03';
Edit2.Text:='2007-01-11';
t1:=strtodatetime(Edit1.Text);
t2:=strtodatetime(Edit2.Text);
t3:=t1-t2;
i:=t3;
showmessage(floattostr(i));
end;

nongen2007-01-11 17:42

先前你要的不就是要显示出的效果又是'1900-1-22'。

菜鸟上路2007-01-11 18:11

不是，忘了在后面加问号