DataFunctions.LocalizeCurrency
.gif "Ee798608.c++_on(en-US,CS.10).gif")
.gif "Ee798608.vb_off(en-US,CS.10).gif")
Use this method to retrieve a string representation of a currency value formatted to a specified locale and currency symbol.
Definition
Function LocalizeCurrency(cyCurrency As Variant,Optional vtLocale As Variant,Optional vtCurrencySymbol As Variant) As Variant
Parameters
cyCurrency
A currency Variant that contains the value to format as a string.
vtLocale
A Variant that contains the locale to use when formatting the string.
vtCurrencySymbol
[in, optional] A Variant that contains the currency symbol to use when formatting the string.
Return Values
If this method completes successfully, it returns a Variant containing the formatted string.
Error Values
This method sets the Number property of the global Err object to S_OK (&H00000000) to indicate success and to standard COM error values to indicate failure. For more information about standard COM errors, see Standard COM Errors. Additional information may be available using the global Err object. In particular, the Description property may contain a text description of the error.
Remarks
For more information about memory ownership issues related to COM property and method parameters, see Managing COM Parameter Memory.
Example
<HTML>
<HEAD>
</HEAD>
<BODY>
<%
Dim Result
Dim Amount
' vtAmount is a Currency Variant
Set MSCSDataFunctions = Server.CreateObject("Commerce.DataFunctions")
' Set to USA
myLocale = 1033
MSCSDataFunctions.Locale = myLocale
Result = MSCSDataFunctions.LocalizeCurrency(vtAmount, myLocale, "$")
Response.Write "USA: " & Result & "<P>"
' Set to Minbar
myLocale = 1036
MSCSDataFunctions.Locale = myLocale
Result = MSCSDataFunctions.LocalizeCurrency(vtAmount, myLocale, "MB")
Response.Write "Minbar: " & Result & "<P>"
%>
</BODY>
</HTML>