Hallo leute,

Habe leider wieder mal ein kleines Problem.
Es geht darum, sekunden in Zeit umzuwandeln.
Ich habe schon jeden Code versucht, den ich hier finden konnte, aber keiner funktioniert so wie ich es möchte.
Zurzeit benutze ich diesen Code:

markieren

Delphi-Quellcode:

function SecondsToTime(wSeconds: Word): TDateTime;
begin
  result := wSeconds / (24 * 60 * 60);
end;

dieser code wandelt aber leider irgendwie nur bis zu 23:00:00 um,
und ich brauche aber Tage:Stunden:Minuten:Sekunden.

Wie kann ich das jetzt machen?

vielen dank schon mal

mfg headi

Sollte so gehen:

zusammenfalten · markieren

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;

Oder so:

markieren

Delphi-Quellcode:

// uses DateUtils;

function SecondsToTime(seconds: Cardinal): TDateTime;
begin
  Result := seconds / SecsPerDay;
end;

Grüße vom marabu

Danke erst mal, geht aber irgendwie nicht:

erste funktion:

eingabe= 3600 sekunden (1Stunde)
ausgabe= 0 T 00 Std 00 Min 03 Sekunden 600 //falsch

code:
Edit2.Text:=FormatTime(StrToInt64(Edit1.Text));
zweite funktion:

eingabe= 86399 sekunden (23:59:59)
ausgabe= 23:59:59 // korrekt

eingabe= 86399 sekunden (01 Tag 00:00:01)
ausgabe= 31.12.1899 00:00:01 // falsch

code:
Edit2.Text:=DateTimeToStr(SecondsToTime(StrToInt(Edit1.Text))); vielen dank schon mal für eure hilfe

mfg headi

Zitat von Headi:

Danke erst mal, geht aber irgendwie nicht:

erste funktion:

eingabe= 3600 sekunden (1Stunde)
ausgabe= 0 T 00 Std 00 Min 03 Sekunden 600 //falsch

Mein Funktion erwartet Millisekunden als Eingabe!

Zitat von Luckie:

Zitat von Headi:

Danke erst mal, geht aber irgendwie nicht:

erste funktion:

eingabe= 3600 sekunden (1Stunde)
ausgabe= 0 T 00 Std 00 Min 03 Sekunden 600 //falsch

Mein Funktion erwartet Millisekunden als Eingabe!

vielen dank!!

Funktioniert jetzt perfekt... man das ich da nicht selbst draufgekommen bin...


greez headi

Hallo Pascal,

wer hat dir gesagt, dass du eine Zeitmenge einfach in ein Datum umwandeln kannst?
DateTimeToStr() ist einfach fehl am Platz:

zusammenfalten · markieren

Delphi-Quellcode:

function LongTimeToStr(seconds: Cardinal): string;
var
  dt: TDateTime;
  days: Integer;
begin
  dt := seconds / SecsPerDay;
  Result := TimeToStr(dt);
  days := Trunc(dt);
  case days of
    0: Result := TimeToStr(dt);
    1: Result := IntToStr(days) + ' Tag ' + TimeToStr(dt);
    else Result := IntToStr(days) + ' Tage ' + TimeToStr(dt);
  end;
end;

Freundliche Grüße vom marabu

Zitat von marabu:

Hallo Pascal,

wer hat dir gesagt, dass du eine Zeitmenge einfach in ein Datum umwandeln kannst?
DateTimeToStr() ist einfach fehl am Platz:

zusammenfalten · markieren

Delphi-Quellcode:

function LongTimeToStr(seconds: Cardinal): string;
var
  dt: TDateTime;
  days: Integer;
begin
  dt := seconds / SecsPerDay;
  Result := TimeToStr(dt);
  days := Trunc(dt);
  case days of
    0: Result := TimeToStr(dt);
    1: Result := IntToStr(days) + ' Tag ' + TimeToStr(dt);
    else Result := IntToStr(days) + ' Tage ' + TimeToStr(dt);
  end;
end;

Freundliche Grüße vom marabu

lol... ok das habe ich jetzt nicht gewusst
habe gedacht wenn es diese funktion schon gibt stimmt die auch.. war wohl einfach nicht so.

vielen dank... funktioniert jetzt auch

mfg pascal