TOP

Delphi 字符串转日期,强大到窒息,VarToDateTime 解决了 困扰很久的小问题
2019-08-23 00:31:33 】 浏览:46
Tags: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;

 


Delphi 字符串转日期,强大到窒息,VarToDateTime 解决了 困扰很久的小问题 https://www.cppentry.com/bencandy.php?fid=86&id=229760

】【打印繁体】【投稿】【收藏】 【推荐】【举报】【评论】 【关闭】 【返回顶部
上一篇ClientDataSet应用 下一篇PHP:CURL分别以GET、POST方式请..

kafka-
kafka   Partit
解决android studio
Kafka史上最详细原理
Error while fetchin
【Kafka】安装与快速
    &
flume读取日志数据写
Authentication plug
Flume 自定义source
flume   三大核
ICC副本>>>
愚公移山  
Hbase架构   Hb
5 hbase-shell + &
Hbase   MapRed
MetaException(messa
Exception in thread
HIVE metastore Dupl
-->