[Delphi] Sekundy na minuty, godziny i dni

[Luksor]

Mam w zmiennej "wynik" liczbę 167772,16 - jest to liczba sekund.

Jak zamienić to na minuty, godziny i dni?

W edit np. taki tekst: 1 dzień, 2 godziny i 16 sekund.

[Will]

Robisz sobie jaja? Nie wiesz ile minuta ma sekund, ile godzina ma minut? Zamieniasz na minuty/60 reszta zostaje jako minuty, potem godziny przez 24 reszta zostaje jako godziny...

np:

10 000 000 sek /60=166666/60=2777h/24=115dni

 

10 000 000%60==sek 166666%60=min 2777%24=godziny

[Luksor]

Tyle to wiem, ale jak to napisać w skrypcie?

[Marmot]

wynik/60 - minuty

wynik/3600 - godziny

wynik/86400 - dni

Tylko nie mów, że nie wiedziałeś o tym, bo to bardziej pytanie z matematyki w pierwszych klasach podstawówki, niźli pytanie z programowania.

[Luksor]

wynik/60 - minuty

wynik/3600 - godziny

wynik/86400 - dni

Tylko nie mów, że nie wiedziałeś o tym, bo to bardziej pytanie z matematyki w pierwszych klasach podstawówki, niźli pytanie z programowania.

lol? :blink: Przecież ja to wiem, nie jestem głupi. Chodzi mi o to jak napisać kod, aby liczył względnie (zależnie od innych) żeby było np. 100 godzin, 1 minuta, 1 sekunda a nie 100 godzin, 6000 minut, 366001 sekund!

[Pental Stary]

To także podstawy. Aby to osiągnąć musisz znać resztę z dzielenia i tyle.

[Luksor]

To także podstawy. Aby to osiągnąć musisz znać resztę z dzielenia i tyle.

<_< Może przykład kodu??

[Will]

Rozwalasz mnie..

wystarczy poszukać jak zadeklarować zmienną..

var zmienna: integer;

dzielenie: zmienna:=zmienna2/20;

reszta z dzielenia: zmienna:=zmienna2 mod 20;

i tyle wystarczy...

 

edit:

albo walnij to all w funkcje

FUNCTION obliczanie(x:longint):longint;

var wynik:longint;

BEGIN

//tu obliczenia

obliczanie:=wynik;

END;

[Luksor]

reszta z dzielenia: zmienna:=zmienna2 mod 20;

O to mi tylko chodziło.

[Marmot]

Albo dzielenie bez reszty do części całkowitych od razu także podam aby uniknąć pytań:

zmienna:=zmienna2 div 20;

To wszystko to również podstawy jakby nie patrzeć ;p .