本文整理自网络,侵删。
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 xe10 针对全面屏手机端无法全面显示,下方显示黑条的处理
Delphi xe android-uri-管理联系人uri
Delphi 2009 泛型容器单元(generics.collections)[3]: tstack<t>
更多相关阅读请进入《Delphi》频道 >>