[Codevorstellung ?] SecondsToTime - Multilanguage

[dGeek]

Irgendwo im weiten WWW habe ich vor vielen Jahren mal eine Funktion gefunden, um Sekunden in einen lesbaren String umgestalten zu können.
Ich habe das Original schon seit einer Ewigkeit nicht mehr. Meine Version hat aber nix mehr mit dem Original zu tun. Von daher benötige ich keine Quelle, denke ich.

Die Funktion wandelt z.B. 123 in "2 Minuten und 3 Sekunden" um. oder 93784 in 1 Tag 2 Stunden 3 Minuten und 4 Sekunden.
Wenn man den Parameter bShowFullTime auf False setzt, wird alles nach dem ersten Block nicht angezeigt. Nach den obigen Beispielen würde also 1 Minute und 1 Stunde angezeigt werden.

Die Funktion kann garantiert noch verbessert werden. Aber ich finde sie ist schnell genug.

Delphi-Quellcode:

aWordList: array[0 .. 8] of string;

aWordList[0] := 'Tag';
aWordList[1] := 'Tage';
aWordList[2] := 'Stunde';
aWordList[3] := 'Stunden';
aWordList[4] := 'Minute';
aWordList[5] := 'Minuten';
aWordList[6] := 'Sekunde';
aWordList[7] := 'Sekunden';
aWordList[8] := 'und';

function SecondsToTimeEx(wSeconds: Int64; bShowFullTime: Boolean = True): string;
var
 i: Byte;
 aDays, aHours, aMinutes, aSeconds, aDivisor: Int64;
 sRes, sSecWord, sMinWord, sHourWord, sDayWrd: string;
 aPartsArray: array of string;

 procedure AddTimeToStr(sTimeStr: string);
 begin
  SetLength(aPartsArray, Length(aPartsArray) + 1);
  aPartsArray[Length(aPartsArray) - 1] := sTimeStr;
 end;

begin
 aDivisor := 60;
 aSeconds := wSeconds mod aDivisor;
 aMinutes := (wSeconds div aDivisor) mod aDivisor;
 aHours := (wSeconds div aDivisor) div aDivisor;
 aDays := aHours div 24;
 aHours := aHours mod 24;

 if aDays = 1 then
  sDayWrd := ' ' + aWordList[0] + ' '
 else
  sDayWrd := ' ' + aWordList[1] + ' ';

 if aHours = 1 then
  sHourWord := ' ' + aWordList[2] + ' '
 else
  sHourWord := ' ' + aWordList[3] + ' ';

 if aMinutes = 1 then
  sMinWord := ' ' + aWordList[4] + ' '
 else
  sMinWord := ' ' + aWordList[5] + ' ';

 if aSeconds = 1 then
  sSecWord := ' ' + aWordList[6]
 else
  sSecWord := ' ' + aWordList[7];

 if aDays > 0 then
  AddTimeToStr(IntToStr(aDays) + sDayWrd);

 if (aDays = 0) or bShowFullTime then
  if aHours > 0 then
   AddTimeToStr(IntToStr(aHours) + sHourWord);

 if (aHours = 0) or bShowFullTime then
  if aMinutes > 0 then
   AddTimeToStr(IntToStr(aMinutes) + sMinWord);

 if ((wSeconds < 300) and (aSeconds > 0)) or bShowFullTime then // <== siehe Info unten
  if aSeconds > 0 then
   AddTimeToStr(IntToStr(aSeconds) + sSecWord);

 sRes := '';
 if Length(aPartsArray) > 0 then
  begin
   if Length(aPartsArray) = 1 then
    sRes := aPartsArray[0]
   else if Length(aPartsArray) = 2 then
    sRes := aPartsArray[0] + aWordList[8] + ' ' + aPartsArray[1]
   else if Length(aPartsArray) > 2 then
    begin
     for i := 0 to Length(aPartsArray) - 1 do
      begin
       if (i > 0) and (i = Length(aPartsArray) - 1) then
        sRes := sRes + aWordList[8] + ' ' + aPartsArray[Length(aPartsArray) - 1]
       else
        sRes := sRes + ' ' + aPartsArray[i];
      end;
    end;
  end;

 SetLength(aPartsArray, 0);

 Result := Trim(sRes);
end;

INFO: die Zahl 300 bedeutet:
unter 300 Sekunden wird bei bShowFullTime = False statt "4 Minuten" => "4 Minuten und 59 Sekunden" angezeigt.