时间问题？

Question

高位高手问一个时间问题
if checkbox2.checked=true then
begin
kgrq:=formatdatetime('YYYY-MM-DD',date4.DateTime);
end
else
begin
kgrq:='';
end;
以上代码字段为空时，日期显示为1900－01－01
我怎么做让它不显示呀
谢谢

Answer 1

可以使用字符串，用EDIT处理 日期型字段若用DATATIMPEPICKER，是1899...

Answer 2

如果kgrq是EHLIB的控件，可以这样：kgrq.value = nil;
其它控件没试过行不行