Addition
petiflamand
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
-
30 déc. 2004 à 16:24
addamsmercredi Messages postés 121 Date d'inscription dimanche 3 octobre 2004 Statut Membre Dernière intervention 27 juillet 2006 - 31 déc. 2004 à 12:24
addamsmercredi Messages postés 121 Date d'inscription dimanche 3 octobre 2004 Statut Membre Dernière intervention 27 juillet 2006 - 31 déc. 2004 à 12:24
4 réponses
cs_FPatrick
Messages postés
122
Date d'inscription
mercredi 27 novembre 2002
Statut
Membre
Dernière intervention
8 août 2014
1
30 déc. 2004 à 17:16
30 déc. 2004 à 17:16
Il faut faire
sglNombre = Val(Format(prout, "00000.000"))
sgltostva = format(val(sgltostva) + val(sglNombre),"0.000")
Attention à la conversion des . en ,
Regarde quand tu fais :
debug.print Val("1.1") -----> ca fait 1,1
debug.print Val("1,1") -----> ca fait 1
Bonne soirée
sglNombre = Val(Format(prout, "00000.000"))
sgltostva = format(val(sgltostva) + val(sglNombre),"0.000")
Attention à la conversion des . en ,
Regarde quand tu fais :
debug.print Val("1.1") -----> ca fait 1,1
debug.print Val("1,1") -----> ca fait 1
Bonne soirée
cs_dragon
Messages postés
2336
Date d'inscription
samedi 14 juillet 2001
Statut
Membre
Dernière intervention
5 mai 2009
6
30 déc. 2004 à 17:17
30 déc. 2004 à 17:17
dim prout as double
dmi sgltostva as string
prout = Mid(Form3.List3.List(a), 37, 8)
sgltostva = format(cdbl(sgltostva) + prout, "00000.000")
-------------------------------------------------
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol
-------------------------------------------------
dmi sgltostva as string
prout = Mid(Form3.List3.List(a), 37, 8)
sgltostva = format(cdbl(sgltostva) + prout, "00000.000")
-------------------------------------------------
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol
-------------------------------------------------
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
34
30 déc. 2004 à 20:48
30 déc. 2004 à 20:48
c'est pas la même chose que la dernière fois ?
faut faire tes calculs sans Format, et mettre Format au moment de l'édition.
sglNombre = Val(Mid(Form3.List3.List(a), 37, 8))
sgltostva = sglNombre + sglNombre / 100 * Val(tva)
MsgBox Format$(sgltostva,"00000.000")
Daniel
faut faire tes calculs sans Format, et mettre Format au moment de l'édition.
sglNombre = Val(Mid(Form3.List3.List(a), 37, 8))
sgltostva = sglNombre + sglNombre / 100 * Val(tva)
MsgBox Format$(sgltostva,"00000.000")
Daniel
addamsmercredi
Messages postés
121
Date d'inscription
dimanche 3 octobre 2004
Statut
Membre
Dernière intervention
27 juillet 2006
31 déc. 2004 à 12:24
31 déc. 2004 à 12:24
Essaie comme ceci :
sgltostva = format( replace(sgltostva, ",", ".") + replace(sglNombre, ",", "."), "00000.000")
sgltostva = format( replace(sgltostva, ",", ".") + replace(sglNombre, ",", "."), "00000.000")
