Sekunden in Stunden, Minuten, Sekunden umrechnen

Computer: Software & Programmierung .NET & C#
#1

Hallo Leute, finde meinem fehler hier nicht. ich soll 90999 sekunden in Stunden, Minuten,Sekunden umrechnen bei meinem Code kommt aber 25Std.39Min 0Sek herraus.
Es müssen aber 25 Std. 16 Min. 39Sek rauskommen.
Wenn ich die 1 in 60 umwandle bekomme ich schon immer hin mal 39 Sec hin ^^. aber weiß nicht wie ich das richtig einstelle, das die minuten auch passen.
Hoff ihr könnt mir hier helfen

'Anwendung zum Umrechnen der Sekunden auf Stunde,Minute,Sekunde.

Imports System.Console

Module abc
Sub Main()
Dim z1, z2, z3, z4 as Long
Dim Stunde, Minute, Sekunde as Long

Writeline()
Write("Geben sie eine Zeitspanne in Sekunden an: ")

z1 = Readline()

z2 = 3600
z3 = 60
z4 = 1

Stunde = z1 / 3600
Minute = z1 mod 60
Sekunde = z1 Mod 1

Writeline(„Das Entspricht einer Zeit von: {0} Stunden {1} Minuten {2} Sekunden“, Stunde, Minute, Sekunde)
Readline()
End sub
End Module

Danke schonmal für eure hilfe.
Wäre sehr nett, wenn Ihr mir die antworten per E-mail oder privater nachricht schicken könntet.
Viele Dank

#2

Hallo!
Wie wär’s damit:

dim ts as new TimeSpan(0,0,90999)
Console.WriteLine("Das entspricht {0} Stunden, {1} Minuten {2} Sekunden", CInt(ts.TotalHours), ts.Minutes, ts.Seconds)

Gruß,
Martin

#3

Hallo nochmal!
Wenn es wirklich „von Hand“ gemacht werden soll, dann folgendermaßen:

Stunde = z1 \ 3600 ' \ und nicht /, damit VB nicht anfängt zu runden!
Minute = (z1 - Stunde \* 3600) \ 60 ' dto.
Sekunde = z1 - Stunde \* 3600 - Minute \* 60
'oder, einfacher:
'Sekunde = z1 Mod 60

Gruß,
Martin