affichage des decimals

bonjour,

mon probleme est que dans mon application vb6 le resultat d un calcul est arrondie.

voici mon code :

'declare variable
        Dim dn As Double

dn = Val(txtciden.Text) - 0.85

si, par exemple, txtciden.Text = 0, dn devrait etre égale a -0.85 mais affiche 0.

comment faire pour afficher le bon resultat??

merci

Salut,
Ta variable dn  doit être en Single, ensuite

dn = CSng (txtciden.Text- 0.85)

Bonsoir,

Es-tu sur de tout nous dire ? En effet, le code suivant :

Sub ess()
'declare variable
Dim dn As Double
dn = Val("0") - 0.85
MsgBox dn
End Sub

renvoit bien -0,85...

Amicalement,
Us.

Salut us_30

Oui, mais il travaille avec des textbox, donc en string.
Pour ça le val ne suffit pas.

merci de la reponse rapide....

malheureusement, le code :

Dim dn As Single

dn = CSng(txtciden.Text - 0.85)

ne fonctionne pas

voici mon code au complet:

 

Private Sub cmdcalcci_Click()

           'Load method error window
        If btnci976.Value = False _
     And btnci4737a.Value = False _
     And btnci4737b.Value = False Then
MsgBox "Select an ASTM Method"
        End If
       
       
        'declare variable
        Dim dn As Double
        Dim t10n As Double
        Dim t50n As Double
        Dim t90n As Double
        Dim b As Double
        
        
            'calculate cetane index D4737 A
        If btnci4737a.Value = True Then
            dn = Val(txtciden.Text) - 0.85
            b = 2.71828 ^ ((-3.5) * Val(dn)) - 1
            t10n = Val(txtcit10.Text) - 215
            t50n = Val(txtcit50.Text) - 260
            t90n = Val(txtcit90.Text) - 310

            lblciden = Val(dn)
            lblcit10n = Val(t10n)
            lblcit50n = Val(t50n)
            lblcit90n = Val(t90n)
            lblcie = Val(b)

            lblci = 45.2 + (0.0892 * Val(t10n)) + (0.131 * Val(t50n)) + (0.0523 * Val(t90n)) + (0.901 * Val(b) * Val(t50n)) - (0.42 * Val(b) * Val(t90n)) + (0.00049 * Val(t10n) ^ 2) - (0.00049 * Val(t90n) ^ 2) + (107 * Val(b)) + (60 * Val(b) ^ 2)
            lblci = Format(lblci, "standard")

Salut,
Il faut déclarer ta variable dans générale (déclarations), non pas dans ton sub.

Dim dn  As Single

Ecris le ainsi, alors :

CSng(Val(txtciden.Text)) - 0.85

je suis debutant....comment je fais pour la declarer en generale?

CSng(Val(txtciden.Text)) - 0.85 ne fonctionne pas  non-plus