EnumCurrencies

Returns arrays containing the currency IDs and labels of the application’s currencies. The arrays have a one-to-one correspondence.

Tip:	To return only currencies for which the DisplayInICT attribute is enabled, use EnumCurrencies2.

Syntax

<HsvCurrencies>.EnumCurrencies pvaralCurrencyIDs, pvarabstrCurrencyLabels

Argument	Description
pvaralCurrencyIDs	Variant. Returns an array of currency IDs. The array is returned as a Long subtype.
pvarabstrCurrencyLabels	Variant. Returns an array of currency labels. The array is returned as a String subtype.

Example

The following example prints the labels of an application’s currencies to Visual Basic’s Immediate window.

Dim cCurrencies As HsvCurrencies, vaIDs As Variant, vaLabels As Variant
'g_cMetadata is an HsvMetadata object reference
Set cCurrencies = g_cMetadata.Currencies
cCurrencies.EnumCurrencies vaIDs, vaLabels
For i = LBound(vaLabels) To UBound(vaLabels)
  Debug.Print vaLabels(i)
Next i