Language Code, French, Spanish, or Spanish

[drom]

Hi and Thanks in advance

If I do this in a Computer's inmediate window "VBA":

?Application.LanguageSettings.LanguageID(msoLanguageIDUI)

I will get eg:

• 3082 'The Spanish Modern Sort language.

• 1045 'The Polish language.

• 4108 'The Swiss French language.

and/or...

But I don't really care if the French is from Senegal, France, Swiss etc
I don't care if the English is from Ireland, England, USA...

How can I know if the Language is Spanish, French or English

PS: ovbiously a solution rather that one that makes me insert all the differents country codes

or How can I know Application.LanguageSettings.LanguageID(msoLanguageIDUI).description ??

 

[Leith Ross]

Hello drom,

This UDF will return the language name for a LCID. Copy and Paste this code into a standard VBA module.

' Written: March 01, 2012
' Author:  Leith Ross
' Summary: Converts a Language Code Identifier (LCID) into the language name.

Private Declare Function GetLocaleInfoA _
    Lib "kernel32.dll" _
        (ByVal Locale As Long, _
         ByVal LCType As Long, _
         ByVal lpLCData As String, _
         ByVal cch As Long) _
    As Long
    
Function GetLanguageName(ByVal LCID As Long) As String

    Const LOCALE_SENGLANGUAGE As Long = &H1001
    Const LOCALE_SENGCOUNTRY As Long = &H1002
    
    Dim Buffer As String
    Dim BuffSize As Long
    Dim RetVal As Long
    
        BuffSize = GetLocaleInfoA(LCID, LOCALE_SENGLANGUAGE, 0, 0)
        Buffer = String(BuffSize, Chr(0))
        
        RetVal = GetLocaleInfoA(LCID, LOCALE_SENGLANGUAGE, Buffer, BuffSize)
        
        If RetVal > 0 Then GetLanguageName = Left(Buffer, BuffSize - 1)
        
End Function

Example of Calling the Function
This is for Spanish.

  ' Using the Decimal value
    Language = GetLanguageName(1034)

  ' Using the Hex value
    Language = GetLanguageName(&H40A)