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 串口常用的字符串转换函数

Delphi xe10 针对全面屏手机端无法全面显示,下方显示黑条的处理

Delphi 获取超gb大文件大小

Delphi case选择语句练习代码简化

Delphi xe5 android应用程序获取电池信息

Delphi xe android-uri-管理联系人uri

Delphi 2009 泛型容器单元(generics.collections)[3]: tstack<t>

字符串提取算法

Delphi 关闭rtti反射机制减少exe文件尺寸

Delphi 获取文件创建时间,修改时间,最后

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    暂无评论...