SecToMin
Dim lSecs As Long Dim sMin As String lSecs = 120 sMin = Format(Fix(lSecs / 60), "#0") & ":" & Format(lSecs Mod 60, "00") MsgBox sMin
Dim lSecs As Long
Dim sMin As String
lSecs = 120
sMin = Format(Fix(lSecs / 60), "#0") & ":" & Format(lSecs Mod 60, "00")
MsgBox sMin
( sectomin.html )- by Paolo Puglisi
- Modifica del 17/12/2023