[Codevorstellung ?] SecondsToTime - Multilanguage

[dGeek]

Zitat von Jumpy:

Zitat von dGeek:

Die Funktion wandelt z.B. 123 in "1 Minute und 3 Sekunden" um.

Das ist aber dann keine gute Werbung für dein Programm

Wieso Werbung für mein Programm? Ich mache doch keine Werbung für irgendetwas.
Ja doch, ich mache Werbung für meinen Code-Schnippsel. Aber ein abgeschlossened Programm ist es in dem Sinne ja nicht - sondern nur ein Schnipsel
Ich dachte mir nur, ich bin mal so nett und teile etwas mit euch.

Zitat:

Er meint sicher "zwei Minuten".

Das meine ich selbstverständlich.

Zitat:

Ich kann es bspw. noch nicht einmal kompilieren - An Stelle 8 von einem statischen Array von Null bis sieben zu schreiben wird beispielsweise schwierig...

Auch ein Tippfehler. Man darf doch nicht immer alles auf die Goldwaage legen.

[Daniel]

Fein.

Zitat von dGeek:

Auch ein Tippfehler. Man darf doch nicht immer alles auf die Goldwaage legen.

Doch. Wenn ein Fehler schon bemerkt wird, dann darf er auch korrigiert werden.

[dGeek]

Zitat:

Doch. Wenn ein Fehler schon bemerkt wird, dann darf er auch korrigiert werden.

Zitat:

Ich kann es bspw. noch nicht einmal kompilieren - An Stelle 8 von einem statischen Array von Null bis sieben zu schreiben wird beispielsweise schwierig...

Da wurde aber nichts korrigiert sondern nur genörgelt.

Manchmal frage ich mich, warum ich mich hier eigentlich noch rumtreibe.
Ich kann mich noch daran erinnern, als ich mir hier meinen ersten Account gemacht habe (vor knapp 10 Jahren). Die Negativität in diesem Forum war noch nie so enorm wie sie aktuell ist.
Denn egal was man macht, man wird dafür immer in irgendeiner Art und Weise nieder gemacht.

[Jasocul]

Wer wurde denn hier nieder gemacht?

Wie soll man denn auf einen Fehler hinweisen, damit es einfach nur als freundlicher Hinweis verstanden wird und nicht als Niedermachen?

Bei dem anderen Hinweis war sogar ein Smilie dabei.

Sorry, aber ich glaube du interpretierst da zu viel hinein.

[Luckie]

Wo wurde hier genörgelt? Es wurde nur auf humoristische Art auf ein Tippfehler deinerseits hingewiesen.

if ((wSeconds < 300) and (aSeconds > 0)) or bShowFullTime then // <== siehe Info unten Warum nimmst du keine aussagekräftige Konstante? Dann sparst du dir den Kommentar und der Code wird lesbarer bzw. es wird sofort klar warum da auf kleiner 300 geprüft wird.

[Jumpy]

Danke Jasocul. Wie du erkannt hast, wollte ich nur auf humorige Weise auf einen Tipp-/Denk-/Schreibfehler hinweisen. Tut mir leid, wenn dass als Kritik verstanden wurde. Vielleicht liegts ja an der dunklen Grundstimmung über dem Forum, dass selbst ein so relaxter Typ wie ich, kritisch rüber kommt. *

* = Humor = Bitte nehmt mich nicht ernst, ich nehm euch ja auch nicht ernst.



Damit mein Beitrag nicht ganz Off-Topic ist: Ich finde das Beispiel nämlich eigentlich ganz OK. Brauchte auch mal sowas und meine Lösung dafür ist unschöner und ging über die DB.
Bzlg. Multi-Language, wäre es vllt. schöner, wenn man das WordList-Array mit der passenden Sprache von aussen reingeben könnte.

[Luckie]

Zitat von Jumpy:

Bzlg. Multi-Language, wäre es vllt. schöner, wenn man das WordList-Array mit der passenden Sprache von aussen reingeben könnte.

Einfach als Resourcenstrings deklarieren. Damit sollten die üblichen Übersetzungswerkezuge klar kommen.

[t.roller]

SecToTime: Lösungsvorschläge

Delphi-Quellcode:

function Floor(const X: Extended): Integer;
begin Result := Integer(Trunc(X)); if Frac(X) < 0 then Dec(Result); end;

function  DurationHourMinSec1(Sec : Cardinal) : string;
var ZH, ZM, ZS : integer;
begin
ZH := Sec div 3600; ZM := Sec div 60 - ZH * 60; ZS := Sec - (ZH * 3600 + ZM * 60) ;
result:=  Format('%.2d:%.2d:%.2d', [ZH, ZM, ZS]);
end;

function  DurationHourMinSec2(Sec : Integer) : string;
var ZD, ZH, ZM, ZS : integer;
begin
ZD:= floor(sec div 3600 div 24);
ZH:= floor(sec div 3600 mod 24);
ZM:= floor(sec div 60 mod 60);
ZS:= floor(sec mod 60);
result:=  Format('%.3dd:%.2dh:%.2dm:%.2ds', [ZD, ZH, ZM, ZS]);
end;

function  DurationHourMinSec3(Sec : Integer) : string;
var ZD, ZH, ZM, ZS : integer;
begin
ZD:= floor(sec div 3600 div 24);
ZH:= floor(sec div 3600 mod 24);
ZM:= floor(sec div 60 mod 60);
ZS:= floor(sec mod 60);
result:=  Format('%.3d days : %.2d hours : %.2d minutes : %.2d seconds', [ZD, ZH, ZM, ZS]);
end;

function  DurationHourMinSec4(Sec : Integer) : string;
var ZD, ZH, ZM, ZS : integer;
begin
result:='';
ZD:= floor(sec div 3600 div 24);
ZH:= floor(sec div 3600 mod 24);
ZM:= floor(sec div 60 mod 60);
ZS:= floor(sec mod 60);
if ZD=0 then result:= Format('%.2d hours : %.2d minutes : %.2d seconds', [ZH, ZM, ZS]);
if (ZD=0) and (ZH=0) then result:= Format('%.2d minutes : %.2d seconds', [ZM, ZS]);
if (ZD=0) and (ZH=0) and (ZM=0) then result:= Format('%.2d seconds', [ZS]);
if result='' then
result:= Format('%.3d days : %.2d hours : %.2d minutes : %.2d seconds', [ZD, ZH, ZM, ZS]);
end;
...
Memo1.Lines.Add(DurationHourMinSec1(count));
Memo1.Lines.Add(DurationHourMinSec2(count));
Memo1.Lines.Add(DurationHourMinSec3(count));
Memo1.Lines.Add(DurationHourMinSec4(count));

[Der schöne Günther]

Viele Wege führen nach Rom? Alles klar, dieser hier auch

Delphi-Quellcode:

uses System.TimeSpan, Vcl.Dialogs;
var
   timeSpan: TTimeSpan;
begin
   timeSpan := TTimeSpan.FromSeconds(12345);
   ShowMessageFmt(
      '%d hours, %d minutes and %d seconds', [
      timeSpan.Hours, timeSpan.Minutes, timeSpan.Seconds
   ]);
end.