Biblioteca de Clases,Funciones y Sub-rutinas.

[Muzztein]

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