Uses DateUtils;
.....
var d:TDateTime;
begin
d:=Time();
ShowMessage(DateTostr(d));
end;
它显示“”而不是当前时间字符串
您的评论欢迎
答案 0 :(得分:8)
您得到奇怪的结果,因为Time
返回当前时间的日期1899-12-30,DateToStr
以字符串形式返回日期。
我质疑你声称它显示一个空字符串,因为它在我的结尾显示了以下内容:
所以你需要像这样返回完整的日期和时间:
d := Now;
但请注意,如果您显示日期,则仍然没有显示时间,因此您需要显示TDateTime变量的时间部分而不是日期部分:
ShowMessage(TimeToStr(d));