Delphi -> JSON -> EXCEL für TDateTime

[Uwe Raabe]

Ich vermute mal, myJSON.Data ist auch ein TTimeSpan?

Da TTimeSpan ein record ist, wird es von Delphi als JSON in ein Array seiner Feldwerte dargestellt. Das einzige Feld ist FTicks und das ist halt was man sieht.

Günther hatte aber empfohlen, die Zeitspanne als Float zu deklarieren und dort die Sekunden zu speichern:

Delphi-Quellcode:

type 
  TMYJSON = class
    ....
    Data: Double; // Zeitspanne in Sekunden
    ....
  end;

var 
  tick, tock: TDateTime;

begin

  myJSON.Data:= TTimespan.Subtract.( tock, tick ).TotalSeconds;

end;