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;
固然上述函数也能够简化为:spa
1 function SetFieldDate(str: string): Variant; 2 begin 3 if str = '' then 4 result := Null 5 else 6 result := VarToDateTime(str); 7 end;