Programación General > Visual Basic para principiantes

 Convertir A Cero Números Negativos

(1/1)

galeribu:
Convertir o redondear a cero, números negativos

No sé mucho de programación pero creo saber lo que necesito.
Tengo una base de datos access donde los resultados de una consulta pueden ser números negativos o positivos.
Yo necesito que los que son negativos se conviertan en 0 (cero)  sin modificar u ocultar los positivos.
Y mi idea era hacerlo a traves de una funcion en un módulo.

Un amigo me ayudó con esta formula pero me dá error de sintaxis:

Function iracero(x)
if (valor < 0)
   then valor := 0

End Function

Alguien sabe si mi idea es viable. Y si lo es cual es el error en la funcion?
Porque no tengo la mas minima idea. Solo me estoy guiando por intuicion y sentido comun, con mucha perseverancia y fuerza de voluntad.
Pero poco conocimiento técnico.
Desde ya muchas gracias
Gaby

Soultaker:
Hola galeribu  :hola:

Recuerda que una funcion siempre devuelve un valor

Este es tu codigo

--- Cita de: "galeribu" ---Function iracero(x)
if (valor < 0)
then valor := 0

End Function

--- Fin de la cita ---

Y este es como debe ser

--- Código: Text --- Function iracero(valor)   If (valor &#60; 0) Then      valor = 0   End If   Return valorEnd Function  
Ahora no tengo instalado el visual 6.0 para probarlo pero supongo que debe funcionar.

Otra forma como la puedes hacer es obtener ese numero como string y si es negativo, extraes el primer caracter, que vendria a ser el - y lo evaluas si es -, entonces que el valor sea 0.

Espero haberte ayudado, cualquier duda pregunta nomas.

 :comp:

galeribu:
Me da error de compilacion.
Se esperaba fin de instruccion.

Pone en amarillo Funcion
Y en rojo Retur (valor)

RadicalEd:

--- Cita de: "galeribu" --- Me da error de compilacion.
Se esperaba fin de instruccion.

Pone en amarillo Funcion
Y en rojo Retur (valor)
--- Fin de la cita ---
Como lo estas colocando????
Por que si lo colocas en español no te sirve; copia y pega lo que te mostro Soultaker que eso te debe funcionar a la perfección.

Navegación

[0] Índice de Mensajes