roundn.bas

数字处理函数包(5KB)15datediff.zip指定两个日期计算相隔的天数

Option Explicit

Function RoundNear& (num&, near&)
Dim t&
   
   t& = num& Mod near&

   If t& < (near& / 2) Then
      RoundNear& = num& - t&
   Else
      RoundNear& = num& + (near& - t&)
   End If

End Function