<%
'**********************************
'Función: Coma (STR)
'Parámetro: str, el número a procesar
'Autor: Alixi
'Fecha: 2007/7/12
'Descripción: Devuelve el valor formateado en la visualización de números numéricos en las milésimas
'Ejemplo: <%= coma ("120300")%>
'**********************************
functionComma (STR)
ifnot (isNumérico (str)) o str = 0then
resultado = 0
Elseiflen (Fix (Str)) <4Then
resultado = str
demás
pos = instr (1, str, ".")
ifpos> 0then
Dec = Mid (Str, Pos)
endif
Res = Strreverse (Fix (STR))
LoopCount = 1
Mientras que la cuenta <= Len (res)
TEMPRESULT = TEMPRESULT+MID (Res, LoopCount, 3)
LoopCount = LoopCount+3
ifloopcount <= len (res) entonces
tempresult = tempresult+","
endif
encaminarse a
Result = Strreverse (Tempresult)+DEC
endif
coma = resultado
Función final
%>