为什么会这样呢？(30分)

3

3368aa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-06

• #1

procedure TForm1.Button1Click(Sender: TObject);
var
d:tdatetime;
s:string;
begin
d:=now;
s:=datetimetostr(d);
if strtodatetime(s)=d then
canvas.TextOut(100,100,'yes')
else
canvas.TextOut(100,100,'no');
end;

为什么日期时间型转换成字符串，再转换回来就不一样了，该怎么写？

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-06

• #2

精度问题。都是Double的。
procedure TForm1.Button1Click(Sender: TObject);
var
d: tdatetime;
s: string;
begin
d := now;
s := datetimetostr(d);

Edit1.Text := FloatToStr(d);
Edit2.Text := FloatToStr(strtodatetime(s));

if strtodatetime(s) = d then
canvas.TextOut(100, 100, 'yes')
else
canvas.TextOut(100, 100, 'no');
end;

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-06

• #3

TDateTime本来是一个Double类型，比较时不能用等号
const
dalta = 1 / 24 / 3600
//一个精度值
...
if abs(strtodatetime(s) - d ) < delta then

 

3

3368aa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-06

• #4

应该怎么才能解决这个问题呢？

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-06

• #5

tseug已经给出解决办法了呀。

 

3

3368aa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-06

• #6

yxhshi
　　能给发详细一点的源码吗？我是菜鸟

 

3

3368aa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-08

• #7

多人接受答案了。