1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

const
  OneHour = 1 / 24;
  OneDay = 1;
  OneWeek = 7;
  {etc}
var
  Date: TDateTime;
  Hour, Day: Week: Word;
begin
  Hour := 0;
  Day := 0;
  Week := 0;
  while Date >= OneWeek do begin
    Date := Date - OneWeek;
    Inc(Week);
  end;
  {jetzt noch auf den rest prüfen, mit dem größten wert aber beginnen...}					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

    if StrToFloat(Label8.Caption) >= 60 then
    begin
      Stunde := StrToFloat(Label8.Caption) / 60;
      Label3.Caption := FLoatToStr(RundeAufStelle(Stunde, 2)) + ' Stunde(n)';
      Label8.Caption := FloatToStr(RundeAufStelle(Stunde, 2));
      if StrToFloat(Label8.Caption) >= 24 then
      begin
        Tage := StrToFloat(Label8.Caption) / 24;
        Label3.Caption := FloatToStr(RundeAufStelle(Tage, 2)) + ' Tag(e)';
        Label8.Caption := FloatToStr(RundeAufStelle(Tage, 2));
      end;
      if StrToFloat(Label8.Caption) >= 7 then
      begin
        Woche := StrToFloat(Label8.Caption) / 7;
        Label3.Caption := FloatToStr(RundeAufStelle(Woche, 2)) + ' Woche(n)';
        Label8.Caption := FloatToStr(RundeAufStelle(Woche, 2));
      end;
    end
    else
    begin
      Label3.Caption := FloatToStr(RundeAufStelle(Endergebnis, 2)) + ' Minute(n)';
    end;					

1:
2:
3:
4:
5:

const
  OneHour = 60;
  OneDay = OneHour * 24;
  OneWeek = OneDay * 7;
  {usw.}					

1:
2:
3:
4:
5:

        Label8.Caption := FloatToStr(RundeAufStelle(Woche, 2)); //Ich Tippe auf einen fehler in der Funktion...
      end;   
    end   
    else    
      Label3.Caption := FloatToStr(RundeAufStelle(Endergebnis, 2)) + ' Minute(n)';   //begin und end; weglassen, wenns ih nur eine Zeile ist... aber nicht zwingend nötig.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

Stunde = 0
Minute = 0
Sekunde = 0

Zahl: 122,5  //1 Stunde 2 Minuten und 5 Sekunden
122,5 - 60 = 62,5   //Stunde Abziehen
Stunde + 1  //Stunde nun gleich eins
62,5 - 60 = 2,5 //Stunde Abziehen
Stunde + 1  //Stunde nun gleich zwei

//Da 2,5 - 60 < 0 mit nächst kleineren Einheit anfangen, also Minute
2,5 - 1 = 1,5 //Minute abziehen
Minute + 1 //1 Minute
1,5 - 1 = 0,5 //...
Minute + 1 //2 Minute...usw...

//Das Beispiel oben von mir macht das nun für Wochen. Da musst du jetzt noch Tage, Stunden, Minuten und Sekunden einfügen, dann hast du es komplett