Hallo Anja,
schaue dir mal folgendes an:
Code
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)
Alles anzeigen