[SOLUCIONADO] [Excel] Error condicional con VB

[BlackShark]

Hola qué tal,

Este es el codigo:

Código:

Function MiRedondeo(numero As Double) As Double
  Dim entero As Long
  Dim decima As Double
  entero = Int(numero) 'Obtenemos el entero
  decima = numero - entero 'Obtenemos la parte decimal

'Hacemos un condicional
If decima = 0.3 Then
 MiRedondeo = 1
Else
 MiRedondeo = 0
End If
End Function

Así, sin mas complicaciones lo que debería hacer es que si mi numero dado tiene un decimal igual a 0.3 ese numero se convierte en 1, pero no lo hace, bueno sí lo hace, unicamente para los numeros 0.3 y 1.3 para cualquier otro numero, digase 2.3, 33.3, 104.3 me devuelve 0 (cero).

WTH!
Me gustaría saber que pedo, porqué hace eso, como lo soluciono?

Saludos y gracias de antemano

[JoaoM]

Con 13 sea menos sean mas mensajes en el foro de la WEB, te dirán lo mismo que a todos, aunque pienso que son un tanto flexibles TAN CLARO como esto:

Aquí, en tu mensaje solo una exposición de lo que te pasa y LO QUE PRETENDES obtener y en tu libro de ejemplo, ESTE con la estructura de tu libro a subir y un ejemplo de lo que pretendes obtener.

En un párrafo de las normas dice que adjuntes un ejemplo para que así el experto tenga una idea de lo que te pasa y lo que pretendes y así poder ayudarte.

Sin que subas un ejemplo, tal vez te quedes esperando el 2020
El ejemplo no necesariamente tiene que sr completo pero algo con la estructura de tu libro y con el ejemplo de lo que quieres que haga, complete, solicite, busque ect ect.

Tu Fecha de Ingreso: 31/01/2009

[jchuk]

Hola,

Prueba así (en rojo la modificación):

Function MiRedondeo(numero As Double) As Double
Dim entero As Long
Dim decima As Double
entero = Int(numero) 'Obtenemos el entero
decima = numero - entero 'Obtenemos la parte decimal

'Hacemos un condicional
If Round(decima,1) = 0.3 Then
MiRedondeo = 1
Else
MiRedondeo = 0
End If
End Function

Saludos!

Pd: Para JoaoM, No creo que estés muy autorizado para expresarte de ese modo. Si puedes aportar algo, apórtalo, pero participar para regañar a la gente por nada.....

[BlackShark]

Aja, muchísimas gracias jchuk, con esa leve correción empezo a funcionar correctamente.

[jchuk]

OK, me alegro,

Fue un placer

[JoaoM]

Iniciado por jchuk

Pd: Para JoaoM, No creo que estés muy autorizado para expresarte de ese modo. Si puedes aportar algo, apórtalo, pero participar para regañar a la gente por nada.....

NO regañe a nadie ni soy moderador ni administrador, solo recordé las normas que rigen en esta WEB.

Por eso te digo y repito no soy quien para tal fin a que tu mensionas, las normas están para leerlas amigo y cumplirlas.
Si tte ofendi a ti o a otro usuario, no me queda mas que pedirles disculpas pero, RECUERDA las normas que rigen para TODOS

[mrocf]

Iniciado por JoaoM

... En un párrafo de las normas dice que adjuntes un ejemplo para que así el experto tenga una idea de lo que te pasa y lo que pretendes y así poder ayudarte ...

¿Puedo decir que jamás he leído tal Norma en este Foro?...

Es decir: No es que tal adjunto no ayude a entender el problema: ¡Eso es obvio!

Pero afirmar:

Iniciado por JoaoM

... las normas están para leerlas amigo y cumplirlas.

me parece que excedería las normativas de este Foro, y debería ser -por lo tanto- un comentario en tono de sugerencia y no de imposición o reproche.

De no ser así (me refiero a la efectiva existencia de tal Norma): ¿Alguien tendría la amabilidad de orientarme sobre este particular?...
Saludos, Cacho R.

[Omura]

sobre esta norma...

En un párrafo de las normas dice que adjuntes un ejemplo para que así el experto...

no se si sea el caso, me parece haber leído algo similar... pero en otro foro, con una mecánica totalmente distinta en el tema de preguntas y respuestas

JoaoM usar MAYUSCULAS según las normas de netiqueta es gritar, eso sumado a tu forma de responder si puede ser malinterpretado, me queda claro que tu intención no era la de atacar, lamentablemente al ser texto plano, no vemos expresiones ni escuchamos tonos de voz, por eso para algunos tu mensaje si puede ser tomado de esa forma y caer en la si existente norma 2.10...

2.10 Los usuarios deben usar un lenguaje cortés, respetuoso y gentil...

si bien se dan varios casos en los que se solicita ayuda sin dar detalles del problema, en este caso en particular, al tratarse de una función personalizada, no era necesario indicar estructura de la hoja, celdas, ni nada por el estilo, simplemente era un error de código y con el ejemplo que dio era mas que suficiente para comprender por donde iba la falla.

creo que para casos en que la pregunta no este bien formulada y/o no incluya datos básicos bastaría con ignorarla o en todo caso decir... tu consulta no esta clara / bien formulada, para que podamos ayudarte por favor da mas detalles o algo similar.

creo que esto queda sobrando...

Iniciado por JoaoM

Con 13 sea menos sean mas mensajes...

Tu Fecha de Ingreso: 31/01/2009

finalmente, la consulta que genero este post ya fue solucionada, aclarado lo otro (no hubo mala intención de ninguna parte), no hace falta seguir con el tema

[JoaoM]

En tono amigable y de aclaratoria

JoaoM usar MAYUSCULAS según las normas de netiqueta es gritar, eso sumado a tu forma de responder si puede ser malinterpretado, me queda claro que tu intención no era la de atacar, lamentablemente al ser texto plano, no vemos expresiones ni escuchamos tonos de voz, por eso para algunos tu mensaje si puede ser tomado de esa forma y caer en la si existente norma 2.10...

Estoy de acuerdo contigo sobre el uso de MAYUSCULAS.
Creo y dime si me equivoco; el uso de mayúsculas en un post completo o parcial en que la mayoría de las líneas son en mayúsculas, pero que no, (pienso yo) para referenciar una determinada palabra.
Aquí "Escribir claro (sin errores en lo posible)" tomo el párrafo que dice:

En lo posible, intenta respetar no solo las reglas ortográficas, sino las gramaticales, utiliza los signos de puntuación dónde sea necesario para hacer la lectura más comprensible. Dirígete a los usuarios con respeto y educación, y nunca escribas tu mensaje completamente con MAYUSCULAS, porque ya deberías saber que eso se toma como una falta de respeto, como que el usuario grita, y nadie quiere eso.

Mis saludos y no tomen como critica destructiva mi comentario, no fue esa mi intención y si de dar una guía al usuario para que reciba una respuesta de algún experto en el asunto de su preocupación.

Para mi, cerrado el tema