Sujet Précédent Sujet Suivant

System.Math.Round

Résolu
cs_Sipat Messages postés 71 Date d'inscription mardi 26 octobre 2004 Statut Membre Dernière intervention 15 avril 2007 - 10 févr. 2007 à 11:18
cs_Sipat Messages postés 71 Date d'inscription mardi 26 octobre 2004 Statut Membre Dernière intervention 15 avril 2007 - 10 févr. 2007 à 13:53
Bonjour,
Pouvez-vous me dire la correspondance avec :



'Text2.Text = Round((Text4.Text / TVA), 3) ' en VB6 ne fonctionne plus


Text2.Text = CStr(System.Math.Round(CDbl(Text4.Text) / TVA, 3))


' en VB.NET 2003

Il n'y a encore pas plus leger que :
Text2.Text = System.Math.Round(Text4.Text / TVA, 3) fontionne en VB.NET 2003





Text6.Text = Text4.Text - Text2.Text 



'VB6 fonctionne

'Text6.Text = CStr(CDbl(Text4.Text) - CDbl(Text2.Text)) ' VB.NET 2003

Est-ce qu'il faut que je laisse CStr et CDbl pour un souci de compatibilité ou je peux les enlever vu que le calcule en VB6 ne les utilisé pas? et qu'il n'y a pas d'erreur si je les enlève en VB.NET 2003.
Merci.

2 réponses

Réponse 1 / 2
cs_Willi Messages postés 2375 Date d'inscription jeudi 12 juillet 2001 Statut Modérateur Dernière intervention 15 décembre 2018 22
10 févr. 2007 à 12:35
Salut,
A toi de voir System.Math.round mais il est préférable d'ajouter l'instruction "Option Strict On" et faire ces convertions soit même.

Je te conseille de faire la conversion en type numérique avec Convert.ToDouble
=> Math.Round(Convert.ToDouble(Text4.Text) / TVA,3)
3
Réponse 2 / 2
cs_Sipat Messages postés 71 Date d'inscription mardi 26 octobre 2004 Statut Membre Dernière intervention 15 avril 2007
10 févr. 2007 à 13:53
Bonjour Willi,
Je viens de  mettre l'instruction Option Strict sur ON  et de remettre comme VB.NET 2003 avait inscrit exp:
Text2.Text =

CStr(System.Math.Round(
CDbl(Text4.Text) / TVA, 3))

Text6.Text =
CStr(
CDbl(Text4.Text) -
CDbl(Text2.Text))

Text8.Text =
CStr((
CDbl(Text2.Text) -
CDbl(Text1.Text)) /
CDbl(Text4.Text) * 100)

Text7.Text =
CStr(
CDbl(Text2.Text) -
CDbl(Text1.Text))

Text5.Text =
CStr(
CDbl(Text4.Text) /
CDbl(Text1.Text))

J'espére avoir bien compris ce que tu voulais dire.
Merci.
0
Rejoignez-nous