Dim dblErgebnis as Double
Dim dblNachkomma as Double
Dim lngGesamtSekunden as Long
Dim lngMinuten as Long
Dim lngSekunden as Long
 
dblNachkomma = dbErgebnis - Int(dblErgebnis)
lngGesamtSekunden = Int(3600 * dblNachkomma)
lngMinuten = lngGesamtSekunden / 60
lngSekunden = lngGesamtSekunden Mod 60