StrToDateTime mit Miliseconds?

**taveuni**

Hallo zusammen,
Vielleicht ist es einfach zu heiss. Aber ich stecke hier fest. Über eine Schnittstelle erhalte ich ein XML in welchem unter anderem ein DATE und ein TIME Node enthalten ist. Date: 'yyyy-mm-dd' Time: 'hh-nn-ss-zzz'. Nun war ich so naiv und habe gemacht:

markieren

Delphi-Quellcode:

			function TServiceModule.GetTimeStamp(aTimeStamp: String): TDateTime;

begin

  var ts:= TFormatSettings.Create;

  ts.DateSeparator:= '-';

  ts.TimeSeparator:= '-';

  ts.ShortDateFormat := 'yyyy-mm-dd';

  ts.ShortTimeFormat := 'hh-nn-ss-zzz';

  Result:= StrToDateTime(aTimeStamp, ts);

end;

Dann zum Test:

markieren

Delphi-Quellcode:

			procedure TMainForm.Button1Click(Sender: TObject);

begin

  var tm:= ServiceModule.GetTimeStamp('2024-07-30 16-31-56-563');

  ShowMessageFmt('%s',[FormatDateTime('yyyy-mm-dd hh-nn-ss-zzz',tm)]);

end;

Die Message ist dann leider: 2024-07-30 16-31-56-000

Wie bringe ich die Milisekunden vom String in den Timestamp. Klar könnte ich den Time Value zerlegen und dann mit IncMiliseconds den DateTime erhöhen. Aber geht das einfacher?

StrToDateTime mit Miliseconds?

StrToDateTime mit Miliseconds?

Forumregeln