J'ai un problème avec l'application que je conçois sous VB 6.0
j'aimerai bien faire de calcul entre textbox, mais si le nombre entré contient un virgule le calcul ne donne pas la bonne réponse càd que il ignore la partie après la virgule
Ma question est celle ci :
Ainsi, est bien possible d'avoir un code qui remplace le virgule par de point ?
ucfoutu18039
Messages postés lundi 7 décembre 2009Date d'inscriptionContributeurStatut
11 avril 2018
Dernière intervention - 9 janv. 2013 à 11:48
3
Merci
Bonjour,
utilise par exemple Cdbl(text1.text) (mais uniquement si le point n'a pas été utilisé).
Le plus simple est peut-être encore d'interdire (au Keypress) la saisie de la virgule. Ce sujet a été traité un nombre si considérable de fois que je ne doute pas une seconde que le moteur de recherches de ce forum (si, si, il y en a un) te conduira à une infinité de discussions à ce propos.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
private Function Verifie(contenu As TextBox) As Boolean
'la fonction reçoit un textbox comme parametre
'et verifie si le textbox.text est numérique
'et modifie le séparateur décimal selon le 'séparateur definit par le p.c
Dim sDecimalSeparator As String
sDecimalSeparator = Mid$(CStr(1 / 2), 1, 1)
If Not IsNumeric(contenu.text) Then
Verifie = False
Exit Function
End If
If InStr(1, CStr(contenu.text), ".") Then
If sDecimalSeparator = "," Then
contenu.text = Replace(contenu.text, ".", ",")
Verifie = True
Exit Function
End If
Verifie = True
Exit Function
End If
If InStr(1, contenu.text, ",") Then
If sDecimalSeparator = "." Then
contenu.text = Replace(contenu.text, ",", ".")
Verifie = True
Exit Function
End If
Verifie = True
Exit Function
End If
Verifie = True
End Function
pour faire les calculs entre deux textboxs
text1 et text2
If Verifie(Text1) And Verifie(Text2) Then
Dim prod,add As Double
prod = CDbl(Text1.text) * CDbl(Text2.text)
add = CDbl(Text1.text) + CDbl(Text2.text)
End If
le problème n'est pas seulement de remplacer
la , par .
mais d'analyser le contenu de ta texbox
peut etre ainsi
Private Function Verifie(ByRef contenu As String) As Boolean
Dim sDecimalSeparator As String
sDecimalSeparator = Mid$(CStr(1 / 2), 1, 1)
If Not IsNumeric(contenu) Then
Verifie = False
Exit Function
End If
If InStr(1, CStr(contenu), ".") Then
If sDecimalSeparator = "," Then
contenu = Replace(contenu, ".", ",")
Verifie = True
Exit Function
End If
Verifie = True
Exit Function
End If
If InStr(1, contenu, ",") Then
If sDecimalSeparator = "." Then
contenu = Replace(contenu, ",", ".")
verife = True
Exit Function
End If
Verifie = True
Exit Function
End If
Verifie = True
End Function
pour utiliser
Dim t As String
t = Text1.Text
If Verifie(t) Then
Dim x As Double
x = CDbl(t) + 5
End If
a aidé 100 internautes ce mois-ci