تابع زیر قبلا در پروژه ای برای گرد کردن اعداد مثبت و منفی به زبان BASIC نوشته شده بود و از آنجایی که ممکن است برای کسی قابل استفاده باشد در اینجا قرار داده می شود:

Public Function myround(n As Double)
Dim m As Double
If n >= 0 Then
If (n - Int(n)) >= 0.5 Then
myround = (1 + Int(n))
Else
myround = Int(n)
End If
Else
m = -n
If (m - Int(m)) >= 0.5 Then
myround = -(1 + Int(m))
Else
myround = -Int(m)
End If
End If
End Function

@KnowledgePlus