Einzelnen Beitrag anzeigen

Bünni

Registriert seit: 4. Mär 2019
67 Beiträge
 
#1

TDate und TTime zu TDateTime wandeln

  Alt 14. Apr 2019, 10:02
Vielleicht zuviel Kaffee getrunken oder zu wenig geschlafen. Oder es fehlt an Erfahrung mit dem Umgang mit Datumswerten?
Zur Auswahl stehen ein Datum TDate und eine Uhrzeit TTime. Wie erzeugt man aus dieser Kombination einen neuen TDateTime, egal welcher Datums- und Uhrzeitformatierung ein System eingstellt hat?

Als Notlösung mache ich das so
Delphi-Quellcode:
 FS := FormatSettingsCreateEx(',', '.', ':', '/'); // meine eigene Funktion, damit es kürzer wird

 DT := StrToDateTime( FormatDateTime('dd/mm/yyyy', Date, FS) + ' ' + TimeToStr(Time, FS), FS) );

Geändert von Bünni (14. Apr 2019 um 10:13 Uhr)
  Mit Zitat antworten Zitat