01.26 Počet sekund na dny:hodiny:minuty:sekundy
Zadání:
Sestavte program, který převede zadaný počet sekund na časový údaj ve dnech, hodinách, minutách a sekundách.
Sestavte program, který převede zadaný počet sekund na časový údaj ve dnech, hodinách, minutách a sekundách.
Řešení:
Řešení je třeba začít od výpočtu sekund. Vydělíme zadaný počet sekund hodnotou 60, funkcí mod zjistíme zbytek
po dělení a tento výsledek je zbylý počet sekund, který již nelze převést na minuty. Poté vydělíme celočíselným
dělením sekundy hodnotou 60, abychom vypočetli minuty. Stejným způsobem pokračujeme při výpočtu hodin a dnů.
Řešení je třeba začít od výpočtu sekund. Vydělíme zadaný počet sekund hodnotou 60, funkcí mod zjistíme zbytek
po dělení a tento výsledek je zbylý počet sekund, který již nelze převést na minuty. Poté vydělíme celočíselným
dělením sekundy hodnotou 60, abychom vypočetli minuty. Stejným způsobem pokračujeme při výpočtu hodin a dnů.
Module Module1
Sub Main()
Dim v, d, h, m, s As Integer
Console.Write("Zadejte udaj v sekundach: ")
v = Console.ReadLine
s = v Mod 60
m = v \ 60
h = m \ 60
m = m Mod 60
d = h \ 24
h = h Mod 24
Console.Write("d:h:m:s={0}:{1}:{2}:{3}", d, h, m, s)
Console.ReadLine()
End Sub
End Module
program ke stažení