Discussion :

[cincap]

Bonjour à toutes et à tous,

Avec ma petite application concernant un calcul avec Tva, je n'arrive pas à modifier pour simplifier 2 valeurs contenues dans 2 Tedit.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
var
A, B, C, D: Real;
begin
 
 A:= StrToFloat(edavectva.text);  //Prix Tva comprise
 B:= StrToFloat(edtva.text); //Taux Tva
 D:= StrToFloat(edtvabis.text); //Taux Tva
 
 edhorstva.text:=Format('%2f',[A / B]);  //Uniquement 2 décimales  %m
 
 
 C:= StrToFloat(edhorstva.text);
 Edtotal.Text:= Format('%2f',[A - C]);
 
 Ednouveau.Text := Format('%2f',[C * D]);

Question comment faire pour ne pas mettre dans le champ "B" la valeur 1,19 mais bien uniquement 19

Et dans le champ "D" la valeur 1,06 mais bien uniquement 6.

Merci pour l'aide éventuelle.

@+,

cincap

[cincap]

@ tous,

Désolé, j'ai trouvé.

Je ferme le topic.

@+,

cincap

[Paul TOTH]

ce qui est pas mal en général quand on trouve la réponse à sa propre question c'est de donner l'explication
- je me suis planté car ...
- il suffisait de ...

sinon la question et le commentaire ne servent à rien aux autres, or le principe d'un forum c'est d'en faire profiter tout le monde

[Andnotor]

%f est par défaut sur 2 décimales. %2f ne fixe pas la précision mais la longueur minimale de la chaîne à retourner (permet de faire facilement des alignements avec des polices non-proportionnelles). Pour agir sur la précision, il faut faire précéder le chiffre par un point %.2f.

[cincap]

Bonjour à toutes et à tous,

@ Paul THOT, tu as raison d'habitude dans mes topics je remet le pourquoi et la solution mais dans ce cas tout simplement dans mes essais, j'avais oublié les parenthèses dans la formule.

C'était un exercice que j'avais réalisé en Excell et pour m'occuper pouvoir le refaire en D6.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 edhorstva.text:=Format('%2f',[A / (B /100 + 1)]);

@ Andnotor, bien vu comme d'habitude, mon affichage se trouve amélioré.

Merci pour les commentaires.

@+,

cincap

[anapurna]

salut

tu voulais donc multiplié par 119% au lieu de 19
ce que tu aurait pu traduire par
comment calcul ton la valeur total toutes taxe
sachant que ma tva est indiqué en valeur entière soit 19 pour 19%

et la tout le monde aurai compris qu'il fallait faire
((100+19)/100) ou ((19/100)+1) c'est au choix

si on décompose le calcul on auras donc (1*MaValeur) + (0.19*Mavaleur) soit 1.19*Mavaleur

[cincap]

@ anapurna, merci de ta remarque, dans un premier temps, le prix est Tvac et suivant la Tva du pays, je dois obtenir le prix hors Tva.

Dans un deuxième temps ce prix hors Tva doit être multiplié par la Tva du Pays mais à un autre taux.

Ce qui me permet de savoir le montant hors Tva, le montant avec Tva et la différence que je gagne d'où l'existence de mon application qui ne servira qu'à moi.

J'achète une voiture au Luxembourg (Prix avec la Tva 19%), j'ajoute le prix des options, je la déclare en Belgique (Prix hors Tva x Tva 21% ou 6%), gain = différence.

Maintenant comme toujours il doit avoir d'autres solutions.

@+,

cincap

[anapurna]

A:= StrToFloat(edavectva.text); //Prix Tva comprise
B:= StrToFloat(edtva.text); //Taux Tva
D:= StrToFloat(edtvabis.text); //Taux Tva

Voila les calcul a faire a l'arondi prés

C := A/(1+B/100); // Prx Actuel HT
E := A-C // Mnt Old Tva
F := C*(1+E/100) // Mnt Total With New TVA
G := F-C // Mnt New TVA
H := E-G // Gain