**Public Function FractionalToReal( _
ByRef rReal As Variant _
, Optional ByVal vSupportStringDates As Variant _
) As Boolean**

**Convert either fractional or a real number into a real number. **

**Example:** Assuming
Dim varNum As Variant
varNum = "3/4"
for example
FractionalToReal(varNum) = True
leaves
varNum = .75

**Example:** Assuming
Dim varNum As Variant
varNum = 34.5
for example
FractionalToReal(varNum) = True
leaves
varNum = 34.5

**See also:** FractionalToRealSample Subroutine
ComplexStringToReals Function

**Note:** This function is substantially similar to the ComplexStringToReals function except that ComplexStringToReals works on complex numbers instead of fractions.

**Summary:** If Value is a fractional number of the form "A/B" then rReal = A / B If Value is a numeric value then rReal remains unchanged. If Value is "A/0" or non-numeric function returns false.

**rReal:** Argument which, if it represents a fraction with a string of the form "A/B", will be replaced by its numeric approximation.

Function returns True if rReal could be interpreted as a number or as a string representing a fractional number. Function returns False otherwise.

**vSupportStringDates:** Determines whether the function should consider date strings to represent numbers. Set to True if the function should consider date strings like "4/5/96" to be numbers, or set to False to save time if the function should not have to deal with date strings.

This function can also be used to determine if its argument CAN BE converted into a number, as in the following examples. FractionalToReal("4/5") = True
FractionalToReal((varNum)) = True ' #2

since Visual Basic cannot modify ByRef (By Reference) arguments that are really passed ByVal (By Value). In example #2, varNum will not be replaced with its numeric equivalent (.8) because by putting the variable in parentheses will force VB to pass it by value. Copyright 1996-1999 Entisoft

Entisoft Tools is a trademark of Entisoft.