Delphi 字元串轉日期，強大到窒息，VarToDateTime 解決了 困擾很久的小問題

procedure THRForm.Button1Click(Sender: TObject);
var
  D:TDateTime;
  s:string;
begin
  D:=VarToDateTime('05-10-14 04:35PM');
  S:=FormatDatetime('YYYY-MM-DD HH:MM:SS',D);
  showmessage(s);
end;      

尤其是在進行資料庫語句操作時，對于字元串的來源不确定因素太多，有了該函數用起來真的很友善。舉例如下：

用VarToDateTime建構一個新的函數SetFieldDate，然後使用該函數為資料庫時間字段指派，隻需

FQuery.Parameters.ParamValues['Brithday'] := SetFieldDate(edit1.Text);      

function SetFieldDate(str: string): Variant;
begin
  if str = '' then
    result := Null
  else
    result := StrToDateTime(FormatDatetime('YYYY-MM-DD', VarToDateTime(str)));
end;      

當然上述函數也可以簡化為：

1 function SetFieldDate(str: string): Variant;
2 begin
3   if str = '' then
4     result := Null
5   else
6     result := VarToDateTime(str);
7 end;