Delphi-PRAXiS
Seite 1 von 4  1 23     Letzte »    

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Zeitcode (https://www.delphipraxis.net/197269-zeitcode.html)

Dilom 25. Jul 2018 14:39

Zeitcode
 
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 25. Jul 2018 14:41

AW: Zeitcode
 
Wieso machst bu bei jeder Korrektur einen neuen Thread auf?

Uwe Raabe 25. Jul 2018 14:42

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

mkinzler 25. Jul 2018 14:43

AW: Zeitcode
 
Ich habe die anderen Threads gelöscht.

DieDolly 25. Jul 2018 14:47

AW: Zeitcode
 
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 25. Jul 2018 15:29

AW: Zeitcode
 
Zitat:

Zitat von Dilom (Beitrag 1408665)
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
Delphi-Quellcode:
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 25. Jul 2018 15:32

AW: Zeitcode
 
Zitat:

Zitat von KodeZwerg (Beitrag 1408673)
Millisekunden besteht aus 4 Ziffern

Ähemm, 3?

KodeZwerg 25. Jul 2018 15:34

AW: Zeitcode
 
Zitat:

Zitat von Uwe Raabe (Beitrag 1408674)
Ä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 25. Jul 2018 15:41

AW: Zeitcode
 
Ist mein Vorschlag somit hinfällig?

KodeZwerg 25. Jul 2018 15:45

AW: Zeitcode
 
Zitat:

Zitat von DieDolly (Beitrag 1408678)
Ist mein Vorschlag somit hinfällig?

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


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:58 Uhr.
Seite 1 von 4  1 23     Letzte »    

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz