dlh57
Messages postés4Date d'inscriptiondimanche 23 novembre 2008StatutMembreDernière intervention24 décembre 2008
-
22 déc. 2008 à 15:26
dlh57
Messages postés4Date d'inscriptiondimanche 23 novembre 2008StatutMembreDernière intervention24 décembre 2008
-
24 déc. 2008 à 13:43
Bonjour,
Je suis débutant en vb sous access
je fais un test de calcul
if rprix= 1 alors den (variable) est égale à nstag(nombre de stagiares)
else if rprix=2 alors den est égale nbj (nombre de jours entre deux dates)
else den = 1
end if
je veux calculer le montant net
Mnet= P-unit*den
je ne trouve pas la solution pour que Mnet soit incrémenté du résultat
Cela me parait simple et pourtant je me casse les dents
Quand je fais msgbox Mnet, le resultat est bon
merci
Denis
sturtrid
Messages postés133Date d'inscriptiondimanche 20 mai 2007StatutMembreDernière intervention13 juillet 20121 23 déc. 2008 à 02:06
Salut dlh !
Je pense qu'un bout de code assez simple (comme les autres d'ailleurs..) n'a pas besoin d'être traduit en langue française pour devenir plus flou qu'il ne l'est déjà. Que dirais-tu d'une réponse en vb... (à y réfléchir, c'est un style...Qui peut avoir de la Class)
Public Class dlh57
Inheritsvb
FRANCE
Private Const
jeCodeEn
As String =
"Français"
[...]
Friend Shared Sub IamFuzzy(Optional ByVal
jeCodeEn
As
String =
"Français"
)
If (
jeCodeEn
<>
"VB.Net") Then
QuEstCeQueTuDit:
VB
.Community.Reader.BrainIO.Is
Topic
Understood = False
Goto QuEstCeQueTuDit
End if
End Sub
End Class
Remarque, le jour ou tu auras un code de 100lignes à soumettre ça devrait passer ! lol
Bon je précise au cas ou... C'était juste une petite pointe d'humour...
Aller quoi, faut rigoler ! Ha bein c'est bientôt les fêtes!!!
Sinon si j'ai compris, ça donne à peu près ça non ?
If (rprix = 1) Then
den = nstag '(nombre de stagiares)
Else if (rprix = 2) Then
den = nbj '(nombre de jours entre deux dates)
Else
den = 1
End if
nhervagault
Messages postés6063Date d'inscriptiondimanche 13 avril 2003StatutMembreDernière intervention15 juillet 201137 23 déc. 2008 à 21:23
Salut,
C'est peut etre fonction que tu cherches
J'ai mis les deux versions car je crois que tu es un peu paumé
sur ASPFR du post dans ASP3 et sur vbfrance tu dans vb.net
en vb6 / asp3
function calcul(HT as double, TVA as double) as double
calcul = HT * (1 + (TVA/100))
' TTC = HT * 1.055 pour de la TVA 5.5
end function
'appel
dim ttc as double
ttc = calcul ( 10,5.5)
en vb.net / asp.net
function calcul(HT as double, TVA as double) as double
' TTC = HT * 1.055 pour de la TVA 5.5
return HT * (1 + (TVA/100))
end function