当用strtodatetime函数时,如果操作系统 格式是 yyyy/mm/dd
你的日期为 yyyy-mm-dd, 转换就会报错
解决方法 delphi6,7
function GetTrueDateTime(stime: string): string ;
begin
Result := StringReplace(stime,'-',DateSeparator,[rfReplaceAll]) ;
end;
xe
function GetTrueDateTime(stime: string): string ;
var
FormatSettings: TFormatSettings;
begin
GetLocaleFormatSettings(GetUserDefaultLCID,FormatSettings);
Result := StringReplace(stime,'-',FormatSettings.DateSeparator,[rfReplaceAll]) ;
end;