French Conversion de décimales

[Joss Girard]

Bonjour. Je suis en train de terminer une application dans laquelle je dois convertir des décimales en fractions. Exemple: 145.25 à 145.49 doit être transformé en 145 1/4; 145.50 à 145.74 en 145 1/2 etc... Malgré des heures d'efforts, je n'ai pû trouver de solution. Est-ce possible de le faire avec B4A?

 

[zouriteman]

voici le principe de la méthode (parmi d'autres)
Dim XA as Float
Dim JA , JB as Int
Dim FRACT , RESULT as String

XA = 145.43
(je suppose que vous n'avez que 2 décimales au plus)
JA = XA
(résultat = 145 ; on peut aussi utiliser Round() )
JB = (XA * 100) mod 100
(résultat = 14543 mod 100 = reste de la division par 100 = 43 )
FRACT = ""
if (JB >= 25) and (JB < 50 ) then FRACT = " 1/4"
if (JB >= 50) and (JB < 75 ) then FRACT = " 2/4"
if (JB >= 75) then FRACT = " 3/4"
RESULT = (JA) & FRACT

 

[Joss Girard]

Merci beaucoup Zouriteman. C'est exactement ce dont j'avais besoin pour terminer mon application.