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;

推荐分享