Question

Who can to advice in my problem.
I set date format as ‘JUL/12 – 12 15:35’, but when using StrToDateTime then give EConvertError.

What can I do with this format which contains 2 – date separator ?

---

Use next code

    function LocaleFormatStrToDateTime(const S: string): TDateTime;
        var
          LFormatSettings: TFormatSettings;
        begin
          LFormatSettings := GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT);
          LFormatSettings.ShortTimeFormat := FormatSettings.ShortTimeFormat;
          LFormatSettings.TimeSeparator := FormatSettings.TimeSeparator;
          Result := StrToDateTime(S, LFormatSettings);
        end;


----------

**

the best solution is use jvDateUtil.StrToDate*

**

Answer 1

Probably the string you’re trying to convert is not compatible with the default system format. Taking a look at the method signature and description reveals that you can override it to suit your needs, see an example here.

It would be helpful if you posted a piece of the code you have so far, maybe you overlooked something.

---

EDIT

I’ve missed the fact that your’re using a complex format, including multiple separators for the date, which I’m not sure that are supported in delphi.

I guess that in this case you could split your string into pieces and then encode them into a TDateTime. To convert your month name to a month number you can iterate through the LFormatSettings.ShortMonthNames array, something like:

  String longMonth:= copy(S, 0, 3);
  for i := Low(LFormatSettings.ShortMonthNames) to High(LFormatSettings.ShortMonthNames) do
      if SameText(longMonth, LFormatSettings.ShortMonthNames[i]) then begin
          shortMonth:=FormatFloat('00', i);
          Break;
      end;