Un point d’arrêt sur la fonction WorksheetFunction.RoundDown() ?

Bonjour,
La fonction

Citation:

---

WorksheetFunction.RoundDown(Number,n)

---

telle q'elle est définie en VB arrondit un nombre à la valeur d'arrondi la plus proche de zéro. La valeur renvoyée est double. Les arguments Number et n sont de type double comme déclaré dans la définition.
Testant cette fonction en créant la fonction personnalisée suivante sous EXCEL:

Code:

---

1 2 3

Public Function App(x As Double) As Double App = WorksheetFunction.RoundDown(x, 14) End Function

---

Citation:

---

donnant à x la valeur 12.85 Résultat App=12.85 OK

---

Maintenant changeant le type de la variable x du Double au Single comme suit :

Code:

---

1 2 3

Public Function App(x As Single) As Double App = WorksheetFunction.RoundDown(x, 14) End Function

---

Normalement App="Valeur!" du moment où le type de la variable x ne convient pas à la définition de la fonction en question.

Citation:

---

donnant à x la valeur 12.85 Résultat App=12.5799999237061???!!!

---

Ensuite, déclarant le résultat de App() en Single comme suit :

Code:

---

1 2 3

Public Function App(x As Single) As Single App = WorksheetFunction.RoundDown(x, 14) End Function

---

Citation:

---

Pour x = 12.85 App = 12.57999992370600 ???!!!

---

Il en est de même pour :

Code:

---

1 2 3

Public Function App(x As Double) As Single App = WorksheetFunction.RoundDown(x, 14) End Function

---

Alors, qu'est ce que vous en pensez ?
Cordialement

Bonsoir

3 sujets pour une même approche: Comprendre la représentation informatique des nombres à virgule flottante qu'ils soient en simple ou en double précision.

Citation:

---

Les variables de type Double (à virgule flottante en double précision) sont stockées sous la forme de nombres à virgule flottante de 64 bits (8 octets) IEEE

---

Citation:

---

Les variables de type Single (à virgule flottante en simple précision) sont stockées sous la forme de nombres à virgule flottante de 32 bits (4 octets) IEEE

---

Encore un lien http://support.microsoft.com/kb/125056/fr

Ensuite un exemple:

Code:

---

1 2 3 4 5 6 7 8 9

Sub Test() Dim D As Double Dim S As Single   S = 36.1 MsgBox "Single: " & S D = S MsgBox "Double: " & D End Sub

---

Bonjour,
Effectivement, autre remarque au sujet de :

Citation:

---

WorksheetFunction.RoundDown(Arg1, Arg2)

---

Arg2 en principe devrait être du type Integer du moment où il précise le Nb de chiffre après la virgule pour lequel l'Arg1 doit être arrondi.
La définition de la fonction en VB lui attribue le type Double ??????!!!!!