http://www.vb-helper.com/HowTo/intlinf2.zip

	Purpose
Get internationalization information

	Method
Use the GetLocaleInfo API function.

    ' Return a piece of locale information.
    Private Function LocaleInfo(ByVal locale As Long, ByVal lc_type As Long) As String
    Dim length As Long
    Dim buf As String * 1024
    
        length = GetLocaleInfo(locale, lc_type, buf, Len(buf))
        LocaleInfo = Left$(buf, length - 1)
    End Function

This example contains a BIG list of values describing country, language, days of the week, months, time, dates, numbers, money, and miscellaneous values.

	Disclaimer
This example program is provided "as is" with no warranty of any kind. It is
intended for demonstration purposes only. In particular, it does no error
handling. You can use the example in any form, but please mention
www.vb-helper.com.
