1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Arrondir un nombre a 2 chiffres apres la virgule

Arrondir un nombre a 2 chiffres apres la virgule

0/5 (11 avis)

Snippet vu 57 897 fois - Téléchargée 91 fois


Commenter

Contenu du snippet


Source / Exemple : 


<%
    Dim LeNum
    LeNum = 2.657856
    LeNum = FormatNumber(LeNum, 2)
    Response.Write(LeNum)
%>
<br>
<%
    ' on peut faire plus court
    Response.Write(FormatNumber(2.657856, 2))
%>

A voir également

Ajouter un commentaire Commentaires
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
merci bcq Formatnumber ca marche tres bien merci
cs_sylvain50
Messages postés
2
Date d'inscription
lundi 7 mai 2007
Statut
Membre
Dernière intervention
4 août 2007
4 août 2007 à 19:50
C'a y est j'ai trouvé
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
cs_sylvain50
Messages postés
2
Date d'inscription
lundi 7 mai 2007
Statut
Membre
Dernière intervention
4 août 2007
4 août 2007 à 13:17
Bonjour
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
cs_solos
Messages postés
5
Date d'inscription
jeudi 22 juin 2006
Statut
Membre
Dernière intervention
30 décembre 2010
22 sept. 2006 à 16:51
Pour obtenir la partie entiere d'un nombre, le plus simple c'est d'utiliser la fonction VB Int.

exemple:
Dim N
N = 2.35
Int(N) donne 2

Thks
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
 71
14 juin 2006 à 14:53
Val ( 2.15 ) renvoie 2.15, Tariko20, pas 3...

tu peux utiliser

Public Function RoundUp(ByVal vnValue As Double) As Double
RoundUp = (vnValue + 0.5) \ 1
End Function
Afficher les 11 commentaires
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Nix)