Delphi 字符串转日期,强大到窒息,VarToDateTime 解决了 困扰很久的小问题
2018-08-14 16:24
507 查看
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;
相关文章推荐
- ASP.NET解决Sqlite日期类型问题:该字符串未被识别为有效的 DateTime
- 《将一个字符串转换成datetime时,先分析该字符串以获取日期,然后再将每个变量放置到datetime对象中》的解决办法
- 今天解决了一直困扰我很久的两个问题
- 解决asp.net core 日期格式 datetime Json返回 带T的问题
- MSN 问题解决(其中一个问题困扰了很久)
- 对于字符串向smalldatetime转换失败问题的解决
- 困扰很久问题---备份失败解决
- Oracle解决单表字符串日期自动更新问题
- 解决delphi 在sqlite插入日期变成1899-12-30日问题。
- Sqlite日期类型问题:该字符串未被识别为有效的 DateTime(String not recognized as a valid datetime)
- C# dateTimePiacker 与ACCESS中日期/时间 的列比较的问题 已解决
- 困扰我很久的字符串和指针的问题
- java解决“字符串”和“带格式日期数字”之间的匹配问题
- jsp在mysql下实现中文的输入(困扰了很久的问题,终于解决了)
- 一个困扰很久的问题得到解决,ubuntu下面怎样让nautilus忘记曾经记住的密码
- 大数据 IMF 传奇 困扰很久的问题解决!ecliplse 远程提交程序到虚拟机 hadoop集群 ,ecliplse 没有显示输出 的问题解决!
- 关于系统报“无法将字符串转换成日期”的问题解决
- js向jsp传值,困扰很久的问题(求解决)
- [笔记]读取含日期格式的记录SQLite报错"该字符串未被识别为有效的 DateTime"的问题
- 关于Bootstrap日期控件datetimepicker被模态框等遮罩在底部的问题及解决办法。