Retrieve the currency symbol

It is very simple to retrieve the correct currency symbol, using just plain VBA statements:

currSymbol = Trim$(Replace(FormatCurrency(0,0), "0", ""))

If you can also determine if the symbol precedes or follows the currency amount using this method:

If Instr(FormatCurrency(0,0), currSymbol) < Instr(FormatCurrency(0,0), "0") Then    ' Currency symbol precedes the currency amountElse    ' Currency symbol follows the currency amountEnd If

Share the Post:
Share on facebook
Share on twitter
Share on linkedin

Overview

Recent Articles: