Arrondir un nombre a 2 chiffres apres la virgule

Soyez le premier à donner votre avis sur cette source.

Snippet vu 55 347 fois - Téléchargée 89 fois


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

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

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

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
6
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
Renfield
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
60
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

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.