Sekunden in Std. Min. Sek. umrechnen

Also ich habe gerade kein VB zur Hand, aber VBA mit Excel bringt das gleiche Ergebnis:

Private Sub CommandButton1_Click()
Dim Sekunden As Double
Dim Minuten As Double
Dim Stunden As Double
Dim Tage As Double

'Übergabe der Sekunden von 90999
Sekunden = Range("A2")

'Berechnung
Minuten = Fix(Sekunden / 60)
Sekunden = Sekunden - (Minuten * 60)
Stunden = Fix(Minuten / 60)
Minuten = Minuten - (Stunden * 60)

'Übergabe an Zelle in Excel
'std, min, sec, sind Zellbezeichnungen
Range("std") = Stunden
Range("min") = Minuten
Range("sec") = Sekunden
End Sub

Ergebnis: [ATTACH=CONFIG]1025[/ATTACH]

Gruß
hape