RÜckformatierung von FormatDateTime

[in_da_hood]

Hallo,

ich möchte aus der Eingabe eines Strings, die in der Form 'hh:nn:ss' dargestellt wird, und somit eine Dauer darstellen soll,
den passenden Wert der Zeit dafür herausbekommen.
Der andere Weg, von einer Dauer (zum Beispiel entspricht 1 ja für einen Tag bzw 24Stunden), in dieses Format zu formatieren, habe ich schon herausgefunden:

edit1.Text:=FormatDateTime('hh:nn:ss',Dauer);

So würde die Dauer mit der Zeitangabe 0,5 beispielsweise im Edit1 als 12:00:00 angezeigt werden.

Gibt es eine Funktion zur Rückformatierung?
Oder weiß jemand, wie ich das realisieren kann?

Vielen Dank schonmal im Voraus.

[DeddyH]

Das müsste doch mit StrToTime gehen, wenn ich nicht irre.

[in_da_hood]

Das dachte ich auch.
Allerdings habe ich denn, wenn ich zb 0.5 eingegeben habe, eine Fehlermeldung erhalten, dass dies kein gültiges Zeitformat ist....

[DeddyH]

Ich dachte, Du willst den String wieder in ein TDateTime wandeln. 0.5 musst Du nicht wandeln, da TDateTime intern auch nur ein double ist.

[in_da_hood]

Achso ja klar.
Wie würde das im Quellcode mit welchen Formaten denn aussehen, wenn ich zb a als string('hh:nn:ss') einlese und b als TDateTime ausgeben will?

[DeddyH]

Ich habe das jetzt nicht genau verstanden, was Du meinst, aber hier ein Beispiel aus dem Kopf:

Delphi-Quellcode:

var s: string;
    t: TDateTime;
begin
  s := '19:15:00';
  t := StrToTime(s);
  t := t + 0.5;
  ShowMessage(FormatDateTime('hh:nn:ss',t));
end;

Wenn ich keinen Fehler gemacht habe, müsste "07:15:00" ausgegeben werden.

[edit] s und t verwechselt :oops: [/edit]

[in_da_hood]

Ja Danke^^

Das ist das wonach ich gesucht habe :)

[Union]

Bitte dran denken dass dies von den Regionaleinstellungen auf dem PC abhängig ist. Wenn man auf einem auf "Deutsch" eingestellten PC "12:00 AM" mit StrToTime umwandeln will, gibt es einen EConvertError.