<%
Dim LeNum
LeNum = 2.657856
LeNum = FormatNumber(LeNum, 2)
Response.Write(LeNum)
%>
<br>
<%
' on peut faire plus court
Response.Write(FormatNumber(2.657856, 2))
%>
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
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
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
exemple:
Dim N
N = 2.35
Int(N) donne 2
Thks
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.