如何用vba返回系统或者当前用户的LCID？

GetSystemDefaultLCID函数可以返回系统区域对应的LCID。

GetUserDefaultLCID函数可以返回当前系统用户的区域LCID。

GetSystemDefaultLCID和GetUserDefaultLCID函数都是不需要参数直接返回值的API函数。

可以通过以下代码返回系统或者当前用户的LCID：

Declare Function GetUserDefaultLCID Lib "kernel32" () As Long
Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
Sub QQ1722187970()
   i = GetUserDefaultLCID
   j = GetSystemDefaultLCID
   Debug.Print "当前用户的LCID（10进制）：" & i, "系统默认的LCID（10进制)：" & j
   Debug.Print "当前用户的LCID（16进制）：" & VBA.Hex(i), "系统默认的LCID（16进制)：" & VBA.Hex(j)
End Sub