Extraire la partie décimale d'un nombre

Bonjour, je souhaite extraire la partie décimale d'un nombre; jusque là pas de problème, je fais un :

Code:

---

dec := nb - Trunc(nb);

---

Mais pour 5,45, j'aurais 0,45.
Or, je veux 45 seulement, qu'il soit transformé en entier quoi.

Existe-t-il un algorithme ou une fonction pour faire ceci svp ?

Merci d'avance

Vou,

Pas de solution miracle. Tu prends la partie décimale, et tu la multiplies par 100, en prenant le trunc de cette multiplication (100 n'est qu'un exemple, ça peut être autre chose, selon le nombre de chiffres désirés, bien entendu).

Bonsoir,

Citation:

---

Envoyé par syntaxlb

Code:

---

dec := nb - Trunc(nb);

---

---

Tu peux utiliser directement la fonction Frac :

Code:

---

partieDecimale = Frac(nombre); // Frac(123,456) = 0,456

---

Citation:

---

Envoyé par syntaxlb

Mais pour 5,45, j'aurais 0,45.
Or, je veux 45 seulement, qu'il soit transformé en entier quoi.
Existe-t-il un algorithme ou une fonction pour faire ceci svp ?

---

Tu multiplies la partie décimale par dix, jusqu'à ce que la partie décimale de la partie décimale soit nulle ! :aie:

--
Wachter

Bonsoir, essaie ceci.

Code:

---

1 2 3

MOD((NOMBRE*100),100 //) s'il ya 2 chiffres après la virgule. MOD((NOMBRE*1000),1000) // s'il ya 3 chiffres après la virgule. MOD((NOMBRE*10000),10000) // s'il ya 4 chiffres après la virgule. Ainsi de suite...

---

Exemple: Pour 5,45 on a: MOD((5,45 *100),100)= 45

Code:

---

1 2 3

var x:String begin x:=FormatCurr('0',165.25);

---

Resultat X=165

:D

Bonjour,

Citation:

---

Envoyé par progilic

var x:String
begin
x:=FormatCurr('0',165.25);

Resultat X=165

:D

---

Apparemment tu n'as pas compris : c'est la partie décimale que syntaxlb veut extraire. :(