Beiträge von CST63

Dim i As Long
     Dim std As Integer
     Dim min As Byte
     Dim sek As Byte
     Write("Geben Sie eine Zeitspanne in Sekunden ein: ")
     i = ReadLine()
     sek = i Mod 60
     min = (i \ 60) Mod 60
     std = i \ 60 * 60


Write("Das entspricht einer Zeit von: ")
     write("{0} Stunden, {1} Minuten, {2} Sekunden", std, min, sek)