rounding numbers to .5

[NotLKH]

This works:

Use a function like this:

MyNum = Round(2 * MyNum, 0) / 2

As in:

Private Sub Command1_Click()
Dim MyNum As Single
'4,48 => 4,5
'4,02 => 4,0
'4,95 => 5,0
MyNum = 4.48
    MyNum = Round(2 * MyNum, 0) / 2
        MsgBox MyNum '''returns 4.5 from 4.48
MyNum = 4.02
    MyNum = Round(2 * MyNum, 0) / 2
        MsgBox MyNum '''returns 4 from 4.02
MyNum = 4.95
    MyNum = Round(2 * MyNum, 0) / 2
        MsgBox MyNum '''returns 5 from 4.95
End Sub

-Lou