Redondear?

[diniremix]

hola gracias d nuevo a todos
m intereso una de llonigualker en otro foro

Código Delphi [-]
Function Redondeos(Var Numero: real; Cant: Integer; TipoRedondeo: Char): String;
var
Formato: String;
j: Integer;
Begin
// 'S' o 's' significa Redondeo Simétrico, de lo contrario es Truncado.
if (TipoRedondeo = 's') or (TipoRedondeo = 'S') then
Begin
if Cant = 0 then
Formato := '0'
else
Formato := '0.';
for j:=1 to Cant do
begin
Formato := Formato + '0';
end;
Result := FormatFloat(Formato,Numero);
End
Else
Begin
Result := Copy(FloattoStr(Numero),1,Pos(',',FloattoStr(Numero))-1) + Copy(FloattoStr(Numero),Pos(',',FloattoStr(Numero)),Cant+1);
End;
End;

y d marcoszorrilla

originalmente escrito por marcoszorrilla

Otra solución a falta de la función en D5 es multiplicar el número por 1000, extraer la parte entera y volver a dividirlo por 1000.

ahh gracias seoane!!

[samantha jones]

si le sumas 0.49 al número logras el mismo efecto con el round

Código Delphi [-]
i:=round(numero + 0.49);

Saludos

[diniremix]

hola
sip!!
gracias samantha sabes eres la primera chica q veo en este foro ahh sip y caro eso es seguir adelante, mujeres como tu necesita el software libre!!

vivan la mujeres.... las dueñas de los hombres!!!

[marcoszorrilla]

Sé que estais pensando como es la Taberna, mobiliario, barra, aspecto.... he econtrado un enlace con una taberna que se parece en su aspecto mucho a la nuestra.

Un Saludo.