تابع زیر توسط جناب آقای مهندس شهرام نوربخش راد برای گرد کردن اعداد در زبان BASIC پیشنهاد شده است:

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

@KnowledgePlus