FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#7
|
||||
|
||||
es muy simple el redondeo solo debes incluir en la seccion uses la libreria math y utilizar la funcion SimpleRoundTo().
Esta funcion te permite redonder un numero de la siguiente forma: SimpleRoundTo(1234567, 3) 1234000 SimpleRoundTo(1.234, -2) 1.23 SimpleRoundTo(1.235, -2) 1.24 SimpleRoundTo(-1.235, -2) -1.23 ej: Código Delphi [-]var a,b,c:real begin a:=strtofloat(edit1.text); b:=strtofloat(edit2.text); c:=a/b; edit3.text:=floattostr(SimpleRoundTo(c,-2)); este codigo lo que hace es que hacer una division de dos numeros reales y formatea la salida para que el resultado de la division solo tenga dos cifras decimales ej: 53/3=17,6666666666667; pero con simpleroundto: 53/3=17.67
__________________
Marcos: Delphi programmer Desde Republica Dominicana Pa'l mundo entero http://webhacker.webcindario.com |
|
|
|