GetUserDefaultLCID 子程序示例

下列示例使用GetLocaleInfoA调用来取得为本地机器指定的小数点。我们还会使用API调用GetUserDefaultLCID来获取本地用户的默认地点。这为我们提供了GetLocaleInfoA的第一个参数。

Public Function GetDecimalSeparator()

Dim intCountChar As Integer

Dim lngHolder As Long

Dim strDecChar As String

On Error GoTo ErrorHandler

'设定返回值的缓存

strDecChar = Space$(255)

'取得千位分隔符的十位分隔符和字符数量

lngHolder = GetLocaleInfoA(GetUserDefaultLCID(), LOCALE_SDECIMAL, strDecChar, Len(strDecChar) + 1)

'现在把返回值设为正好是十位分隔符。

GetDecimalSeparator = Left$(strDecChar, lngHolder - 1)

Exit Function

ErrorHandler:

HandleError

End Function