防止时间跨度四舍五入

Question

我有一个代码可以提取给定媒体文件的持续时间/长度，但我有问题，其持续时间四舍五入到最接近的秒，如1：23：26.8到1:23:27，有没有办法保持在26或26.8？

If AVIFileInfo_Renamed(hFile, AviInfo, Len(AviInfo)) = 0 Then

   rTime = (AviInfo.dwLength / (AviInfo.dwRate / AviInfo.dwScale))
   Dim tp As TimeSpan = New TimeSpan(0, 0, rTime)
   ShowAVIInfo = tp

End If