[Lazarus] StrToDate and DefaultFormatSettings

2014-09-12 Thread Leonardo M. Ramé 

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?.


--
Leonardo M. Ramé
http://leonardorame.blogspot.com

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

Re: [Lazarus] StrToDate and DefaultFormatSettings

2014-09-12 Thread Henry Vermaak 
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'
 
 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

--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

Re: [Lazarus] StrToDate and DefaultFormatSettings

2014-09-12 Thread Howard Page-Clark 

On 12/09/2014 13:04, 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;


--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus