怎么插入日期时间(以浮点数的形式)Access
把2012-10-9 12:52:40 插入数据库后
显示成41120.6748734028
[code=Delphi(Pascal)][/code]
procedure TMainForm.Button1Click(Sender: TObject);
var
DT: string;
//DT2: string;
begin
DT := FormatDateTime('yyyy-mm-dd',DTP.Date);
//DT2 := FormatDateTime('hh-mm-ss',DTP2.Time);
with qryScore do
begin
Close;
SQL.Clear;
SQL.Text := 'INSERT INTO Tim (DatTim) VALUES (#'+DT+'#)';
ExecSQL;
end;
end;
[解决办法]
到底是你想显示为浮点数的形式呢?还是不想显示为浮点数的形式?如果是后者,那么,你的“显示”是如何进行?如果是在表格里是那样显示,证明你的字段没设置为日期时间类型。如果是按数值来显示,因日期时间类型的值就是那样的,没什么好奇怪,整数部分是日期,小数部分是时间。
[解决办法]
var
sCreateTime: string;
begin
sCreateTime := FormatDateTime('YYYY-MM-DD HH:MM:SS', now);
with qryScore do
begin
Close;
SQL.Clear;
SQL.Text := 'INSERT INTO Tim (DatTim) VALUES (' + QuotedStr(CreateTime) + ')';
ExecSQL;
end;
end;