Thema: Zeitcode

Einzelnen Beitrag anzeigen

Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.685 Beiträge
 
Delphi 11 Alexandria
 
#17

AW: Zeitcode

  Alt 25. Jul 2018, 16:26
Mein Vorschlag an TE:
Ändere die Edit.Texte in dieses Format 00:00:00.000, danach sowas hier
Delphi-Quellcode:
function BerechneEditFelder ( S1, S2: String ): Int64;
var
  t1, t2: TDateTime;
begin
  try
    t1 := StrToTime( S1 );
    t2 := StrToTime( S2 );
  finally
    Result := MilliSecondsBetween ( t1, t2 );
  end;
end;
Das ergibt erstmal die Differenz in MilliSekunden. Sorry, nur QnD hier im Editor geschrieben = ungetestet.

Wie werden "Frames" bei Dir definiert?

edit
so hier Aufrufen falls das unklar ist: Int64Dummy := BerechneEditFelder(Edit1.Text, Edit2.Text)

edit2
oder, um im TDateTime zu bleiben so hier
Delphi-Quellcode:
function BerechneEditFelder ( S1, S2: String ): TDateTime;
var
  t1, t2: TDateTime;
begin
  try
    t1 := StrToTime( S1 );
    t2 := StrToTime( S2 );
  finally
    Result := MilliSecondsBetween(t1, t2) / (1000.0 * 86400);
  end;
end;
Nun solltest Du die Differenz als TDateTime bequem abrufen können.
Gruß vom KodeZwerg

Geändert von KodeZwerg (25. Jul 2018 um 16:58 Uhr)
  Mit Zitat antworten Zitat