Функция SetThreadLocale

Locale

Идентификатор локального контекста используемого потока. Может принимать следующие значения:

LOCALE_SYSTEM_DEFAULT = &H400

Системная локаль по умолчанию

LOCALE_USER_DEFAULT = &H800

Пользовательская локаль по умолчанию

Пример

' Зададим системную текущую локаль для потока
Dim lRet As Long
Dim today As SYSTEMTIME  ' сегодняшняя дата и время
Dim datestr As String  ' буфер для приема строки
Dim strlen As Long  ' длина буфера

' Сначала, установим локаль как системную по умолчанию
lRet = SetThreadLocale(LOCALE_SYSTEM_DEFAULT)

' Получим дату и время на сегодня в локальной зоне
GetLocalTime today

' Создадим буфер для приема строки
datestr = Space(255)
strlen = GetDateFormat(0, DATE_LONGDATE, today, CLng(0), datestr, Len(datestr))
datestr = Left(datestr, strlen)
' Выводим дату в длинном формате
Debug.Print "Today is "; datestr

Смотри также

Категория