Code: Select all

function MMdateToFloatStr(d:Tdatetime):WideString;
var
  s:string;
  diff:Tdatetime;
begin
  try
    diff:=d-datetime0;
    s:=QuotedStr(StringReplace(floatToStr(double(diff)),',','.',[]));
  except
    on e:exception do
    begin
      log.exception('MMdateToFloatStr',e);
      s:=QuotedStr('0.0');
    end;
  end;
  Result:=s;
end;


Code: Select all

  // see what localisation works
  decimalSymbol:='.';
  try
    f:=StrToFloat('123.456');
  except
    decimalSymbol:=',';
  end;
  log.text(2,'Decimal Symbol',decimalSymbol);


Code: Select all

function replaceDecimalSymbol(s:WideString):WideString;
begin
  if decimalSymbol='.' then
    Result:=StringReplace(s,',','.',[])
  else
    Result:=StringReplace(s,'.',',',[]);
end;


Code: Select all

function MMdateToFloatStr(d:Tdatetime):WideString;
var
  s:string;
  diff:Tdatetime;
begin
    diff:=d-datetime0;
    s:=QuotedStr(MMInterf.Localize(floatToStr(double(diff))));
    Result:=s;
end;


Code: Select all

function MMdateToFloatStr(d:Tdatetime):WideString;
var
  s:string;
  diff:Tdatetime;
begin
  try
    diff:=d-datetime0;
    s:=QuotedStr(MMInterf.Localize(floatToStr(double(diff))));
  except
    on e:exception do
    begin
      log.exception('MMdateToFloatStr',e);
      s:=QuotedStr(MMInterf.Localize(dateTimeToStr(datetime0())));
    end;
  end;
  Result:=s;

end;

function MMfloatStrToDate(s:WideString):Tdatetime;
var
  f:double;
  d:Tdatetime;
begin
  try
    f:=StrToFloat(replaceDecimalSymbol(s));
    f:=f+double(datetime0);
    //dim dd : dd = datediff("s",cdate("1899 12 30" ),d )/86400
    d:=Tdatetime(f);
  except
    on e:exception do
    begin
      log.exception('MMfloatStrToDate',e);
      d:=datetime0();
    end;
  end;
  Result:=d;
end;



Code: Select all

SELECT SongTitle, LastTimePlayed FROM Songs ORDER BY LastTimePlayed DESC


Code: Select all

#    SONGTITLE                            LASTTIMEPLAYED
...
11   Stay Awake                           40860,6644444444
12   Deeply Disturbed (Infected Remix)    40853,9678819444
13   Cara catastrofe                      40884.77511235
14   When We Stand Together               40884.769127859
...
95   KARMA CHAMELEON                      40881.0
96   BORN IN THE U.S.A.                   40881.0
97   Never Let Me Down Again              40881.0
98   Raised On Rock                       40881.0
99   T.N.T.                               40881.0
...


markstuartwalker wrote:Only an email point at http://www.ventismedia.com/mantis/view.php?id=8715

This part of the code is probably over 12 months old and I've have no other users reporting this problem so this is a very isolated case. Has it been demonstrated that the problem is repeatable? I've seen a screen shot showing data that I don't understand but nothing more.

I suggest somebody PMs me so we can look at this issue.

markstuartwalker wrote:Did anything happen about this? I heard nothing more.