Сообщество Чайников

Вопрос

Какая API функция возвращает символ-разделитель между дробной и целой частью числа?

Ответ

Если Вас интересует разделитель с точки зрения региональных настроек, то можно использовать функцию FormatNumber(<выражение>,<количество десятичных знаков>, -2).
Если у Вас уже есть число и нужно получить разделитель — то можно написать свою функцию:
Function Delimiter(aNum)
dim result, aNumStr, aFracD, aFrac
'Преобразовываем число в строку (Str)
aNumStr = Str(aNum)
'Получаем его дробную часть с разделителем
aFracD = Right(aNumStr, len(aNumStr)-len(Str(fix(aNum)))+1)
'Получаем сам разделитель
aChar = Left(aFracD,1)
do while not (Asc(aChar)>=48 and Asc(aChar)<=57) and len(aFracD)>0
if not (Asc(aChar)>=48 and Asc(aChar)<=57) then result = result &
aChar
if len(aFracD)>1 then
aFracD = Right(aFracD,len(aFracD)-1)
else
aFracD = ""
end if
aChar = Left(aFracD,1)
loop
Delimiter = result
end function