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

[[egostar]]

Ahora

Si son numeros de 2,3,4,5 etc cifras pues algo asi

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  numero: integer;
begin
  Numero := 35459;
  case length(inttostr(numero)) of
     2: ShowMessage(inttostr(round(Numero*0.1)*10));
     3: ShowMessage(inttostr(round(Numero*0.01)*100));
     4: ShowMessage(inttostr(round(Numero*0.001)*1000));
     5: ShowMessage(inttostr(round(Numero*0.0001)*10000));
  end;
end;

Salud OS

[[felipe88]]

... bueno, este último es válido aunque se extiende demasiado ... pero gracias amigo, me sirve para este momento

Saludos

[[felipe88]]

¿Alguna otra idea?, quiero complicar un tanto la cosa ...
Veámos, para el codigo que me da Eliseo, se mide la distancia de la cifra para determinar segun el case, si está entre 10, 100, 1000...etc

¿Ahora, matemáticamente como podría jugar con esto?.

Saludos

[[Delphius]]

Y digo yo... ¿porqué no lo generalizamos?

Algo así:

Código Delphi [-]
function TForm1.Digits(Number: integer): integer;
begin
  result := Length(IntToStr(Number));
end;

function Tform1.RoundUpNumber(Number: integer): integer;
var dig: integer;
begin
  dig := Digits(Number) - 1;
  result := trunc((round(Number * Power(0.1,Dig)) * Power(10,dig)));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(RoundUpNumber(35459)));
end;

Saludos,

[[felipe88]]

Me gusta la idea Delphius ... aunque aún estoy pensando en una fórmula

Saludos

[[Delphius]]

Empezado por felipe88

Me gusta la idea Delphius ... aunque aún estoy pensando en una fórmula

Saludos

Jajaja... no me digas... a ver... déjame adivinar: Esto lo haces a modo venganza por lo del otro hilo.

Pues esta vez me agarraste cansado, intento hacer ping a mi cerebro pero recibo puro timeouts. En estos momentos está off.

Si encuentras la fórmula avísame

Saludos,

[[felipe88]]

Empezado por Delphius

Jajaja... no me digas... a ver... déjame adivinar: Esto lo haces a modo venganza por lo del otro hilo.

Pues esta vez me agarraste cansado, intento hacer ping a mi cerebro pero recibo puro timeouts. En estos momentos está off.

Si encuentras la fórmula avísame

Saludos,

... relax Delphius... estoy pensando ...

Saludos