When I try to insert DATETIME value with query like this:
Code: Select all
INSERT INTO dummy VALUES ("2013-10-07T04:23:19+00:00");
Michal
Code: Select all
INSERT INTO dummy VALUES ("2013-10-07T04:23:19+00:00");
Code: Select all
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
FmtSet: TFormatSettings;
d: TDateTime;
begin
try
FmtSet.DateSeparator := '-';
FmtSet.TimeSeparator := ':';
FmtSet.ShortDateFormat := 'yyyy-mm-dd';
FmtSet.ShortTimeFormat := 'hh:nn:ss';
d := StrToDateTimeDef('2016-12-30T02:39:54+00:00', 0, FmtSet);
Writeln(DateTimeToStr(d));
Readln;
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.