Getting & Setting Locale

This guide demonstrates how to format locale-sensitive numbers using RhinoScript.

Overview

Formatted numbers are locale-sensitive. That is, the way numbers are formatted differs depending on which region of the world you are in.

Here are a few examples:

Culture       Format
United States       1,234,567.89
France       1 234 567,89
German       1.234.567,89
Switzerland       1’234’567.89

Details

VBScript supports the functionality of retrieving and changing the current locale settings of your computer. The two functions that support this feature are GetLocale() and SetLocale(). GetLocale() returns the current locale on the client machine. SetLocale() sets the locale to the new specified locale. These functions can be used accordingly to localize numeric values.

The SetLocale() function requires one argument, the LCID, which is a short string, decimal value, or hex value that uniquely identifies a geographic locale. The various geographic locales are based upon the user’s language, country, and culture. For example, the locale “English - United States” can be designated as either “en-us”, or “1033”, or “0x0409”.

This locale information is used to establish user preferences and formats for such things as alphabets, currency, dates, keyboard layout, and numbers. A list of these locales, and their return values, can be found on the MSDN Locale ID (LCID) Chart.

NOTE: If the LCID argument is set to zero, the locale will be set by the system.

The following examples demonstrates the use of the SetLocale() function:

Sub TestLocale()

  Dim dblValue : dblValue = 1234567.89

  Call SetLocale(1033) 'English - United States
  Rhino.Print "English - United States = " & FormatNumber(dblValue)

  Call SetLocale(1036) 'French - France
  Rhino.Print "French - France = " & FormatNumber(dblValue)

  Call SetLocale(1031) 'German - Germany
  Rhino.Print "German - Germany = " & FormatNumber(dblValue)

  Call SetLocale(2055) 'German - Switzerland
  Rhino.Print "German - Switzerland = " & FormatNumber(dblValue)

  Call SetLocale(0)

End Sub

which outputs:

English - United States = 1,234,567.89
French - France = 1 234 567,89
German - Germany = 1.234.567,89
German - Switzerland = 1'234'567.89