• Home
 · 
• Windows System Services
 · 
• Retrieve the computers currency symbol based on the Regional Settings of the control panel

Retrieve the computers currency symbol based on the Regional Settings of the control panel

Retrieve the computers currency symbol based on the Regional Settings of the control panel

API Declarations


Private Declare Function GetUserDefaultLCID% Lib "kernel32" ()

Private Const LOCALE_SCURRENCY = &H14



Rate Retrieve the computers currency symbol based on the Regional Settings of the control panel

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

      Dim iRet1 As Long
      Dim iRet2 As Long
      Dim lpLCDataVar As String
      Dim Pos As Integer
      Dim Locale As Long
      Locale = GetUserDefaultLCID()
      iRet1 = GetLocaleInfo(Locale, LOCALE_SCURRENCY, lpLCDataVar, 0)
      Symbol = String$(iRet1, 0)
      iRet2 = GetLocaleInfo(Locale, LOCALE_SCURRENCY, Symbol, iRet1)
      Pos = InStr(Symbol, Chr$(0))
      If Pos > 0 Then
         Symbol = Left$(Symbol, Pos - 1)
      End If