VBA如何将时间从十进制到十进制舍入5分钟

Question

请你帮我解决VBA中的代码，将时间缩短到5分钟。我已经使用了其中一些功能而没有成功。

        varSheetTimeCard.Cells(iRow, 3) = WorksheetFunction.MRound(varSheetTimeDoctorReport.Cells(iRow, 7), "0:05")
    varSheetTimeCard.Cells(iRow, 3) = Math.Round(varSheetTimeDoctorReport.Cells(iRow, 8) * 288, 0) / 288
    varSheetTimeCard.Cells(iRow, 3) = dhRoundTime(varSheetTimeDoctorReport.Cells(iRow, 7), 5)
    varSheetTimeCard.Cells(iRow, 3) = WorksheetFunction.MRound(varSheetTimeDoctorReport.Cells(iRow, 7), "0:05")
    varSheetTimeCard.Cells(iRow, 3) = WorksheetFunction.MRound(varSheetTimeDoctorReport.Cells(iRow, 7), 1 / 288)