delphi 日期字符串转换日期格式

本文整理自网络，侵删。

 
 function MyStrToDateTime(vStr: string): TDateTime;
  var
    S: string;
    v: Variant;
  begin
    Result := now;
    S := S := StringReplace(vStr, '.', '-', [rfReplaceAll]);
    S := StringReplace(S, '/', '-', [rfReplaceAll]);
    S := StringReplace(S, '\', '-', [rfReplaceAll]);
    S := StringReplace(S, ' ', '-', [rfReplaceAll]);
    S := StringReplace(S, '．', '-', [rfReplaceAll]);
    S := StringReplace(S, '／', '-', [rfReplaceAll]);
    S := StringReplace(S, '＼', '-', [rfReplaceAll]);
    v := S;
    try
      Result := VarToDateTime(v);
    except
    end;
  end;
 

相关阅读 >>

关于Delphi xe5 firemonkey 手机屏幕自适应程序问题

Delphi 的链式代码

Delphi xe5电脑录像功能

Delphi sqlite防止插入重复数据的方法

Delphi windows 编程[18] - 更换菜单项: modifymenu

Delphi取cpu利用率

Delphi编程获取系统当前进程、窗口句柄、文件属性

Delphi tstreamreader 和tstreamwriter

Delphi 如何判断当前网卡是物理网卡

Delphi 判断文件扩展名函数

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 日期字符串转换日期格式