怎样在Delphi中取系统时间?

Question

date返回日期
time返回时间

Answer 1

Edit1.Text := FormatDateTime('yyyy-MM-dd hh:mm:ss ddd',Now);

Answer 2

edit1.text:=datetostr(date)+''+timetostr(time);
利用timer不停调用刷新,也可实现时钟效果!

Answer 3

sysunit里头有个time的函数的，查查看吧！然后用timetostr就是罗！

Answer 4

procedure TForm1.Button1Click(Sender: TObject);begin
  Label1.Caption := 'Today is  ' + DateToStr(Date);end;

Answer 5

在时间控件中加入如下代码
label1.caption:=timetostr(time);
label1.caption:=datetostr(date);
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！★  浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★  多种帖子实现界面。 
★  保存帖子到本地[html格式]★  监视您关注帖子的回复更新。
★  可以直接发贴、回复帖子★  采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！ 
★  支持在线检测程序升级情况，可及时获得程序更新的信息。★★ 签名  ●  
     可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe    [自解压]

Answer 6

now
datatostr(data)
timetostr(time)

Answer 7

用timer控件和statusbar
在timer的timer事件里面加入如下代码就ok了
statusbar1.Panels.Items[0].Text:='北京时间:'+timetostr(time);

Answer 8

now:取得当前的系统时间
date：取得当前的日期
time：取得当前的时间

Answer 9

妈的！
还想拿分的
太简单了点！
edit1.text:=datetostr(date)+timetostr(time);

Answer 10

procedure TForm1.Button1Click(Sender: TObject);begin
  Label1.Caption := 'Today is  ' + DateToStr(Date);end;

Answer 11

procedure TForm1.Button1Click(Sender: TObject);
begin
    label1.Caption:=datetostr(now);
end;