<-- Previous || Up || Next -->

Coerce To Currency Function
Coerce Make Class

Public Function CoerceToCurrency( _
    ByVal vString As Variant _
    ) As Variant

"Coerce String To Currency"
Return the Currency value whose in-memory representation is the same as the first eight characters in string vString.
Inverse of the MakeCurrency function.

    CoerceToCurrency(String$(8, 0)) = 0
    CoerceToCurrency(String$(8, 1)) = 7234017283807.6673@
    CoerceToCurrency(String$(8, 2)) = 14468034567615.3346@
    IsNull(CoerceToCurrency(Null)) = True
See also:
    CoerceToCurrencyFast Function
    MakeCurrency Function
    CoerceToVarType Function
vString: The string whose first 8 (eight) characters are to be interpreted as a Currency value. Function returns Null if vString is Null or cannot be fixed up to a String.

Note: Function generates the Visual Basic Error "Illegal Function Call" if vString is less than 8 characters long (the size of a Currency value).
Note: If vString is more than eight characters long, the leftmost eight characters are coerced to a Currency value.

Note: This function first converts the string from Unicode to the default code page of the system.
v1.3 Change: Removed 16-bit support from this function.

Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.