P.S Вот так всегда, то ВОТ ОНО ЛЕЖИТ, но на хрен не нужно, то припёрло аж жуть - А НИГДЕ НЕТУ !

Помогите плииз.

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
Const LOCALE_SDECIMAL = &HE ' decimal separator
Const LOCALE_USER_DEFAULT = &H400
Const LOCALE_SYSTEM_DEFAULT = &H800
Function getDecimalPoint() As String
Dim lpBuffer As String * 100
Dim dl&
dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SDECIMAL, lpBuffer, 99)
getDecimalPoint = Left$(lpBuffer, InStr(lpBuffer, Chr$(0)) - 1)
End Function
Mid(1/2, 1, 1)
Сейчас этот форум просматривают: AhrefsBot, SemrushBot и гости: 13