Imports System
Public Module Module1
Public Sub Main()
Dim dbl As Double = 10510.49
Dim l As Long = CLng(dbl)
Console.WriteLine(l)
dbl = 10510.50
Console.WriteLine(CLng(dbl))
dbl = 10510.51
Console.WriteLine(CLng(dbl))
End Sub
End Module
' run:
'
' 10510
' 10510
' 10511
'