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);en

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 begin3   if str = ‘‘ then4     result := Null5   else6     result := VarToDateTime(str);7 end;

总结

以上是内存溢出为你收集整理的Delphi字符串转日期，强大到窒息，VarToDateTime解决了困扰很久的小问题全部内容，希望文章能够帮你解决Delphi字符串转日期，强大到窒息，VarToDateTime解决了困扰很久的小问题所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。