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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 56 066 fois - Téléchargée 89 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

Signaler
Messages postés
4
Date d'inscription
dimanche 15 février 2009
Statut
Membre
Dernière intervention
18 janvier 2011
merci bcq Formatnumber ca marche tres bien merci
Signaler
Messages postés
2
Date d'inscription
lundi 7 mai 2007
Statut
Membre
Dernière intervention
4 août 2007
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
Signaler
Messages postés
2
Date d'inscription
lundi 7 mai 2007
Statut
Membre
Dernière intervention
4 août 2007
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
Signaler
Messages postés
5
Date d'inscription
jeudi 22 juin 2006
Statut
Membre
Dernière intervention
30 décembre 2010
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
Signaler
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
 66
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)