VB PROGRAMME : comment faire pour........
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
salut comment faire pour que le résultat afficher ne soit pas arrondi . LORS DU CALCUL ON DIRAI QUE LE PROGRAMME NE PREND PAS EN COMPTE LES CHIFFRES QU'IL Y A APRES LA VIRGULE ex: a la place de 328,26 il lit 238. du cout mes résultats sont faux .
merci
merci
3 réponses
-
Bonjour ou Bonsoir,
Pourriez vous nous indiquer de quel langage il s'agit ?
PS : je crois que ta touche caps était enfoncée malencontreusement . Du coup vous écrivez un peu trop gros et ca me fait mal aux cheveux !
++
JSS -
c visual basic (sur access)
on ma dit 2 mettre ca "###,##0.00" comme format
mais ca marche pas au contraire il multipli le resultat par 1000
merci -
Bonjour ou Bonsoir,
D'apres mes souvenirs, en mode creation sous access tu as des champs qui te permettent de definir les formats et ils me semblent bien que c'etait un truc du genre.
Sinon pourquoi ne pas diviser ton resultat par 1000 vu qe ca te le multiplie par 1000 ?
Bon courage.
JSS-
C CE QUE G FAIT MAIS LA ENCORE LE RESULTAT SE RENVERSE.
voila:
Private Sub Coût_de_revient_Click()
Dim C_R, qt, prix, prixtot
Const R1 = 0.1
Const R2 = 0.15
fmt = "###,###,##0.00" ' Définit un format monétaire.
qt = InputBox("VEUILLEZ SAISIR LES QUANTITES ACHETEES")
prix = Val(Cout_production) & Format(fmt, Cout_production)
prixtot = qt * prix
If qt >= 20 Then
C_R = prixtot + (prixtot * R1) 'l'entreprise accorde une remise
Else 'c'est donc une charge pour l'entreprise
If qt >= 50 Then
C_R = prixtot + (prixtot * R2)
Else
C_R = prixtot
End If
End If
coût_2_revient = C_R
LE PRBLM EST DANS Val(Cout_production) [sur le formulaire la valeur est 20.27 et sur le programme c 20 tout rond.
MERCI
-
