如何提取当前系统时间(年月日时分秒)

Question

如何提取当前系统时间(年月日时分秒)

Answer 1

可以利用timer控件取系统的的时间啊

Answer 2

edit1.Text :=sysutils.TimeToStr(now);

Answer 3

用getsystemtime() 得到年月日
用 time 得时间

Answer 4

date:年月日        edit1.text=datetostr(date or now);
time:时分秒        edit1.text=timetostr(time or now);
now:年月日时分秒   edit1.text=datetimetostr(now);

Answer 5

var 
    Year,Month,Day,Hour,Min,Sec,Msec:Word;
   begin
     DecodeDate(Date,Year,Month,Day);
     DecodeTime(Time,Hour,Min,Sec,Msec);
    end;

Answer 6

下面的方法可以解决动态显示时间
在窗体上添加三个空间，两个edit用来显示日期和时间，一个timer控件用来获取系统时间和日期。
在timer事件下添加下面的代码就可以了
edit1.Text:= datetostr(now);
edit2.Text:=timetostr(now);
祝你好运！

Answer 7

还有更简单的方法
str:=formatdatetime('dddddd h:n:s',now);

Answer 8

还是同意：
    var 
    year,month,day,hour,min,sec:word;
    begin    
    decodedate(date,year,month,day);
    decodetime(time,hour,min,sec);
    showmessage('祝贺你成功！');
    end;

Answer 9

DecodeDate
now
decodetime
三个函数应该OK