Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Redondeo
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Redondeo 
 
Buenos días!.

Estaba probando la función Round para redondear los decimales con los "euros".  
Funcionaba pero cuando probé otras cifras....dejó de valerme.

Ups...je, he usado la base imponible..por eso lo del iva. En este caso es un 10%.
Cambio el ejemplo..ras, ras, ras..

Primer ejemplo:

' gambas module file

'https://www.elmundo.es/especiales/2001/11/economia/euro/50c.html

Public Sub Main()
  
  Print 35 / 1.1, Round(35 / 1.1, -2)
  Print 35 / 1.1, RedondeoBaseImponible(35, 10)
  Print
  Print 43 / 1.1, Round(42 / 1.1, -2) ' No vale    
  Print 43 / 1.1, RedondeoBaseImponible(43, 10)
  
End

Public Function RedondeoBaseImponible(valor As Float, fiva As Integer) As Float
  
  Dim $valor As String
  
  $valor = Format(valor / (1 + fiva / 100), "-#.##")
  Return Val($valor)
  
End
 


Resultado:

Citar:

31,8181818181818        31,82
31,8181818181818        31,82

39,0909090909091        38,18
39,0909090909091        39,09


Otro ejemplo que estuve probando con más código para hacerlo mas didáctico uso más variables.

Private Const iva As Float = 1.1
Private Const precio As Integer = 35

Private valores As Integer[] = [5, 6, 7, 8, 9]

Public Sub Main()
  
  Print (RedondeoEuro2Baseimponible(precio, iva))
  
End

Public Sub RedondeoEuro2Baseimponible(ipvp As Integer, fiva As Float) As Float
  
  Dim pentera As Integer
  Dim pdecimal As Float
  Dim $pdecimal As String
  Dim numerorendondeado As String
  
  pentera = precio / iva
  pdecimal = Frac(precio / iva)
  
  $pdecimal = Str(pdecimal)
  
  If pdecimal > 0 Then
    If valores.Exist(Val(Mid($pdecimal, 5, 1))) Then
      pdecimal = pdecimal + 0.01
    Endif
  Endif
  
  numerorendondeado = Str(pentera) & Mid(Str(pdecimal), 2, 3)
  
  Return Val(numerorendondeado)
  
End

 


Y ya ta!.

Resultado:

Citar:

31,82


El ejemplo está hecho con la mayor rapidez a velocidad de café , bostezo y trompazo con el teclado.

Saludos
 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
última edición por Shell el Lunes, 30 Septiembre 2019, 09:23; editado 2 veces 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Redondeo 
 
Shell escribió:  
Buenos días!.

Estaba probando la función Round para redondear los decimales con los "euros".  
Funcionaba pero cuando probé otras cifras....dejó de valerme.

Primer ejemplo:

' gambas module file

Public Sub Main()
  
  Print 35 / 1.1, Round(35 / 1.1, -2)
  Print 35 / 1.1, RedondeoBaseImponible(35, 10)
  Print
  Print 43 / 1.1, Round(42 / 1.1, -2) ' No vale    
  Print 43 / 1.1, RedondeoBaseImponible(43, 10)
  
End
 


Resultado:

31,8181818181818        31,82
31,8181818181818        31,82

39,0909090909091        38,18
39,0909090909091        39,09


Este quizás no te has equivocado?
  Print 43 / 1.1, Round(42 / 1.1, -2) ' No vale    

Quizás  Print 43/1.1, Round(43/1.1, -2) esto da 39,09 como se esperaba del siguiente.

Solo pregunto por si acaso, sino a mi que me registren, payo.

Saludos
 



 
última edición por gambafeliz el Lunes, 30 Septiembre 2019, 15:39; editado 2 veces 
gambafeliz - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Redondeo 
 
¿Esto no hace lo mismo?

Print Round((35 / 1.1) * 100) / 100

 



 
cogier - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Redondeo 
 
GambaFeliz:

Citar:

Este quizás no te has equivocado?
Print 43 / 1.1, Round(42 / 1.1, -2) ' No vale


Efectivamente, me había equivocado ya que no me interesaba el valor 43. Y tenía que inventarme valores para poder hacer el redondeo.
A esas horas mi cabeza no va como tiene que ir. Cuando se duerme tres horas..hubo un día que dormí 15 minutos.

En parte eso ocurre al repetir valores mágicos y no usar variables, constantes.

Cogier:

Citar:

¿Esto no hace lo mismo?


Correcto. Solo que no lo ví desde el primer instante.
Esperaba que la función "Round" solucionase ella sola el problema.
En el caso de redondear un valor expresado en euros ella sola no puede.

Todo es cuestión de practica o el mayor o menor uso de la función o funciones, ocurre con todas.
Sinceramente como no suelo usar Round de ahí el problema de no verlo.

Gracias a los dos.

Hoy antes de ver la respuesta al mensaje. Estaba probando a usar la función split de cadenas con el valor en euros, pero era complicarlo mucho.

Saludos
 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Redondeo 
 
Shell escribió:  
A esas horas mi cabeza no va como tiene que ir. Cuando se duerme tres horas..hubo un día que dormí 15 minutos.


Tu no serás el gigoló del Bar nocturno de ese pueblo, uhn, ¿cual era?

Oye joven, dormir poco no trae nada bueno. Intenta dar con una solución y que no sea artificial, mejor agotate durante el día de forma moderada y eso sí, nunca te agotes físicamente durante la tarde-noche, por que sino, es posible que tu cuerpo no te deje dormir.

Puntos claves:
1. Duerme en completa oscuridad.
2. Agota tu cuerpo de forma moderada.
3. No tengas led iluminando de forma indirecta tu dormitorio.
4. Una buena ducha es ideal así como acondicionar el dormitorio con una buena climatización.
5. Desconectate del todo del mundo.
6. Si estas bien y puedes has el amor    
7. Pon una almohada entre tus rodillas y duerme de lado, mejor el lado izquierdo. Pero no te obsesiones.

8. Ya esta bien duermete ya, coones.

 
 



 
gambafeliz - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Redondeo Y Decimales Shell General 3 Sabado, 15 Junio 2013, 17:53 Ver último mensaje
shordi
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron