Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Go Back   Foros Club Delphi > Principal > Varios
Register FAQ Members List Calendar Guía de estilo Search Today's Posts Mark Forums Read

Coloboración Paypal con ClubDelphi

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 23/01/2007
JULIOCTORRESG JULIOCTORRESG is offline
Miembro
 
Join Date: Sep 2006
Posts: 58
Poder: 21
JULIOCTORRESG Va por buen camino
redondear con dos decimales

buenas amigos del foro...

tengo el siguiente problema...tengo datos numericos en una tabla y quiero presentarlos en formato 2 enteros y 2 decimales, con otro lenguaje existe una funcion trunc que permite truncar cortar limitar la salida a este formato pero el problema es que quiero que redondee el valor

Ejemplo en la tabla tengo : 14,15213 que salga 14,15
14,15891 que salga 14,16

se seguro ya me entendieron y es inutil tanta explicacion el caso es que no se cual es la funcion que hace esto

agradecido por su ayuda...
Reply With Quote
  #2  
Old 23/01/2007
roman's Avatar
roman roman is offline
Moderador
 
Join Date: May 2003
Location: Ciudad de México
Posts: 20,269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Código Delphi [-]
ShowMessage(FormatFloat('0.00', 14.15891));

// Saludos
Reply With Quote
  #3  
Old 15/04/2009
Crashthebig's Avatar
Crashthebig Crashthebig is offline
Miembro
 
Join Date: Oct 2006
Location: Republica Dominicana
Posts: 59
Poder: 20
Crashthebig Va por buen camino
http://www.clubdelphi.com/foros/show...071#post345071

revisa en este hilo ahy hay una solucion.
__________________
Marcos: Delphi programmer
Desde Republica Dominicana Pa'l mundo entero
http://webhacker.webcindario.com
Reply With Quote
  #4  
Old 15/04/2009
Alexandro's Avatar
Alexandro Alexandro is offline
Miembro
 
Join Date: Mar 2008
Location: Mayarí Holguín Cuba
Posts: 127
Poder: 19
Alexandro Va por buen camino
Wink

Puedes hacerlo de la sgte forma tambien:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  r:real 
begin
   real:=131313131.0982037;
   Str(r:2:2,s);
   ShowMessage(s);
end;
__________________
Cuando las cosas van mal, recuerda que aún pueden ir peor
Reply With Quote
  #5  
Old 15/04/2009
rgstuamigo's Avatar
rgstuamigo rgstuamigo is offline
Miembro
 
Join Date: Jul 2008
Location: Santa Cruz de la Sierra-Bolivia
Posts: 1,646
Poder: 20
rgstuamigo Va por buen camino
Arrow

Yo utilizarìa la funcion RoundTo que utiliza el redondeo bancario(Banker’s rounding)por ejemplo:
Código Delphi [-]
 RoundTo(14,15891,-2)=14,16 
Ten en cuenta que el segundo parametro es el que indica la cantidad de decimales que quieres que aparesca, por supuesto tambien trabaja con el segundo parametro en positvo; aqui te pego unos ejemplo que viene en la ayuda de Delphi 7.
De la ayuda de Delphi>
Quote:
RoundTo(1234567, 3) 1234000
RoundTo(1.234, -2) 1.23
RoundTo(1.235, -2) 1.24
RoundTo(1.245, -2) 1.24
Note: The behavior of RoundTo can be affected by the Set8087CW procedure or SetRoundMode function.
Saludos....
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7
Reply With Quote
  #6  
Old 27/09/2015
agofay agofay is offline
Registrado
NULL
 
Join Date: Sep 2015
Posts: 2
Poder: 0
agofay Va por buen camino
FormatFloat

Buscando eso mismo esncontré FormatFloat, lo cual me resultó muy cómoda y cumple el cometido
no tengo permiso editar la dirección del enlace, pero lo encontré en delphibasics co uk
donde explican sencilla y ampliamente el tema.

Intento pegar el código de ejemplo pero me sale el mensaje: Aún no tienes permitido poner enlaces ni imágenes
pero no tengo enlaces ni imágenes, asi que no se que pasa, se los quedo debiendo

Enlace: Delphi Basics : FormatFloat

Last edited by ecfisa : 27/09/2015 at 19:02. Reason: Agregar enlace
Reply With Quote
  #7  
Old 27/09/2015
ecfisa's Avatar
ecfisa ecfisa is offline
Moderador
 
Join Date: Dec 2005
Location: Tres Arroyos, Argentina
Posts: 10,508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola agofay.
Quote:
Originally Posted by agofay View Post
Intento pegar el código de ejemplo pero me sale el mensaje: Aún no tienes permitido poner enlaces ni imágenes
pero no tengo enlaces ni imágenes, asi que no se que pasa, se los quedo debiendo
No sucede nada extraño, para limitar el ingreso de publicidad no autorizada se estableció que se debe contar con un mínimo de diez (10) mensajes para poder publicar enlaces.

Cuando tengas esa cantidad lo podrás hacer sin inconvenientes, mientras tanto podes poner algún espacio en la dirección vg.:
http: //www.delphibasics.co.uk/RTL.asp?Name=FormatFloat

Luego algún moderador la corregirá.

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Last edited by ecfisa : 27/09/2015 at 01:35.
Reply With Quote
Reply


Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Redondear numeros decimales a enteros.... uper Varios 6 26/07/2012 16:52
Redondear? diniremix Varios 12 20/05/2006 00:18
Cómo Redondear a 4 decimales un campo de tipo Numérico vick Conexión con bases de datos 1 11/10/2005 01:04
Redondear a n decimales Vivi Varios 4 09/09/2005 15:13
Redondear decimales en Jbuilder Irina JAVA 0 21/05/2003 18:15


All times are GMT +2. The time now is 12:34.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi