怎么插入日期时间（以浮点数的形式）Access

Question

把2012-10-9 12:52:40 插入数据库后显示成41120.6748734028
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;

Answer 1

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;

Answer 2

我猜楼主的意思是要在access里表现的是浮点的形式，呵呵，那就搞个浮点型的数据呗