Hsmithdp, doesn’t that do the opposite? That is, doesn’t it take a decimal and turn it into a fraction?

Also, in VBA (at least the one I have, ymmv) you can’t declare a variable to be of type Decimal — probably want a Double instead. And similarly, you can’t return a value like that — you have to set the function to the value, and then exit the function. So instead of:

Public Function getNumberThreeOrFour(makeItThree as Boolean) as Integer
    If makeItThree Then
        return 3
    Else
        return 4
    End If
End Function

You would have:

Public Function getNumberThreeOrFour(makeItThree as Boolean) as Integer
    If makeItThree Then
        getNumberThreeOrFour = 3
        Exit Function
    Else
        getNumberThreeOrFour = 4
        Exit Function
    End If
End Function

(Of course, that’s a silly function and even that could be done better with a single line using IIF statement, but it’s just to illustrate the point.)

Possibly I’m missing something. YuvalShavit seems to be on the right track here. But it seems to be a simple math question.

The fraction 2/3 is a division problem (2 divided into 3), so a double will hold that type of number.

In vbscript it would be:

Function GetDecimal(numerator, denominator)
GetDecimal = numerator / denominator
End Function

In VB it would be as simple as:

Public Function GetDecimal(numerator as integer, denominator as integer) as double
GetDecimal = numerator / denominator
End Function

In a VB class it would be:
Public Shared Function GetDecimal(numerator as integer, denominator as integer) as double
GetDecimal = numerator / denominator
End Function

As far the difference in the variable types I recently wrote about this in my blog here on ITKE. Check it out under variable types.

The GetDecimal function is fine, but what to do with division by zero? Because the return type is double, the function will return the “correct” result (Infinity) but an overflow error will occur if any attempt is made to use rather than just report the result.
Choices?
1) Check for zero denominator and throw an exception
2) Check for return value as in:

        Dim DEC As Double
        DEC = GetDecimal(0, 0)
        If (DEC.ToString = "Infinity") Or (DEC.ToString = "NaN") Then
            System.Console.WriteLine("Divide by zero error")
        End If