SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Visual Basic para principiantes => Mensaje iniciado por: galeribu en Viernes 28 de Abril de 2006, 00:08
-
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
-
Hola galeribu :hola:
Recuerda que una funcion siempre devuelve un valor
Este es tu codigo
Function iracero(x)
if (valor < 0)
then valor := 0
End Function
Y este es como debe ser
Function iracero(valor)
If (valor < 0) Then
valor = 0
End If
Return valor
End 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:
-
Me da error de compilacion.
Se esperaba fin de instruccion.
Pone en amarillo Funcion
Y en rojo Retur (valor)
-
Me da error de compilacion.
Se esperaba fin de instruccion.
Pone en amarillo Funcion
Y en rojo Retur (valor)
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.