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 访问https图片

Delphi截获和干扰窗体最小化�p最大化和关闭消息

Delphi响应wmi事件（响应网线断开）

Delphi 将word嵌入Delphi中

Delphi adoquery 开启本地缓存

Delphi webbrowser载入自定义html内容并显示

Delphi中txmldocument控件的用法

Delphi中调用必应搜索(bing)的api函数

Delphi form的borderstyle属性

Delphi 以bytes为单位获取文件大小

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

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