Hi, I need to convert strings with format "d-mmm-y" to TDateTime.

For example: '12-Sep-14'

Here's my code:

DefaultFormatSettings.DateSeparator:='-';
DefaultFormatSettings.ShortDateFormat:='D-MMM-Y';
DefaultFormatSettings.ShortMonthNames[1] := 'Jan';
DefaultFormatSettings.ShortMonthNames[2] := 'Feb';
DefaultFormatSettings.ShortMonthNames[3] := 'Mar';
DefaultFormatSettings.ShortMonthNames[4] := 'Apr';
DefaultFormatSettings.ShortMonthNames[5] := 'May';
DefaultFormatSettings.ShortMonthNames[6] := 'Jun';
DefaultFormatSettings.ShortMonthNames[7] := 'Jul';
DefaultFormatSettings.ShortMonthNames[8] := 'Aug';
DefaultFormatSettings.ShortMonthNames[9] := 'Sep';
DefaultFormatSettings.ShortMonthNames[10] := 'Oct';
DefaultFormatSettings.ShortMonthNames[11] := 'Nov';
DefaultFormatSettings.ShortMonthNames[12] := 'Dec';
lStr := DateToStr(now); // This works Ok.
lDate := StrToDate(lStr); // Here I get EConvert exception.

Am I missing something?.

Have you tried ScanDateTime()? Then you don't need to fiddle with the format settings.

Henry

Henry Vermaak wrote

On Fri, Sep 12, 2014 at 08:18:36AM -0300, "Leonardo M. Ram?" wrote: > Hi, I need to convert strings with format "d-mmm-y" to TDateTime. > > For example: '12-Sep-14'

This will accomplish the task.

function DatestrToDateTime(const aDate: string): TDateTime;
const
   sep = '-';
var
   el, p, im, id, iy: integer;
   d, m, y: word;
   dt: string;
   function FindMatch(const aMon: string): integer;
   var
     i: integer;
   begin
     DebugLn(['aMon=',aMon]);
     Result:=-1;
     for i:=Low(TMonthNameArray) to High(TMonthNameArray) do
      if SameText(aMon, DefaultFormatSettings.ShortMonthNames[i]) then begin
        Result:=i;
        Break;
      end;
   end;
begin
   dt:=Trim(aDate);
   el:=Length(dt);
   if (el < 7) or (el > 11) then
     Exit(0.0);
   p:=Pos(sep, aDate);
   if (p=0) or (not TryStrToInt(Copy(dt, 1, p-1), id)) then
     Exit(0.0);
   Delete(dt, 1, p);
   p:=Pos(sep, dt);
   if (p=0) then
     Exit(0.0);
   im:=FindMatch(Copy(dt, 1, p-1));
   if (im < 1) then
     Exit(0.0)
   else m:=im;
   Delete(dt, 1, p);
   if not TryStrToInt(dt, iy) then
     Exit(0.0);
   d:=id;
   if (iy < 2000) then
     Inc(iy, 2000);
   y:=iy;
   if not TryEncodeDate(y, m, d, Result) then
     Result:=0.0;
end;