Hallo zusammen,
ich muss gerade eine kleine Konsolenanwendung schreiben. Aufgabenstellung besagt, dass der Nutzer einen Wert in Sekunden in die Konsole eintragen soll und die Anwendung die eingegebenen Sekunden in Stunden, Minuten und Sekunden wieder ausgeben soll. Beispiel: Der Nutzer gibt 10500 Sekunden ein, als Ergebnis soll rauskommen 2 Stunden, 55 Minuten, 0 Sekunden.
Folgenden Code habe ich hierzu geschrieben:
Imports System.Console
Module abc
Sub Main()
Dim z1 as Long
Dim Stunde, Minute, Sekunde as Long
Write("Geben Sie eine Zeitspanne in Sekunden ein: ")
z1 = Readline()
Stunde = z1 / 3600
Minute = (z1 mod 3600) / 60
Sekunde = (z1 mod 3600) mod 60
Writeline("Das entspricht einer Zeit von: {0} Stunden, {1} Minuten, {2} Sekunden", Stunde, Minute, Sekunde)
End Sub
End Module
Die Minuten und Sekunden werden bei Ausführung des Programmes korrekt ermittelt. Lediglich die Stunden werden mit dem Wert 3 anstatt 2 ausgegeben. Die Division von 10500 / 3600 würde als Ergebnis 2,916666 ergeben.
Wer kann mir sagen was an dem Code falsch ist?
Vielen Dank für konstruktive Lösungsvorschläge....
ich muss gerade eine kleine Konsolenanwendung schreiben. Aufgabenstellung besagt, dass der Nutzer einen Wert in Sekunden in die Konsole eintragen soll und die Anwendung die eingegebenen Sekunden in Stunden, Minuten und Sekunden wieder ausgeben soll. Beispiel: Der Nutzer gibt 10500 Sekunden ein, als Ergebnis soll rauskommen 2 Stunden, 55 Minuten, 0 Sekunden.
Folgenden Code habe ich hierzu geschrieben:
Imports System.Console
Module abc
Sub Main()
Dim z1 as Long
Dim Stunde, Minute, Sekunde as Long
Write("Geben Sie eine Zeitspanne in Sekunden ein: ")
z1 = Readline()
Stunde = z1 / 3600
Minute = (z1 mod 3600) / 60
Sekunde = (z1 mod 3600) mod 60
Writeline("Das entspricht einer Zeit von: {0} Stunden, {1} Minuten, {2} Sekunden", Stunde, Minute, Sekunde)
End Sub
End Module
Die Minuten und Sekunden werden bei Ausführung des Programmes korrekt ermittelt. Lediglich die Stunden werden mit dem Wert 3 anstatt 2 ausgegeben. Die Division von 10500 / 3600 würde als Ergebnis 2,916666 ergeben.
Wer kann mir sagen was an dem Code falsch ist?
Vielen Dank für konstruktive Lösungsvorschläge....