一句代码的问题：如何获得系统时间。随时结贴

[sharewarer]

如题

[liushiboy]

.....
var
DateTime:TDateTime;
begin
DateTime:=Time();
.....

[sharewarer]

可这句代码为何是错的？

gdbQuery1.SqlText := 'insert into record (name,date,score,time) values ('+
QuotedStr(fname)+','+DateTime+','+QuotedStr(inttostr(Fsumscore))+','+ QuotedStr(inttostr(Fsumtime))+')';

[nature]

本地系统时间用now函数:time1:=now
服务器系统时间用 select date()

[xianxiangzi]

var
CurrTime: TSystemTime;
Sec: Word;
begin
Application.Initialize; {程序初始化}

GetSystemTime(CurrTime); { 延时三秒 }
Sec := CurrTime.wSecond + 3;
while Sec>CurrTime.wSecond do
GetSystemTime(CurrTime);

[hooo]

now
date

[ly_liuyang]

本地时间用now,结果是Double的浮点数