Ver Mensaje Individual
  #9 (permalink)  
Antiguo 06/09/2004, 11:30
Avatar de u_goldman
u_goldman
Moderador
 
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 3 meses
Puntos: 98
Y si lo conviertes a double?

Function DevuelveColor(mi_numero)
mi_numero = cdbl(mi_numero)
If mi_numero < 0 Then
DevuelveColor = "red"
Else
DevuelveColor = "white"
End If
End Function
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway