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 stringgrid常用属性和常用操作

Delphi窗体固定在桌面上

Delphi从内存流中判断图片格式

Delphi idftp 错误：socket error 10054 �c connection reset by peer -连接被重置

Delphi获取网卡mac地址多个方法

Delphi getmimetype 查询文件mime类型函数

Delphi sysutils.isdelimiter - 判断字符串的某个位置是不是指定的字符串

两种方法用Delphi实现域名转ip地址---用nmhttp控件和winsock

Delphi 读取文件的md5值

Delphi 通得进程id获取主窗口句柄

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

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