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;

[Redeemer]

No Google Translate on this website please. Programming with an English-based programming language doesn't make any sense if you don't speak English.

[DieDolly]

Zitat von Dilom:

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;

Die Millisekunden zu löschen, um keine Fehler mehr zu bekommen, sollte nicht die Lösung sein.

[KodeZwerg]

FormatSettings hat gefehlt, so klappt es, ich habe es getestet mit Delphi 2009.

Delphi-Quellcode:

function GetMillisecondSpan(S1, S2: String): Int64;
var
  t1, t2: TDateTime;
  FS: TFormatSettings;
begin
  GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, FS);
  FS.DecimalSeparator := '.';
  FS.TimeSeparator := ':';
  FS.LongTimeFormat := 'hh:nn:ss.zzz';
  try
    t1 := StrToTime(S1, FS);
    t2 := StrToTime(S2, FS);
  finally
    Result := MilliSecondsBetween(t1, t2);
  end;
end;

procedure TForm1.DurationClick(Sender: TObject);
begin
  Duration.Text := IntToStr(GetMillisecondSpan('01:23:45.678', '01:23:45.901'));
end;

In diesem Beispiel ist Duration.Text = 223

Delphi-Quellcode:

function GetDateTimeSpan ( S1, S2: String ): TDateTime;
var
  t1, t2: TDateTime;
  FS: TFormatSettings;
begin
  GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, FS);
  FS.DecimalSeparator := '.';
  FS.TimeSeparator := ':';
  FS.LongTimeFormat := 'hh:nn:ss.zzz';
  try
    t1 := StrToTime(S1, FS);
    t2 := StrToTime(S2, FS);
  finally
    Result := MilliSecondsBetween(t1, t2) / (1000.0 * 86400);
  end;
end;

procedure TForm1.DurationClick(Sender: TObject);
var
  FS: TFormatSettings;
begin
  GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, FS);
  FS.DecimalSeparator := '.';
  FS.TimeSeparator := ':';
  FS.LongTimeFormat := 'hh:nn:ss.zzz';
  Duration.Text := TimeToStr(GetDateTimeSpan('01:23:45.678','01:23:45.901'), FS);
end;

In diesem Beispiel ist Duration.Text = 00:00:00.223

Ich hoffe nun ist dieser Thread zufriedenstellend erledigt.

[Dilom]

Zitat von KodeZwerg:

FormatSettings hat gefehlt, so klappt es, ich habe es getestet mit Delphi 2009.

Delphi-Quellcode:

function GetMillisecondSpan(S1, S2: String): Int64;
var
  t1, t2: TDateTime;
  FS: TFormatSettings;
begin
  GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, FS);
  FS.DecimalSeparator := '.';
  FS.TimeSeparator := ':';
  FS.LongTimeFormat := 'hh:nn:ss.zzz';
  try
    t1 := StrToTime(S1, FS);
    t2 := StrToTime(S2, FS);
  finally
    Result := MilliSecondsBetween(t1, t2);
  end;
end;

procedure TForm1.DurationClick(Sender: TObject);
begin
  Duration.Text := IntToStr(GetMillisecondSpan('01:23:45.678', '01:23:45.901'));
end;

In diesem Beispiel ist Duration.Text = 223

Delphi-Quellcode:

function GetDateTimeSpan ( S1, S2: String ): TDateTime;
var
  t1, t2: TDateTime;
  FS: TFormatSettings;
begin
  GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, FS);
  FS.DecimalSeparator := '.';
  FS.TimeSeparator := ':';
  FS.LongTimeFormat := 'hh:nn:ss.zzz';
  try
    t1 := StrToTime(S1, FS);
    t2 := StrToTime(S2, FS);
  finally
    Result := MilliSecondsBetween(t1, t2) / (1000.0 * 86400);
  end;
end;

procedure TForm1.DurationClick(Sender: TObject);
var
  FS: TFormatSettings;
begin
  GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, FS);
  FS.DecimalSeparator := '.';
  FS.TimeSeparator := ':';
  FS.LongTimeFormat := 'hh:nn:ss.zzz';
  Duration.Text := TimeToStr(GetDateTimeSpan('01:23:45.678','01:23:45.901'), FS);
end;

In diesem Beispiel ist Duration.Text = 00:00:00.223

Ich hoffe nun ist dieser Thread zufriedenstellend erledigt.

Danke. : Başparmak:

[KodeZwerg]

Zitat von Dilom:

Danke. : Başparmak:

Bitte.

[Uwe Raabe]

Jetzt möchte ich aber doch schon noch wissen, wie lang so ein Frame denn nun ist bzw. wie viele es davon in einer Sekunde gibt.

[p80286]

75 Frames sollten 1 sec sein wenn ich mich recht erinnere.

Başparmak =


Gruß
K-H

[Uwe Raabe]

Zitat von p80286:

75 Frames sollten 1 sec sein wenn ich mich recht erinnere

Dann kann man aber den Frame-Wert nicht einfach als Millisekunden interpretieren, weder mit führender noch mit angehängter 0. Zumindest wird das hier suggeriert:

Zitat:

Ändere die Edit.Texte in dieses Format 00:00:00.000,

Ausgehend vom ersten Post, was soll denn bei 00:00:01:11 - 00:00:00:12 herauskommen? Nach meinem Verständnis müsste das 00:00:00:74 sein.

Je nach Interpretation der Frames als Milli- oder Zentisekunden kommt da aber 00:00:00.999 oder 00:00:00.990 raus. Nur wenn man die Frames vorher in 1/75 Sekunden umrechnet passt das Ergebnis - bis auf die dabei entstehenden Rundungsfehler.

[himitsu]

Zitat von Dilom:

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

Ja, nur ist der Fehler, dass jemand vergisst den Fehler zu nennen.

Strg+C in Dialogen und Strg+V hier im Texteditor helfen, wenn man nocht abschreiben oder auf den Monitor schießen möchte.


Und ansonsten hatte ich schon alles gesagt, was die "Frames" oder sonstwas betrifft, welches keine Millisekunden sind, sowie zum Format der Datums-String.