Hallo,
ich habe folgende Aufgabenstellung erhalten:
Ein Programm soll die Eingabe einer Zahl entgegennehmen und daraus eine Zeitangabe in Stunden, Minuten, Sekunden ausgeben.
Folgenden Code habe ich geschrieben, der aber nicht ganz korrekt ist, da die Minuten und Sekunden nicht korrekt ausgerechnet werden.
Vielleicht kann mir hier jemand helfen?
Imports System.Console
Module abc
Sub Main
Dim z1, z2, z3, z4 as Integer
Dim Stunde, Minuten, Sekunde as Integer
WriteLine()
Write("Geben Sie eine Zeitspanne in Sekunden ein: ")
z1=ReadLine()
z2=3600
z3=60
z4=1
Stunde=z1/z2
Minute=z1 mod z3
Sekunde=z1 mod z4
WriteLine("Das entspricht einer Zeit von: {0} Stunden {1} Minuten {2} Sekunden", Stunde, Minute, Sekunde)
WriteLine()
End Sub
End Module
Vielen Dank schon mal im Voraus.
