怎样将用户输入的年月日（字符串）转化成日期类型进行sql查询

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  ADateAndTime: TDateTime;
begin
  ADateAndTime := StrToDateTime(Edit1.Text);
end;

Answer 1

用户输入 DT1:='0-10-12'
用DT2:=Formatdatetime('mm"/"dd"/"yy',StrToDate(DT))
转换为'0/12/00'
SQL查询中 '...='+#39+DT2+#39+'...'

Answer 2

TO zxtyhy：
最后一句什么意思？
我想将当前时间插入数据库，怎样写？
insert into mytable(name,tel,currenttime)
values('zxtyhy','000000',********);
上面的********改写什么？