zahl in Uhrzeit darstellen

[Cr3at0r]

Moin,

also meine Frage ist:

Wie kann ich zb. die Zahl 3000 in einer Uhrzeit darstellen, zb. in einem Label.
Die 3000 soll 3000 Sekunden bedeuten.

MfG

[Luckie]

Delphi-Quellcode:

function FormatTime(t: int64): string; { (gettime by Assarbad) }
begin
  result := IntToStr(t mod 1000);
  case t mod 1000 < 100 of
    true: result := {'0' +} result;
  end;
  t := t div 1000; // -> seconds
  {result := IntToStr(t mod 60) + ' Sekunden ' + result;
  case t mod 60 < 10 of
    true: result := '0' + result;
  end;}
  t := t div 60; //minutes
  result := IntToStr(t mod 60) + ' Min ' + result;
  case t mod 60 < 10 of
    true: result := '0' + result;
  end;
  t := t div 60; //hours
  result := IntToStr(t mod 24) + ' Std ' + result;
  case t mod 60 < 10 of
    true: result := '0' + result;
  end;
  result := IntToStr(t div 24) + ' T ' + result;
end;

[Cr3at0r]

Delphi-Quellcode:

function FormatTime(t: int64): string; { (gettime by Assarbad) }
begin
  result := IntToStr(t mod 1000);
  case t mod 1000 < 100 of
    true: result := {'0' +} result;
  end;
  t := t div 1000; // -> seconds
  {result := IntToStr(t mod 60) + ' Sekunden ' + result;
  case t mod 60 < 10 of
    true: result := '0' + result;
  end;}
  t := t div 60; //minutes
  result := IntToStr(t mod 60) + ' Min ' + result;
  case t mod 60 < 10 of
    true: result := '0' + result;
  end;
  t := t div 60; //hours
  result := IntToStr(t mod 24) + ' Std ' + result;
  case t mod 60 < 10 of
    true: result := '0' + result;
  end;
  result := IntToStr(t div 24) + ' T ' + result;
end;

Mögest mir den auch kruz erklären?

[Matze]

@Luckie: Sei doch bitte nicht immer so wortkarg und erläutere doch die wichtigen Dinge. Hier beispielsweise, dass man die Zeit in Millisekunden angeben muss.

Edit: Ging es nicht auch einfach so?

Delphi-Quellcode:

function FormatTime(t: int64): string;
begin
  t := t div 1000; // seconds
  result := IntToStr(t mod 60) + ' Sek ' + result;
  t := t div 60;   // minutes
  result := IntToStr(t mod 60) + ' Min ' + result;
  t := t div 60;   // hours
  result := IntToStr(t mod 24) + ' Std ' + result;
  result := IntToStr(t div 24) + ' T ' + result;
end;

[Cr3at0r]

Wenn ich ganz ehrlich bin steig ich da noch net ganz durch^^

[Matze]

Zitat von Cr3at0r:

Wenn ich ganz ehrlich bin steig ich da noch net ganz durch^^

Was genau verstehst du denn nicht? div und mod sollten kein Problem darstellen.

Aufgerufen wird das ganze zum Beispiel so:

Delphi-Quellcode:

ShowMessage(FormatTime(3000000));

// 3000000 = 3000 * 1000
//    ms       s

Da der Parameter die Anzahl der Millisekunden erwartet, müsstest du die Sekunden erst umrechnen (mit 1000 multiplizieren), natürlich kannst du auch zu Beginn der Funktion folgendes aufrufen:

t := t * 1000; dann kannst du direkt die Anzahl der Sekunden übergeben.

[marabu]

Hi,

so geht es auch:

Delphi-Quellcode:

uses
  DateUtils;  // const SecsPerDay = 86400;

function SecondsToStr(nSeconds: Cardinal): String;
begin
  Result := DateTimeToStr2(nSeconds / SecsPerDay);
end;

Grüße vom marabu

PS: DateTimeToStr2

[Cr3at0r]

Zitat von marabu:

Hi,

so geht es auch:

Delphi-Quellcode:

uses
  DateUtils;  // const SecsPerDay = 86400;

function SecondsToStr(nSeconds: Cardinal): String;
begin
  Result := DateTimeToStr2(nSeconds / SecsPerDay);
end;

Grüße vom marabu

PS: DateTimeToStr2

und nSeconds wären bei mir dann 3000?
Und Cardinal ist ein Typ gell?

[marabu]

Das hast du genau richtig erkannt.

marabu

[Jelly]

Also Luckie, von deiner langen Funktion bin ich jetzt etwas überrascht... Ich würd das in einen 2-Zeiler packen

Delphi-Quellcode:

function SecToStr (t : int64) : string ;
var
 DT : TDateTime ;
begin
   DT := t / 60 / 60 / 24 ;
   Result := format ('%s Tage, %s',[Trunc(TD),formatdatetime ('h Stunden, n Minuten und s Sekunden',DT)]) ;
end ;