Elevando una cifra

[[felipe88]]

Hola a todos, tengo una simple duda...

Digamos que tengo este número 35.459, ¿existe alguna fórmula en Delphi para que se convierta en 40.000?; o por ejemplo 27.684 a 30.000

De antemano gracias

[[egostar]]

Hola

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(inttostr(round(35.459*0.1)*10));
  ShowMessage(inttostr(round(27.684*0.1)*10));
end;

Salud OS

[[felipe88]]

Gracias amigo... pero hay un pequeño problema, en este caso no podría multiplicar por 10 ya que el resultado sería 40 ó 30 para el segundo caso, habría que multiplicarlo por 1.000, pero digamos que tuviera 4.556 para convertirlo a 5.000 sería por 100...
Se que es un algoritmo fácil, pero estoy un tanto frio de mente hoy ... y evito tener que evaluar si cada número es mayor de 10, 100, 1.000... etc

[[egostar]]

Empezado por felipe88

Gracias amigo... pero hay un pequeño problema, en este caso no podría multiplicar por 10 ya que el resultado sería 40 ó 30 para el segundo caso, habría que multiplicarlo por 1.000, pero en el caso de que tuviera 4.556 para convertirlo a 5.000 sería por 100...
Se que es un algoritmo fácil, pero estoy un tanto frio de mente hoy ... y evito tener que evaluar si cada número es mayor de 10, 100, 1.000... etc

A ver amigo, el punto es decimal o de millares

Salud OS

[[felipe88]]

Empezado por egostar

A ver amigo, el punto es decimal o de millares

Salud OS

... no te asustes, pero si es de miles

[[egostar]]

Empezado por felipe88

... no te asustes, pero si es de miles

Ahh, pues entonces así

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(inttostr(round(35459*0.0001)*10000));
  ShowMessage(inttostr(round(27684*0.0001)*10000));
end;

Salud OS