Afficher plus de 14 décimales en VB ?

Salut,
En vb6, tu peux essayer ce code, c'est le tien et mes modifs sont en rouge :

Dim s As Variant
Dim sm1 As Variant
Dim phi As Double
Dim k As Single

Private Sub Command1_Click()
Let phi = (1 + 5 ^ 0.5) / 2
Let k = 0
Let s = CDec(0)
Do
    Let sm1 = s
    Let s = ((-1) ^ k) / (2 * k + 1) * (((phi - 1) ^ (2 * k + 1)) + ((2 * phi - 3) ^ (2 * k + 1))) + s
    Let k = k + 1
Loop Until s = sm1

Let s = 4 * s
List1.AddItem s
End Sub

Explication : en vb6 il existe le format Decimal mais, bizarrement on ne peut le déclarer en dim s as decimal.
L'astuce consiste à déclarer une variable en variant puis de l'initialiser avec s = cdec(tavaleur).


-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?