OVH Cloud OVH Cloud

mathématique

4 réponses
Avatar
pierfrene
j'effectue le calcule suivant

Type Litres_Type
Date As Date
Km As Single
Litre As single
Prix As Single
End Type

Calcule_Lk = CCur(CCur(Litres.Litre) / CCur(Litres.Km) * 100)
Calcule_C = CCur(CCur(Litres.Litre) * CCur(Litres.Prix))

j'obtien ceci
6,6789 je veux 6,678
29,8116 je veux 29,81

4 réponses

Avatar
Clive Lumb
"Currency" est un type de variable, pas un format
Pour afficher des valeurs avec un nombre de décimales donné, utiliser la
fonction "Format" (voir dans l'aide)
Attention ! le résultat est une chaîne, donc on ne doit pas l'utiliser pour
d'autres calculs, on s'en sert que pour afficher.

Bon courage

Clive

"pierfrene" <moldry@(supprimerceci)hotmail.com> a écrit dans le message de
news:

j'effectue le calcule suivant

Type Litres_Type
Date As Date
Km As Single
Litre As single
Prix As Single
End Type

Calcule_Lk = CCur(CCur(Litres.Litre) / CCur(Litres.Km) * 100)
Calcule_C = CCur(CCur(Litres.Litre) * CCur(Litres.Prix))

j'obtien ceci
6,6789 je veux 6,678
29,8116 je veux 29,81




Avatar
Christophe QUEVAL
Les instructions INT et ROUND pourraient vous aider.

"pierfrene" <moldry@(supprimerceci)hotmail.com> a écrit dans le message de
news:

j'effectue le calcule suivant

Type Litres_Type
Date As Date
Km As Single
Litre As single
Prix As Single
End Type

Calcule_Lk = CCur(CCur(Litres.Litre) / CCur(Litres.Km) * 100)
Calcule_C = CCur(CCur(Litres.Litre) * CCur(Litres.Prix))

j'obtien ceci
6,6789 je veux 6,678
29,8116 je veux 29,81




Avatar
Jacquouille
Bonour,
6,6789 je veux 6,678


Transformer le résultat en chaîne
Ajouter à la chaine ",000" si pas de virgule
ou "00" si déja une virgule
lonchaine=instr(chaine,",") + 3 'pour 3 chiffres après la ","
chaine= left(chaine, lonchaine)
Je fais ça en vb4.0
Jacques dit JACQUOUILLE
Avatar
pierfrene
Merci pour tout les réponses
Sa fonctionne bien Merci encore


"pierfrene" <moldry@(supprimerceci)hotmail.com> a écrit dans le message de
news:

j'effectue le calcule suivant

Type Litres_Type
Date As Date
Km As Single
Litre As single
Prix As Single
End Type

Calcule_Lk = CCur(CCur(Litres.Litre) / CCur(Litres.Km) * 100)
Calcule_C = CCur(CCur(Litres.Litre) * CCur(Litres.Prix))

j'obtien ceci
6,6789 je veux 6,678
29,8116 je veux 29,81