Question

在delphi7中添加时间的代码是什么？？

Answer 1

你是要把时间显示出来吗?

告诉你一个步骤

添加一个time,然后在点击time 图标,在下面输入

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Label2.Caption:=DateToStr(Now)+' '+timetostr(Now);

end;

效果图

Answer 2

datetimetostr（now）；

Answer 3

如果是时间控件上设置时间是DateTimePicker1.Date:=Now; Now为当前时间
如果是要把时间添加到数据库的话时间的值要格式化 FormatDateTime('YYYY-MM-DD',Date);

Answer 4

//显示 时 分 秒 毫秒
procedure TForm1.Button1Click(Sender: TObject);
var currentTime:TDateTime; stringTime:String;
begin
currentTime:=Time();
stringTime:=FormatDatetime('hh:nn:sss:zzz',currentTime);
Edit1.Text:=stringTime;
end;

//更多复杂的日期时间函数请参考DateUtils单元文件