Arrondi scientifique en VB -- Impossible ??? Aidez-moi !!!Résolu

Question

Bonjour à tous !

Je développe actuelle ment un programe, appelé Impact Calculator, en lien avec le CNRS, le CNES, l'Ecole Normale Supérieure.
Ce programme calcule les effets d'un impact météoritque dont l'utilisateur donne les principales caractéristiques.

Voici mon problème : j'obtiens des nombres du type : 1,6667567562342564 E+24   et je n'arrive pas à les arrondir comme ceci : 1,67 E+24. En effet, il ne s'agit de nombres non décimaux, mais très grands. Comment faire ?  La fonction "format" ne fonctionne pas. Dois-je définir mes variables autrement ??? 

Merci d'avance pour votre aide !!!

Cordialement,

Paul

Gobillot · Accepted Answer

j'ai pas ce probl&#232;me,

&#233;tant donn&#233; que "3.20E+1" est seulement une cha&#238;ne, donc du texte, il n'y a pas de param&#232;tres particuliers &#224; appliquer au Label.





la r&#233;pr&#233;sentation du nombre et le nombre lui m&#234;me sont 2 choses diff&#233;rentes.

en interne le nombre est en binaire, et en flottant il est form&#233; d'une mantisse et d'un exposant.

mais le Label  "s'en fout" que &#231;a repr&#233;sente un nombre ou pas.



  Dim nbr1 As Double

    

   nbr1 = 32



'  pour arrondir le nombre si n&#233;cessaire (c'est pas le cas ici)

   nbr1 = Format$(nbr1, "0.00E+")     



'  pour afficher le nombre dans le Format souhait&#233;

   Label1 = Format$(nbr1, "0.00E+")  




Daniel

jpleroisse · Answer

Bonsoir,

Essaye ceci.



Private Sub Command1_Click()

MsgBox Mid$("1,6667567562342564 E+24", 1, 4) & _

Right("1,6667567562342564 E+24", 5)

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez r&#233;ponse Accept&#233;e.

Gobillot · Answer

Dim nbr1 As Double

    Dim nbr2 As Double

    

    nbr1 = 1.66675675623426E+24

    nbr2 = Format$(nbr1, "0.00E+")

    MsgBox nbr2


Daniel

cs_Paul73 · Answer

Merci de vos réponses très intéressantes. Cependant, mon problème persiste à certains moments : en effet, les nombres que j'obtiens peuvent très bien être "1,6667567562342564 E+24" ou 123445453,55544 ou 32 ou 98765434567654,5

Les formules proposées ne fonctionnent pas dans les autres cas. Existe-t-il une formule qui fonctionne avec tout nombre a, pour avoir une écriture du type

c,bbb E+r   avec :

0<c<1
r entier et r>0

Merci de votre aide, en tous les cas de la pub sera faite pour votre site !!!

Cordialement,

Gobillot · Answer

question d'affichage apr&#232;s arrondi ou pas.

MsgBox Format$(nbr2, "0.00E+")


voila ce que j'obtiens:



    nbr1 = 1.66675675623426E+24   -->    1.67E+24

    nbr1 = 123445453.55544        -->    1.23E+8

    nbr1 =
32                    
-->    3.20E+1

    nbr1 = 98765434567654.5       -->    9.88E+13




Daniel

cs_Paul73 · Answer

Après vérification, je m'aperçois, Daniel, que vous avez raison. Cependant, permettez moi de vous dire que cela ne marche QUE pour les MsgBox. En vérifiant avec une Label, je vois que cela ne fonctionne toujours pas. Comment faire pour que je résultat obtenu dans la MsgBox soit le même que celui obtenu dans la label ?

En gros, quels paramètres dois-je appliquer à la Label ?

Exemple

    nbr1 = 32                     -->    3.20E+1 (msg box)  --> 32 (label)


Grand merci pour votre réponse en tous les cas !!!

cs_Paul73 · Answer

ENFIN ! la formule Label1 = Format$(nbr1, "0.00E+")  m'a sauvé !!

Merci encore et bonne année 2006 !!!

Arrondi scientifique en VB --> Impossible ??? Aidez-moi !!!

7 réponses

Discussions similaires