获取时间问题

Question

datetostr(date)或datetostr(Time)
OK

Answer 1

SQL中用 GetDate()
Delphi中用 Now

Answer 2

上面的两个帖子说的不全对，如果该字段设计为DateTime，则不能使用这样的方法，会弹出错误消息框的，我觉得正确的做法应该是这样：
//如果该字段设计为DateTime
Str2:= '#' + '当前时间' + '#';
str1 := 'insert into work_list values(''' + txtCode1.Text + ''',''' + txtCode2.Text + ''',''' + txtTotal.Text + ''',''' + Str2 + ''')';
//如果该字段设计为String则使用Now或datetostr(date)或datetostr(Time)其实最好的方法应该是这样(以Query为例)：
with Query1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Insert into Work_List(f1, f2, f3, f4) Values(:f1, :f2, :f3, :f4)');
    Query1.Params.Items[0].AsString:= txtCode1.Text;
    Query1.Params.Items[1].AsString:= txtCode2.Text;
    Query1.Params.Items[2].AsString:= txtTotal.Text;
    Query1.Params.Items[3].AsDateTime:= Now;
    Query1.ExecSQL;
  end;

Answer 3

datetostr(sysutils.Date)即为当前时间值