请问在delphi中如何得到系统时间?

Question

var s:string;
s:=FormatDateTime('yyyy"年"mm"月"dd"日"',Now);

Answer 1

var datatime:Tdatetime;
hour,min,sec,msec:word;
year,month,day:word;
begin
datatime:=now;
decodedate(datatime,year,month,day);//获得系统日期
decodetime(datatime,hour,min,sec,msec);//获的系统时间
end;
windows  api 也可以查一查help

Answer 2

用formatdatetime()最方便，还可以自定义格式，不需得到系统时间后，再转换成自己需要的格式

Answer 3

Declare Sub GetSystemTime Lib "kernel32" Alias "GetSystemTime" (lpSystemTime As SYSTEMTIME) 
说明 
在一个SYSTEMTIME中载入当前系统时间，这个时间采用的是“协同世界时间”（即UTC，也叫做GMT）格式 
参数表 
参数 类型及说明 
lpSystemTime SYSTEMTIME，随同当前时间载入的结构 

Answer 4

可以用now()或time()及date()函数。

Answer 5

获取sqlserver服务器的系统时间：create procedure get_servdate 
as 
 declare @dd varchar(10)
    set @dd = convert(char(10),getdate(),120)
    select serv_date = @ddprocedure TForm1.Button1Click(Sender: TObject);
var
  serv_date:string;
begin
     query1.SQL.Clear;
     query1.SQL.Add('exec get_servdate ');
     query1.Open;
     serv_date:= query1.Fields[0].Value;
end;