OVH Cloud OVH Cloud

Extraire les centimes

6 réponses
Avatar
Alain SCATIZZI
Bonjour =E8 tous
Je cherche =E0 extraire les centimes d'une zone de texte au=20
format mon=E9taire. Si cette somme se termine par des=20
chiffres autre que z=E9ro pas de probl=E9me, mais ou j'ai des=20
soucis c'est quand les centimes de cette somme sont ,00 ou=20
ex: 10 les z=E9ros ne sont pas pris en compte.
Exemple
ZoneTxt =3D 53,32
32 =3D Right(ZoneTxt, 2)=20
ZoneTxt =3D 53,10
,1=3D Right(ZoneTxt, 2)=20
ZoneTxt =3D 53,00
3,=3D Right(ZoneTxt, 2)=20
Comment faire?
Merci d'avance pour votre aide
Salutations Alain

6 réponses

Avatar
Raymond [mvp]
Bonjour.

la méthode dépend de l'utilisation que tu veux en faire, de ces décimales.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Alain SCATIZZI" a écrit dans le message de news:
07e101c4a131$020d6c00$
Bonjour è tous
Je cherche à extraire les centimes d'une zone de texte au
format monétaire. Si cette somme se termine par des
chiffres autre que zéro pas de probléme, mais ou j'ai des
soucis c'est quand les centimes de cette somme sont ,00 ou
ex: 10 les zéros ne sont pas pris en compte.
Exemple
ZoneTxt = 53,32
32 = Right(ZoneTxt, 2)
ZoneTxt = 53,10
,1= Right(ZoneTxt, 2)
ZoneTxt = 53,00
3,= Right(ZoneTxt, 2)
Comment faire?
Merci d'avance pour votre aide
Salutations Alain
Avatar
Phil
Bonjour,
Tu devrais faire la soustraction de ta valeur et de la partie entière de
cette valeur et multiplier le tout par 100.
Salut,


Bonjour è tous
Je cherche à extraire les centimes d'une zone de texte au
format monétaire. Si cette somme se termine par des
chiffres autre que zéro pas de probléme, mais ou j'ai des
soucis c'est quand les centimes de cette somme sont ,00 ou
ex: 10 les zéros ne sont pas pris en compte.
Exemple
ZoneTxt = 53,32
32 = Right(ZoneTxt, 2)
ZoneTxt = 53,10
,1= Right(ZoneTxt, 2)
ZoneTxt = 53,00
3,= Right(ZoneTxt, 2)
Comment faire?
Merci d'avance pour votre aide
Salutations Alain



Avatar
Alain SCATIZZI
Bonjour Raymond
Mon but c'est d'avoir un format plus petit pour les
centimes donc de les mettrent dans une autre zone de texte
pour faire de étiquettes de prix
Salutations
-----Message d'origine-----
Bonjour.

la méthode dépend de l'utilisation que tu veux en faire,
de ces décimales.


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Alain SCATIZZI" a écrit dans le
message de news:

07e101c4a131$020d6c00$
Bonjour è tous
Je cherche à extraire les centimes d'une zone de texte au
format monétaire. Si cette somme se termine par des
chiffres autre que zéro pas de probléme, mais ou j'ai des
soucis c'est quand les centimes de cette somme sont ,00 ou
ex: 10 les zéros ne sont pas pris en compte.
Exemple
ZoneTxt = 53,32
32 = Right(ZoneTxt, 2)
ZoneTxt = 53,10
,1= Right(ZoneTxt, 2)
ZoneTxt = 53,00
3,= Right(ZoneTxt, 2)
Comment faire?
Merci d'avance pour votre aide
Salutations Alain


.



Avatar
Raymond [mvp]
Tu peux donc faire ceci:

Me.Mazonedetexte = Format((Nz(Me.Prix, 0) - Int(Nz(Me.Prix, 0))) * 100,
"00")

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Alain SCATIZZI" a écrit dans le
message de news: 216a01c4a152$3478aad0$
Bonjour Raymond
Mon but c'est d'avoir un format plus petit pour les
centimes donc de les mettrent dans une autre zone de texte
pour faire de étiquettes de prix
Salutations
Avatar
Jessy Sempere [MVP]
Bonjour

Regardes du côté de la fonction InStr() et Mid()

Ca donnerait un truc dans ce genre :

=Mid("TonChamp", InStr("TonChamp", ","))

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Alain SCATIZZI" a écrit dans le message news:
216a01c4a152$3478aad0$
Bonjour Raymond
Mon but c'est d'avoir un format plus petit pour les
centimes donc de les mettrent dans une autre zone de texte
pour faire de étiquettes de prix
Salutations
-----Message d'origine-----
Bonjour.

la méthode dépend de l'utilisation que tu veux en faire,
de ces décimales.


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Alain SCATIZZI" a écrit dans le
message de news:

07e101c4a131$020d6c00$
Bonjour è tous
Je cherche à extraire les centimes d'une zone de texte au
format monétaire. Si cette somme se termine par des
chiffres autre que zéro pas de probléme, mais ou j'ai des
soucis c'est quand les centimes de cette somme sont ,00 ou
ex: 10 les zéros ne sont pas pris en compte.
Exemple
ZoneTxt = 53,32
32 = Right(ZoneTxt, 2)
ZoneTxt = 53,10
,1= Right(ZoneTxt, 2)
ZoneTxt = 53,00
3,= Right(ZoneTxt, 2)
Comment faire?
Merci d'avance pour votre aide
Salutations Alain


.



Avatar
Alain SCATIZZI
Merci Raymond
Ca marche super
Merci aussi à tous
Salutations
Alain

-----Message d'origine-----
Tu peux donc faire ceci:

Me.Mazonedetexte = Format((Nz(Me.Prix, 0) - Int(Nz
(Me.Prix, 0))) * 100,

"00")

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Alain SCATIZZI" a
écrit dans le

message de news: 216a01c4a152$3478aad0$
Bonjour Raymond
Mon but c'est d'avoir un format plus petit pour les
centimes donc de les mettrent dans une autre zone de texte
pour faire de étiquettes de prix
Salutations


.