<%
'*********************************
'Функция: запятая (str)
'Параметр: str, число, которое нужно обрабатывать
Автор: Аликси
Дата: 2007/7/12
'Описание: возвращает значение, отформатированное на отображении численных чисел в тысяч.
Пример: <%= comma ("120300")%>
'*********************************
functionComma (str)
ifnot (isnumeric (str)) orstr = 0then
Результат = 0
elseiflen (fix (str)) <4then
Результат = Стр
еще
pos = instr (1, str, ".")
ifpos> 0then
Dec = Mid (str, pos)
эндиф
res = strReverse (fix (str))
LoopCount = 1
whileloopcount <= len (res)
Tempresult = Tempresult+Mid (res, Loopcount, 3)
LoopCount = LoopCount+3
ifloopcount <= len (res) тогда
Tempresult = Tempresult+","
эндиф
Венд
Результат = StrReverse (Tempresult)+Dec
эндиф
Запятая = результат
конечная функция
%>