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