(495) 925-0049, ITShop интернет-магазин 229-0436, Учебный Центр 925-0049
  Главная страница Карта сайта Контакты
Поиск
Вход
Регистрация
Рассылки сайта
 
 
 
 
 

Функция получения разделителя десятичной и целой части числа

Декларируем:
Public Const LOCALE_STHOUSAND = &HF
Public Const LOCALE_SDECIMAL = &HE
Public Const LOCALE_SMONDECIMALSEP = &H16
Public Const LOCALE_SMONTHOUSANDSEP = &H17
Declare Function GetSystemDefaultLCID Lib "Kernel32" () As Long
Declare Function GetUserDefaultLCID Lib "Kernel32" () As Long
Declare Function GetLocaleInfo Lib "Kernel32" Alias "GetLocaleInfoA" _
    (ByVal Locale As Long, _
    ByVal LCType As Long, _
    ByVal lpLCData As String, _
    ByVal cchData As Long) As Long

Обращение к функции:
Public Function GetDecimalSep() As String
    Dim strVal As String
    strVal = String(16, Chr(0))
    GetLocaleInfo GetUserDefaultLCID(), LOCALE_SDECIMAL, strVal, 16
    GetDecimalSep = Left(strVal, InStr(1, strVal, Chr(0)) - 1)
End Function

Ссылки по теме


 Распечатать »
 Правила публикации »
  Написать редактору 
 Рекомендовать » Дата публикации: 15.01.2008 
 

Магазин программного обеспечения   WWW.ITSHOP.RU
Symantec Endpoint Encryption, License, 1-24 Devices
Enterprise Connectors (1 Year term)
Quest Software. TOAD Xpert Edition
Stimulsoft Reports.Ultimate Single License Includes one year subscription
Quest Software. TOAD Professional Edition
 
Другие предложения...
 
Курсы обучения   WWW.ITSHOP.RU
 
Другие предложения...
 
Магазин сертификационных экзаменов   WWW.ITSHOP.RU
 
Другие предложения...
 
3D Принтеры | 3D Печать   WWW.ITSHOP.RU
 
Другие предложения...
 
Новости по теме
 
Рассылки Subscribe.ru
Информационные технологии: CASE, RAD, ERP, OLAP
Безопасность компьютерных сетей и защита информации
Новости ITShop.ru - ПО, книги, документация, курсы обучения
Программирование на Microsoft Access
CASE-технологии
Вопросы и ответы по MS SQL Server
Утиль - лучший бесплатный софт для Windows
 
Статьи по теме
 
Новинки каталога Download
 
Исходники
 
Документация
 
 



    
rambler's top100 Rambler's Top100