Problemas al dar formato a los numeros...

[richardinj]

Hola amigos... tengo un problema.. lo que pasa es que tengo el siguiente numero...

1000,20

y cuando hago esto

function formato(valor)

num=FormatNumber(round(valor,2),2)
formato=replace(cstr(num),",",".") 'reemplaza la coma por el punto

end function

formato(1000,20)

me sale esto: 1.000.20

y lo que quiero es que salga esto: 1000.20 ' entero, punto y con dos decimales 0.02 , 1.20 , 0.11 , 0.00, 125256.20, etc

como se hace?

nota: No debo alterar nada en la configuracion regional...

[u_goldman]

Alterando el LCID? ja ja

Bueno, tendrias que cambiar tu funcion para preguntar acerca de las dos ultimas cifras de tu numero, si son precedidas por una coma, entonces cambias solo esa coma por el punto, puedes valerte de varios metodos, pero creo que

Instr
InstrRev
Right
Left
Mid

Lo podran resolver.

Saludos

[3pies]

O más sencillo, incluso:

En lugar de:

Código:

num = FormatNumber(round(valor,2),2)

Poniendo esto:

Código:

num = FormatNumber(Round(valor, 2), 2, , , 0)

[richardinj]

solucionado con esto...

function formato(valor)
cad=cstr(valor)
pos=instr(cad,",")
if pos=0 then
entero=cad
decimal="00"
else
entero=mid(cad, 1, pos-1)
decimal=mid(cad, pos+1,2)
end if

formato=entero&"."&decimal

end function