minutter til timer?

Private Function SecToTime(ByVal lngSec As Long) As String
Dim lngMin As Long
  lngMin = Format(Fix(lngSec / 60), "00")
SecToTime = Format(Fix(lngMin / 60), "00") & ":" & Format(lngMin Mod 60, "00") & ":" & Format(lngSec Mod 60, "00")
End Function

Private Sub Form_Load()
Dim lngSek As Long
Dim lngMin As Long

  lngMin = 1468 'minutter
  lngSek = 56  'sekunder

  lngSek = (lngMin * 60) + lngSek
  Me.Caption = SecToTime(lngSek)
End Sub

Jeg takker og bukker :-) det var jo lige præsis det jeg manglede :-) takker

selv tak :-)