[VB6] Pb avec champ numerique

Pb avec champ numerique [VB6] - VB/VBA/VBS - Programmation

Marsh Posté le 19-04-2002 à 16:27:06    

Voila, j'ai une BD avec un champ Salaire (numerique)...sur ma feuille ce champs apparait dans un TextBox donc je fait le code suivant :
 
Private Sub txtFields_Change(Index As Integer)
 
txtFields(5).Text = (Val(txtFields(4).Text) * 16 / 100)
txtFields(7).Text = (Val(txtFields(4).Text)) + (Val(txtFields(5).Text))
 
End Sub  
 
he bien il ne me prend pas en compte les decimale c'est a dire que si je fait 12,9 + 1,5 ben il me donne 13 au lieu de 14,4
 
Comment faire pour qu'il tienne compte des decimales ?


---------------
Mes mémoires de Retrogamer - Le Retroblog de Turk182! en livres - Suivez le blog sur Facebook
Reply

Marsh Posté le 19-04-2002 à 16:27:06   

Reply

Marsh Posté le 19-04-2002 à 16:39:31    

Je pense que ceci est lié au format du contenu Text qui par dédaut est de type Variant.
 
Il faut que tu mette le contenu texte dans une variable de type Numeric
 
ex : Dim Nombre as single
     ...      
     Nombre = text1.text
     ...
 
 :p  
 
J.

Reply

Marsh Posté le 19-04-2002 à 16:54:53    

non marche pas si je met une virgule il me la compte pas et si je met un point quand je valide il me le met entier ex 12.3 devient 123 !! :fou:


---------------
Mes mémoires de Retrogamer - Le Retroblog de Turk182! en livres - Suivez le blog sur Facebook
Reply

Marsh Posté le 19-04-2002 à 18:33:30    

ca va j'ai trouvé il faut utiliser CDBL au lieu de VAL...
 
merci kan même...


---------------
Mes mémoires de Retrogamer - Le Retroblog de Turk182! en livres - Suivez le blog sur Facebook
Reply

Marsh Posté le 19-04-2002 à 23:45:46    

voire clng pour moins pomper en mémoire... mais bon, je pinaille...

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed