01/06/2006, 12:08
|
 | | | Fecha de Ingreso: enero-2005 Ubicación: Ciber Espacio
Mensajes: 2.180
Antigüedad: 20 años, 3 meses Puntos: 11 | |
solucionado con esto... Cita: 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 |