20/01/2006, 06:41
|
 | | | Fecha de Ingreso: agosto-2002 Ubicación: Hangar 18
Mensajes: 1.703
Antigüedad: 22 años, 2 meses Puntos: 16 | |
| Funcion para normalizar decimales
Haciendo una mantencion de un sistema de 1999, encontré esta funcion ... 
Código:
Function Recoge_Decimales(str)
On Error resume next
if CStr(1/10) = "0,1" then
Recoge_Decimales = CDbl(Replace(str, ".", ","))
exit function
end if
if CStr(1/10) = "0.1" then
Recoge_Decimales = CDbl(Replace(str, ",", "."))
exit function
end if
Recoge_Decimales = CDbl(str)
end function
|