A voir également:
- VB PROGRAMME : comment faire pour........
- Vb - Télécharger - Langages
- Vb cable - Télécharger - Audio & Musique
- Programme demarrage windows 10 - Guide
- Désinstaller programme windows 10 - Guide
- Programme démarrage windows 10 - Guide
3 réponses
JSS
Messages postés
3745
Date d'inscription
jeudi 22 avril 2004
Statut
Contributeur
Dernière intervention
17 décembre 2004
32
13 mai 2004 à 13:19
13 mai 2004 à 13:19
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
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
Utilisateur anonyme
13 mai 2004 à 13:25
13 mai 2004 à 13:25
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
on ma dit 2 mettre ca "###,##0.00" comme format
mais ca marche pas au contraire il multipli le resultat par 1000
merci
JSS
Messages postés
3745
Date d'inscription
jeudi 22 avril 2004
Statut
Contributeur
Dernière intervention
17 décembre 2004
32
13 mai 2004 à 13:33
13 mai 2004 à 13:33
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
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
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