D=E9sol=E9, je n'ai pas bien compris l'int=E9gration de "Round"=20
pour les arrondis ! !
Dans cet exemple pr=E9cis pourriez vous int=E9grer une=20
fonction arrondi =E0 2 d=E9cimales pr=E8s svp.
Private Sub Command1_Click()
Dim lNb1 As Long, lNb2 As Long,Dim lTot As Long
lNb1 =3D Val(Text1.Text)
lNb2 =3D Val(Text2.Text)
lTot =3D lNb1 * lNb2
Text3.Text =3D lTot
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Zoury
> Dans cet exemple précis pourriez vous intégrer une fonction arrondi à 2 décimales près svp.
<snip>
Dim lNb1 As Long, lNb2 As Long,Dim lTot As Long
Objectivement non. Tu utilises des types Long (entier) pour tes calculs et tu ne fais aucune division, il n'y aura donc jamais de valeur décimale dans ton résultat. ;O)
Text3.Text = lTot
Ce que tu cherches à faire en fait c'est **formatté** ta valeur afin de lui faire représenter un nombre décimal. Utilise Format$() qui te renvoit la valeur arrondi (de manière "standard") en String : '*** Text3.Text = Format$(lTot, "# ##0.00") '***
-- Cordialement Yanick Lefebvre - MVP pour Visual Basic Le français se refait une beauté, parlons en : http://www.orthographe-recommandee.info/
> Dans cet exemple précis pourriez vous intégrer une
fonction arrondi à 2 décimales près svp.
<snip>
Dim lNb1 As Long, lNb2 As Long,Dim lTot As Long
Objectivement non. Tu utilises des types Long (entier) pour tes calculs et
tu ne fais aucune division, il n'y aura donc jamais de valeur décimale dans
ton résultat. ;O)
Text3.Text = lTot
Ce que tu cherches à faire en fait c'est **formatté** ta valeur afin de lui
faire représenter un nombre décimal.
Utilise Format$() qui te renvoit la valeur arrondi (de manière "standard")
en String :
'***
Text3.Text = Format$(lTot, "# ##0.00")
'***
--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
Le français se refait une beauté, parlons en :
http://www.orthographe-recommandee.info/
> Dans cet exemple précis pourriez vous intégrer une fonction arrondi à 2 décimales près svp.
<snip>
Dim lNb1 As Long, lNb2 As Long,Dim lTot As Long
Objectivement non. Tu utilises des types Long (entier) pour tes calculs et tu ne fais aucune division, il n'y aura donc jamais de valeur décimale dans ton résultat. ;O)
Text3.Text = lTot
Ce que tu cherches à faire en fait c'est **formatté** ta valeur afin de lui faire représenter un nombre décimal. Utilise Format$() qui te renvoit la valeur arrondi (de manière "standard") en String : '*** Text3.Text = Format$(lTot, "# ##0.00") '***
-- Cordialement Yanick Lefebvre - MVP pour Visual Basic Le français se refait une beauté, parlons en : http://www.orthographe-recommandee.info/
Tof
Merci pour cette réponse !
-----Message d'origine-----
Dans cet exemple précis pourriez vous intégrer une fonction arrondi à 2 décimales près svp.
<snip>
Dim lNb1 As Long, lNb2 As Long,Dim lTot As Long
Objectivement non. Tu utilises des types Long (entier)
pour tes calculs et
tu ne fais aucune division, il n'y aura donc jamais de
valeur décimale dans
ton résultat. ;O)
Text3.Text = lTot
Ce que tu cherches à faire en fait c'est **formatté** ta
valeur afin de lui
faire représenter un nombre décimal. Utilise Format$() qui te renvoit la valeur arrondi (de
manière "standard")
en String : '*** Text3.Text = Format$(lTot, "# ##0.00") '***
-- Cordialement Yanick Lefebvre - MVP pour Visual Basic Le français se refait une beauté, parlons en : http://www.orthographe-recommandee.info/
.
Merci pour cette réponse !
-----Message d'origine-----
Dans cet exemple précis pourriez vous intégrer une
fonction arrondi à 2 décimales près svp.
<snip>
Dim lNb1 As Long, lNb2 As Long,Dim lTot As Long
Objectivement non. Tu utilises des types Long (entier)
pour tes calculs et
tu ne fais aucune division, il n'y aura donc jamais de
valeur décimale dans
ton résultat. ;O)
Text3.Text = lTot
Ce que tu cherches à faire en fait c'est **formatté** ta
valeur afin de lui
faire représenter un nombre décimal.
Utilise Format$() qui te renvoit la valeur arrondi (de
manière "standard")
en String :
'***
Text3.Text = Format$(lTot, "# ##0.00")
'***
--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
Le français se refait une beauté, parlons en :
http://www.orthographe-recommandee.info/
