Zjištění symbolu měny
Postup:
Následující zpráva zobrazí symbol měny.
MsgBox Trim$(Replace(FormatCurrency(0,0), "0", ""))
Pokud chcete zjistit, zda je symbol měny před nebo za vlastní částkou, použijte tuto podmínku:
If Instr(FormatCurrency(0,0),
currSymbol) < Instr(FormatCurrency(0,0), "0") Then
' Symbol měny je pře částkou
Else
' Symbol měny následuje za částkou
End If