3000分，刘麻子兄请进(三)，请版主手下留情 ( 积分: 300 )

如题！
另外，还想问问大家，为什么Trunc(A * SecsPerDay)和DateTimeToTimeStamp(A).Time div 1000的值会有误差呢？
procedure TForm1.N2Click(Sender: TObject);
var
A: TDateTime;
begin
A := StrToDateTime('2005-07-19 16:16:00');
Memo1.Lines.Add('时间：' + DateTimeToStr(A));
Memo1.Lines.Add('Trunc(A * SecsPerDay) = ' + IntToStr(Trunc(Frac(A) * SecsPerDay)));
Memo1.Lines.Add('DateTimeToTimeStamp(A).Time = ' + IntToStr(DateTimeToTimeStamp(A).Time div 1000));
end;

如题！
另外，还想问问大家，为什么Trunc(A * SecsPerDay)和DateTimeToTimeStamp(A).Time div 1000的值会有误差呢？
procedure TForm1.N2Click(Sender: TObject);
var
A: TDateTime;
begin
A := StrToDateTime('2005-07-19 16:16:00');
Memo1.Lines.Add('时间：' + DateTimeToStr(A));
Memo1.Lines.Add('Trunc(A * SecsPerDay) = ' + IntToStr(Trunc(Frac(A) * SecsPerDay)));
Memo1.Lines.Add('DateTimeToTimeStamp(A).Time = ' + IntToStr(DateTimeToTimeStamp(A).Time div 1000));
end;

Trunc(A * SecsPerDay) 还是 Trunc(Frac(A) * SecsPerDay的值
和DateTimeToTimeStamp(A).Time div 1000有误差？
Trunc(Frac(A) * SecsPerDay = DateTimeToTimeStamp(A).Time div 1000

这个帖子先别结束吧？ 作讨论用~ []

Trunc:
Truncates a real number to an integer.

实数截尾为整型数，肯定会存在误差的。

多人接受答案了。