[RESUELTO] Como representar nros decimales como fracciones
#1
Escrito 21 abril 2010 - 05:14
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
#2
Escrito 21 abril 2010 - 10:58
Saludos.
#3
Escrito 21 abril 2010 - 11:37
#5
Escrito 21 abril 2010 - 12:13
#6
Escrito 21 abril 2010 - 03:13
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
Archivos adjuntos
#7
Escrito 21 abril 2010 - 03:29
Tiene un pequeño bug intencional, pero es cosa de lógica
Encontre uno:
denominador := power(10, (length(edit1.text) - pos(DecimalSeparator,edit1.Text)));
#8
Escrito 21 abril 2010 - 03:31
Salud OS
#9
Escrito 21 abril 2010 - 03:34
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
#10
Escrito 21 abril 2010 - 03:35
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
#11
Escrito 21 abril 2010 - 04:04
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;
#12
Escrito 21 abril 2010 - 04:08
.......
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 !
#13
Escrito 21 abril 2010 - 04:19
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