ARRONDIR UN NOMBRE A 2 CHIFFRES APRES LA VIRGULE
koubihack
-
2 avril 2001 à 09:36
hamza207 Messages postés 4 Date d'inscription dimanche 15 février 2009 Statut Membre Dernière intervention 18 janvier 2011 - 18 févr. 2010 à 16:24
hamza207 Messages postés 4 Date d'inscription dimanche 15 février 2009 Statut Membre Dernière intervention 18 janvier 2011 - 18 févr. 2010 à 16:24
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/150-arrondir-un-nombre-a-2-chiffres-apres-la-virgule
https://codes-sources.commentcamarche.net/source/150-arrondir-un-nombre-a-2-chiffres-apres-la-virgule
18 févr. 2010 à 16:24
4 août 2007 à 19:50
C'est ma base sql express 2005
j'avais oublié de lui dire combien de chiffres après la virgule dans la zone echelle du champ
Merci
4 août 2007 à 13:17
je fais un petit prog sous visual studio 2005 en vb
j'ai un petit souci j'utilise val pour faire des calculs dans des textboxs
donc j'ai 5 texboxs ou l'on rentre des nombres soit decimales ou soit entiers et un texbox qui additionne tout les nombres des texbox et qui divise par le nombre de textbox jusque la tous va bien
Le souci c'est dès que j'enregistre le résultatdans ma base de données sql il arrondit automatiquement au nombre entier supérieure
ah oui j'oublié les texboxs sont reliés à un datagrideview
Private Sub EleveMoyenne()
Dim nb As Double
nb = 0
Eleve_Moyenne1TextBox.Text = ""
If Eleve_Note1TextBox.Text <> "" Then
Eleve_Moyenne1TextBox.Text = Val(Eleve_Moyenne1TextBox.Text) + (Eleve_Note1TextBox.Text)
nb = nb + 1
End If
If Eleve_Note2TextBox.Text <> "" Then
Eleve_Moyenne1TextBox.Text = Val(Eleve_Moyenne1TextBox.Text) + (Eleve_Note2TextBox.Text)
nb = nb + 1
End If
If Eleve_Note3TextBox.Text <> "" Then
Eleve_Moyenne1TextBox.Text = Val(Eleve_Moyenne1TextBox.Text) + (Eleve_Note3TextBox.Text)
nb = nb + 1
End If
If Eleve_Note4TextBox.Text <> "" Then
Eleve_Moyenne1TextBox.Text = Val(Eleve_Moyenne1TextBox.Text) + (Eleve_Note4TextBox.Text)
nb = nb + 1
End If
If Eleve_Note5TextBox.Text <> "" Then
Eleve_Moyenne1TextBox.Text = Val(Eleve_Moyenne1TextBox.Text) + (Eleve_Note5TextBox.Text)
nb = nb + 1
End If
If nb <> 0 Then
Eleve_Moyenne1TextBox.Text = Val(Eleve_Moyenne1TextBox.Text / nb)
End If
End Sub
puis dans chaque controle textbox
j'appele
Private Sub Eleve_Note1TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Eleve_Note1TextBox.TextChanged
EleveMoyenne()
End Sub
Merci pour votre aide
22 sept. 2006 à 16:51
exemple:
Dim N
N = 2.35
Int(N) donne 2
Thks
14 juin 2006 à 14:53
tu peux utiliser
Public Function RoundUp(ByVal vnValue As Double) As Double
RoundUp = (vnValue + 0.5) \ 1
End Function
14 juin 2006 à 14:05
c simple tu n'as qu'utilisé la fonction val et tu aura juste la pertie entière de ton nombre!!!
5 juin 2006 à 13:17
merci ca marche bien pour le nombre de chiffre apres la virgule mais moi je veux prendre juste les chiffres avant la virgule et le reste non ou bien y a t il une fonction qui me donne le max d'une valeur par exple 2.15 je veux 3
@+
8 déc. 2005 à 10:55
FormatNumber est a favoriser pour formater un chiffre, dans le dessein de l'afficher a l'utilisateur...
Il prend en effet en compte les parametres regionnaux :
- Separateur décimal
- Separateur des milliers
et il donne la possibilité d'utiliser des parentheses, pour indiquer qu'un chiffre est negatif (on s'en sers dans la finance, nottament...)
27 juin 2005 à 14:02
il faut l'utiliser pour assurer votre calcul
7 mars 2004 à 07:00
FormatNumber marche aussi avec VB.NET
exactement la même synthaxe
(etonnant)
2 avril 2001 à 09:36
text1.text = 1123.123456789
text2.text = Round(text1.text, 2)
le 2 est le nombre de chiffre que l'on veut que l'ordi laisse ou arrondisse
voila @+