Dim intDiff as integer, strDiff as StringintDiff = DateDiff("n", date1, date2)strDiff = CStr(Int(intDiff/60)) & ":" & CStr(intDiff mod 60)Debug.Print strDiff