发现一个Delphi的Bug

[trainbox]

var
v: Variant;
d: TDateTime;
begin
//无问题
d:=strtodatetime('2001/12/31 02:53:39');
v:=d;
DBEdit1.Field.Value:=v; （uuu）

//有问题
d:=strtodatetime('0001/12/31 02:53:39');
v:=d;
DBEdit1.Field.Value:=v; （xxx）

end;

DBEdit1是一个DateTime类型的字段，语句XXX异常

[myling]

好像日期的最小值时1900年吧？你搞个公元1年，难怪delphi会和你恼:)

[snowmiao2002]

'0001/12/31 02:53:39' 是一个不正确的时间

[trainbox]

d:=strtodatetime('0001/12/31 02:53:39');
DBEdit1.Field.AsDateTime:=d;
或者

d:=strtodatetime('0001/12/31 02:53:39');
v:=d;
DBEdit1.Field.AsDateTime:=v; //不是DBEdit1.Field.Value
这样做是没问题的

其实这应该是Variant类型转换的Bug

日期1899年12月31日是0，以前的就是负数，delphi还是支持公元一年的

[trainbox]

ding

[aiirii]

>>DBEdit1是一个DateTime类型的字段，语句XXX异常
給出語句异常提示!!這樣比較好解決點!

[trainbox]

抛出的异常是“Invalid Field Value of 'Hiredate'”

[zblaoshu1979]

'0001/12/31 02:53:39' 根本就不是一个正确的时间格式

[pwzhu666]

上面的各位说的都有些道理的，楼主不妨看看啊

[Zhangfeiyang]

中国的日期格式：0001-12-31 02:53:39
西方日期格式：12/31/0001 02:53:39
请看一下Delphi帮助吧

[trainbox]

//这一句没有错，我机器时间格式就是yyyy/mm/dd hh:nn:ss
d:=strtodatetime('0001/12/31 02:53:39');
//d是TDateTime型，实际就是Double型，赋值给V（Variant类型）
v:=d;
//再把v赋值给DBEdit1.Field.Value，弹出错误Invalid Field Value of 'Hiredate'
DBEdit1.Field.Value:=v;

[trainbox]

//这一句没有错，我机器时间格式就是yyyy/mm/dd hh:nn:ss
d:=strtodatetime('0001/12/31 02:53:39');
//d是TDateTime型，实际就是Double型，赋值给V（Variant）
v:=d;
//再把v赋值给DBEdit1.Field.Value，弹出错误Invalid Field Value of 'Hiredate'
DBEdit1.Field.Value:=v;

//下面这样做是没问题的
DBEdit1.Field.AsDateTime:=v; //不是DBEdit1.Field.Value

[4043335]

动不动就说delphi有bug
唉!!!!!!!!!!!!!!1

[trainbox]

这个确实是Delphi的bug，是Variant值赋值给一个日期字段是的bug

[liyangyao970]

up

[trainbox]

up

[dy_paradise]

最小值为1900年，当然会错喽

[trainbox]

楼上的还没有看清楚问题根源所在