请问我的这段程序怎么错了？它说不是一个有效的日期和时间格式。

[caoqizi]

我想获取的是当前的日期和时间。用它和输入的日期和时间比较。用的是edit输入框
输入日期和时间。请问有好的解决方法吗？

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text :='97/10/30 10:09:59';
end;

procedure TForm1.Button2Click(Sender: TObject);
var
systemtime:Tsystemtime;
DateTime:TDateTime;
begin
DateTime:=StrToDateTime(Edit1.text);
DateTimeToSystemTime(DateTime,systemtime);
SetLocalTime(SystemTime);
GetLocalTime(SystemTime);//读取北京东8区时间
DateTime:=SystemTimeToDateTime(SystemTime);
Edit2.Text:=DateTimeToStr(DateTime);

end;

[caoqizi]

它说“'97/10/30 10:09:59'不是一个有效的日期和时间格式”请问有什么好的解决方法吗？

[jlandzpa]

不知道你程序中要求的格式的什么样子的？

[caoqizi]

要求是时间、日期型的啊！ 要时间和日期一起出现。

[jlandzpa]

应该是日期转换过程中出问题了。

[wylyf]

"02-10-30 10:09:59"应该可以

[caoqizi]

我看看 谢谢了

[caoqizi]

谢谢 现在可以了