Zeitcode

[Dilom]

Hallo,

03:00:00:12 - 01:00:00:12 = 02:00:00:00 Wie kann ich berechnen?

TimeCodeInEdit 01:00:00:00
TimeCodeOutEdit 02:00:00:00
TimeCodeDurationEdit'e Edit2 - Edit1 = 01:00:00:00


S1, S2: TDateTime;
begin
S1 := StrToTime(Edit1.Text);
S2 := StrToTime(Edit2.Text);
Edit3.Text := (TimeToStr(S1 - S2));

[Uwe Raabe]

Wieso machst bu bei jeder Korrektur einen neuen Thread auf?

[Uwe Raabe]

Was soll denn dies bedeuten: 03:00:00:12?

[mkinzler]

Ich habe die anderen Threads gelöscht.

[DieDolly]

Ich würde es so machen. Ist nur eine Idee. Ungetestet.

Die Zeit erst einmal in Sekunden umrechnen (Funktion)

Delphi-Quellcode:

uses System.TimeSpan;

function TimeToMilliSeconds(TimeString: string): Double;
var
 TimeSpan: TTimeSpan;
begin
 TimeSpan := TTimeSpan.Parse(TimeString);
 Result := TimeSpan.TotalMilliseconds;
end;

Dann die Differenz berechnen

Delphi-Quellcode:

DifferenzMilliSekunden := (TimeToMilliSeconds(cIn) - TimeToMilliSeconds(cOut));

Das ist sicherlich auch ganz anders möglich mit TDateTime (StrToDateTime) oder anders.

[KodeZwerg]

Zitat von Dilom:

03:00:00:12 - 01:00:00:12 = 02:00:00:00 Wie kann ich berechnen?

Wahrscheinlich gar nicht da diese Kombination wenig Sinn ergibt, ansonsten würde ich SecondsBetween(TDateTime1,TDateTime2) Vorschlagen, damit hast Du die Differenz in Sekunden, die einfach wieder in Std:Min:Sek hochrechnen. Millisekunden besteht aus 4 Ziffern weswegen ich einfach mal von einem Schreibfehler ausgeh.

[Uwe Raabe]

Zitat von KodeZwerg:

Millisekunden besteht aus 4 Ziffern

Ähemm, 3?

[KodeZwerg]

Zitat von Uwe Raabe:

Ähemm, 3?

0..1000 oder irre ich mich? Wenns 0..999 ist, mein Fehler!

Okay okay, Herr Raabe hat natürlich mal wieder Recht, gerade mal nachgeschaut:

Zitat:

Valid millisecond values are 0 through 999.

[DieDolly]

Ist mein Vorschlag somit hinfällig?

[KodeZwerg]

Zitat von DieDolly:

Ist mein Vorschlag somit hinfällig?

Dein Vorschlag, wenn denn wirklich nach Millisekunden geforscht werden soll kann man per MilliSecondsBetween() berechnen.