Navigace: Hlavní stránka -> BASIC -> 01 Jednoduché výpočty -> 01.26 Počet sekund na dny:hodiny:minuty:sekundy

MENU

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.
Ř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ů.
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í