funcion de redondeo de decimales

[Rabata]

Mi cuestion es la siguiente;

Me gustaría saber si en Delphi, hay alguna instrucción k me redondee los decimales???

ejemplo:
6,3456780345

y lo k kiero obtener es:
6,346 (despues del redondeo)

Muchas Gracias por Vuestra Colaboración.......

[delphi.com.ar]

Hay ya muchos hilos en el foro que tratan este tema..-.
http://www.clubdelphi.com/foros/search.php?s=&action=showresults&searchid=29683&sortby=lastpost&sortorder=descending

Saludos!

[Al González]

:) ¡Buen día a todos!

Rabata:

En Delphi existen dos funciones que te pueden servir: Round y SimpleRoundTo.

Round hace redondeo bancario al valor entero más cercano.

SimpleRoundTo hace redondeo aritmético asimétrico (yo le llamo asimétrico ascendente).

Por otra parte, actualmente estoy terminando unas funciones, que aparte de permitir redondear a precisiones decimales específicas (1, 2, 3... decimales), también permiten indicar uno de cinco tipos de redondeo posibles:

Bancario (predeterminado de Round, norma internacional "al par")
Asimétrico ascendente (predeterminado de SimpleRoundTo)
Asimétrico descendente
Simétrico ascendente
Simétrico descendente

El término ascendente o descendente se refiere a la manera en que se redondea un número cuando la parte a redondear está exactamente entre el posible valor redondeado inferior y el superior (potencia decimal de 5: .5, .xxx5, 50, 500 etc.), es decir, cuando es ascendente 0.5 sube a 1 y cuando es descendente 0.5 baja a 0.

La simetría o asimetría determina si se aplica la misma regla cuando el valor es negativo.

Para darte un ejemplo breve, en un sistema de facturación para el área comercial mexicana, establezco la variable TipoRedoNume (Tipo de Redondeo Numérico) a trnSimeDesc (Simétrico Descendente) al comienzo de la aplicación. Posteriormente puedo realizar llamadas a la función MonedRedoCent (Moneda Redondeada a Centavos), con la seguridad de que los cálculos monetarios serán redondeados según las normas mercantiles y fiscales de México.

Cuando gustes te puedo hacer llegar una copia de la biblioteca donde tengo dichas funciones.

Espero esto sea de utilidad. Seguimos en contacto.

Al González :).