Comment analyser pour tDateTime un temps de date de retour d'une chaîne JSON dans Delphi XE 10

Question

Je reçois le JSON suivant d'une demande:

{ 
    "cdPlayer": 3, 
    "nmPlayer": "Player Name", 
    "dtCreate": "2016-08-24T22:53:31.687", 
    "dtChange": null, 
    "idStatus": true 
} 

Je voudrais charger de convertir dtCreate et dtChange à TDateTime. Comment faire correctement cela? Il n'y a pas de TJSONDateTime pour lancer le GetValue. Ci-dessous est mon code actuel où je le lance à une chaîne simple. J'utilise Delphi XE 10 Seatle. Merci

EDIT

En ce qui concerne le double va, je n'avais pas ideia que ce format de données a été ISO 8601. C'est la raison pour laquelle je ne pouvais pas trouver la réponse partout à travers Google. Peut-être que ma question aidera d'autres personnes qui, comme moi, ne le savaient pas aussi bien.

Answer 1

Je voudrais extraire chaque partie de la date (année, mois, jour, heures, minutes, millisecondes) de cette chaîne, et coder une valeur date/heure. C'est facile parce que chaque pièce est toujours au même endroit.

function JSONDate_To_Datetime(JSONDate: string): TDatetime; 
var Year, Month, Day, Hour, Minute, Second, Millisecond: Word; 
begin 
    Year  := StrToInt(Copy(JSONDate, 1, 4)); 
    Month  := StrToInt(Copy(JSONDate, 6, 2)); 
    Day   := StrToInt(Copy(JSONDate, 9, 2)); 
    Hour  := StrToInt(Copy(JSONDate, 12, 2)); 
    Minute  := StrToInt(Copy(JSONDate, 15, 2)); 
    Second  := StrToInt(Copy(JSONDate, 18, 2)); 
    Millisecond := Round(StrToFloat(Copy(JSONDate, 19, 4))); 

    Result := EncodeDateTime(Year, Month, Day, Hour, Minute, Second, Millisecond); 
end;