Passing variables.

[SRSDS]

Can someone suggest what is wrong here?

Diameter is passed in as 12.7 but it is not acceptint it as a true statement.

    Function Volume(Diameter As Single)
        If Diameter = 12.7 Then
        end if
    End Function

[arcticad · Accepted solution]

    Function Volume(ByVal Diameter As Single) As Boolean
        If Diameter = CSng(12.7) Then
            Return True
        Else
            Return False
        End If
    End Function

[SRSDS]

Thanks again!!

[sbarlage]

I think this will do it too:

If Diameter = 12.7# Then end if

[_gile]

Hi,

Don't make VB more verbose than it is...

    Function Volume(ByVal Diameter As Single) As Boolean
        Return Diameter = 12.7F
    End Function

 But why using a Single rather than a Double ?