AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 12 05 17:15:12
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

ARRONDIR UN NOMBRE A 2 CHIFFRES APRES LA VIRGULE


Information sur la source

Catégorie :ASP Classé sous : round, arrondir, chiffre, formatnumber Niveau : Débutant Date de création : 06/01/2000 Vu : 27 508
Auteur : Nix Site perso
Ecrire un message privé
Ce membre participe au partage de revenus publicitaires
Note :
6,11 / 10 - par 9 personnes
6,11 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (9)
Ajouter un commentaire et/ou une note

Description


 

Source

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

Commentaires et avis

signaler à un administrateur
Commentaire de li9 le 07/03/2004 07:00:00

Parfait,
FormatNumber marche aussi avec VB.NET
exactement la même synthaxe

(etonnant)

signaler à un administrateur
Commentaire de habib13520 le 27/06/2005 14:02:11

Je pense comme KOUBIHACK "ROUND" est bien
il faut l'utiliser pour assurer votre calcul

signaler à un administrateur
Commentaire de Renfield le 08/12/2005 10:55:57 administrateur CS

Round sert a arrondir un chiffre, a utiliser dans des calculs

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...)

signaler à un administrateur
Commentaire de Affoufa le 05/06/2006 13:17:26

bonjour,
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
@+

signaler à un administrateur
Commentaire de tariko20 le 14/06/2006 14:05:51

bonjour affoufa
c simple tu n'as qu'utilisé la fonction val et tu aura juste la pertie entière de ton nombre!!!

signaler à un administrateur
Commentaire de Renfield le 14/06/2006 14:53:01 administrateur CS

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

signaler à un administrateur
Commentaire de solos le 22/09/2006 16:51:41

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 à un administrateur
Commentaire de sylvain50 le 04/08/2007 13:17:28

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 à un administrateur
Commentaire de sylvain50 le 04/08/2007 19:50:38

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

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Arrondir à 2 chiffre [ par DebvbJ ] Wazup !Bon, j'ai calculé la durée d'un avi, et l'affichage est bon sauf que plutot que me donner ce format la : "1:27:12"il me donne "1:27:12,12313213 ARRONDIR DECIMAL VB.NET [ par spike62300 ] Bonjour ,voila j'ai besoin pour mon developpement d'arrondir certains chiffres apres la virgul. Pour l'instant ca serait l'arrondi le plus basique15.2 arrondir [ par Michele ] Bonjour.Je voudrais arrondir le chiffre rétourné de:text3 = text1/text2 mais toujours au chiffre supérieur.merci de votre aideA+ Michele Arrondir un chiffre en notation scientifique [ par aids ] Bonjour,Je cherche à arrondir à 2 décimales un chiffre en notation scientifique.Exemple : a = 4,3422408426E-9 doit devenir a= 4,34E-9a étant issus de Chiffres dans un string [ par thomas750 ] Bonjour,Je voulais svoir 'il existait une methode pour recuper une chaine de caractere presente dans un string, a partir du premier chiffre rencontre. Raporter une ligne avec du texte et des chiffre d'une feuille a une autre [ par weginale ] Bonjour ,Je suis en train de monter un outil de calcul de soumission....j'ai créé une feuille se nomman "Résumé", dans cette feuille je veux pouvoir r condition entre deux chiffre [ par Sinsitrus ] Salut !j'ai deux textbox (T_Montant et T_Timbre) et un Timer1 En fait, voilà exactement ce que je souhaite avoir comme r Création d'un fichier *.dat avec position precise des chiffres [ par MyTralala ] Bonjour à tous,voici mon probleme, que j'espere vous m'aiderez à resoudre:Je desire créer un fichier *.dat à partir d'une feuille Excel, remplie par l traduire chiffre en lettre [ par bessouma06 ] bonjour  à toussvp je veux savoir comment traduire la valeur d'une case en lettres.par exemple : 140,250 dinars  en cent quarante dinars 250 millimesm control label [ par GHGFSJD ] Je possede un controle label que j'utilise pour activer une procedure grace a la methode change.Ce label reçois des bits de telecommande donc si j'app


Nos sponsors

Sondage...

CalendriCode

Décembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,499 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.