12 replies to this topic

[mmair]

Hola Amigos

estuve navegando por internet y encontre info un poco desactualizada, Quisiera saber si access tiene alguna funcion para representar numeros decimales como fracciones o si hay que hacer una personalizada para hacerlo? Uso access 2003

[enecumene]

Hola mmair, ¿eso lo quieres mostrar en Delphi o es en la misma BD de Access?.

Saludos.

[mmair]

Hola enecumene, podria ser en el mismo access si es que existe..

[enecumene]

Pues Aquí hay una función que realiza lo que deseas.

Saludos.

[mmair]

Muchas Gracias!!!! 

[egostar]

Hola

A ver que les parece este pequeño programa

Tiene un pequeño bug intencional, pero es cosa de lógica 

Salud OS

Edito: Bueno, en realidad son dos bugs 

Attached Files

•  1456_a0710e8d1ab7bb1a3c62895b1b77d521c09c82f9.zip   5.72KB   1 downloads
•  1455_f22fb5738ec36a718068a816087136e4edc9b708.zip   154.8KB   1 downloads

[seoane]

Tiene un pequeño bug intencional, pero es cosa de lógica 

Encontre uno:

delphi

denominador := power(10, (length(edit1.text) - pos(DecimalSeparator,edit1.Text)));

[egostar]

No, ese no es, eso hace lo que yo quiero

Salud OS

[seoane]

No, ese no es, eso hace lo que yo quiero

Salud OS

Pues siento decirte que con la configuración regional de España la aplicación falla. Aquí usamos la coma para separar los decimales. Jejeje

[egostar]

No, ese no es, eso hace lo que yo quiero

Salud OS

Pues siento decirte que con la configuración regional de España la aplicación falla. Aquí usamos la coma para separar los decimales. Jejeje

Joder!!!! 

Cambia tu configuración regional

Salud OS

[seoane]

Lo mismo que hizo egostar pero enrollandome mas 

delphi

var
  i,a,b,c: Integer;
  Str: String;
begin
  Str:= Edit1.Text;
  // Primero encontramos el numerador y el demanominador
  a:= 0;
  b:= 0;
  for i:= 1 to Length(Str) do
  begin
    if Str[i] in ['0'..'9']  then
    begin
      c:= StrToInt(Str[i]);
      a:= (a * 10) + c;
      b:= b * 10;
    end else  if (Str[i] = DecimalSeparator) and (b=0)  then
    begin
      b:= 1;
    end else
    begin
      // Mostrar el error
    end;
  end;
  // Luego usamos el algoritmo de euclides
  if b = 0 then
  begin
    Exit;
    // Mostramos el error
  end;
  c:= a mod b;
  if c > 1 then
  repeat
     a:= a div c;
     b:= b div c;
  until a mod c <> 0;
  Label1.Caption:= IntToStr(a) + '/' + IntToStr(b) ;
end;

[Fenareth]

.......

Pues siento decirte que con la configuración regional de España la aplicación falla. Aquí usamos la coma para separar los decimales. Jejeje

Entonces es un bug del país ?     

Saludox !  

[egostar]

Lo mismo que hizo egostar pero enrollandome mas 

  // Luego usamos el algoritmo de euclides

No se vale amigo, eso es trampa, yo no conocía ese algoritmo caramba, ahora me digo ¿porque fuí a la universidad y no entré a clases?

Salud OS