' Collection of code snippets by Arne Vajhøj ' posted to eksperten.dk, usenet and other places (2002-now) Function kmt(km As Integer, time As Variant) As Integer Dim s As Long s = Hour(time) * 3600 + Minute(time) * 60 + Second(time) kmt = (3600 * km) / s End Function Function minkm(km As Integer, time As Variant) As Integer Dim s As Long s = Hour(time) * 3600 + Minute(time) * 60 + Second(time) minkm = s / (km * 60) End Function Function test() MsgBox Str(kmt(5, "00:50:00")) MsgBox Str(minkm(5, "00:50:00")) End Function