Zeitcode

[Dilom]

Zitat von KodeZwerg:

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.

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;

es gibt einen Fehler : Hata:: Hata:: Hata:: |

Delphi-Quellcode:

procedure TForm1.DurationClick(Sender: TObject);
begin
  Duration.Text := TimeToStr(BerechneEditFelder('01:00:00:00', '01:00:00:00'));
end;

in Ordnung : Başparmak:

Delphi-Quellcode:

procedure TForm1.PGDurationClick(Sender: TObject);
begin
  Duration.Text := TimeToStr(BerechneEditFelder('01:00:00', '01:00:00'));
end;