<%
'***********************************
'Função: vírgula (STR)
'Parâmetro: STR, o número a ser processado
'Autor: Alixi
Data: 2007/7/12
'Descrição: Retorna o valor formatado na exibição de números numéricos nos milésimos
'Exemplo: <%= vírgula ("120300")%>
'***********************************
functionComma (STR)
ifnot (isnumeric (str)) oustr = 0hen
resultado = 0
Elseiflen (fix (str)) <4then
resultado = str
outro
POS = Instr (1, STR, ".")
ifpos> 0then
DEC = MID (STR, POS)
endif
res = strreverse (fix (str))
loopcount = 1
whileloopcount <= len (res)
tempresult = tempresult+mid (res, loopcount, 3)
loopcount = loopcount+3
ifloopCount <= len (res) então
tempresult = tempresult+","
endif
Wend
resultado = strreverse (tempresult)+dez
endif
vírgula = resultado
Função final
%>