Comment diviser un integer ?

Version imprimable

Bonjour,

Je développe une application de gestion de stock sous Delphi 7 et j'utilise paradox 7 ,
Voila mon code pour calculer le poids des d'épices :

Code:

1
2
3
4
5
6
7
8
9
10
11
if CheckBox3.checked=True then
datas.Query4.Active:=true;
fiche_vente.table1.Edit;
fiche_vente.table1.FieldByName('tot_poid').AsInteger:=
((datas.Query4.fieldbyname('scg_1').AsInteger)*(fiche_vente.table1.FieldByName('s_1').AsInteger)+
(datas.Query4.fieldbyname('scg_2').AsInteger)*(fiche_vente.table1.FieldByName('s_2').AsInteger)+
(datas.Query4.fieldbyname('scg_3').AsInteger)*(fiche_vente.table1.FieldByName('s_3').AsInteger)+
(datas.Query4.fieldbyname('scg_4').AsInteger)*(fiche_vente.table1.FieldByName('s_4').AsInteger)+
(datas.Query4.fieldbyname('scg_5').AsInteger)*(fiche_vente.table1.FieldByName('s_5').AsInteger)+
(datas.Query4.fieldbyname('scg_6').AsInteger)*(fiche_vente.table1.FieldByName('s_6').AsInteger));
*****

Ce code me donne le poids en kg alors que je voudrais diviser lé résultat par 1000 pour me donner la bonne valeur.

08/11/2016, 08h07
Lung

Et quel est le problème ?
Si tu ajoutes un ... div 1000 au bout, ça ne marche pas ?
08/11/2016, 09h49
tourlourou

Sinon, AsFloat
08/11/2016, 15h57
abkthekingABK

bounjour tous

j'ai ajouter /1000 devant chaque '+' mais sa marche pas , exemp :
((datas.Query4.fieldbyname('scg_1').AsInteger)*(fiche_vente.table1.FieldByName('s_1').AsInteger)/1000+

Utilise Round si tu veux garder un Integer, sinon le AsFloat comme le dit tourlourou.
Il est plus facile de diviser le résultat par 1000 que chaque opérations par 1000 ...

Code:

1
2
3
4
5
6
7
fiche_vente.table1.FieldByName('tot_poid').AsInteger:= round(
((datas.Query4.fieldbyname('scg_1').AsInteger)*(fiche_vente.table1.FieldByName('s_1').AsInteger)+
(datas.Query4.fieldbyname('scg_2').AsInteger)*(fiche_vente.table1.FieldByName('s_2').AsInteger)+
(datas.Query4.fieldbyname('scg_3').AsInteger)*(fiche_vente.table1.FieldByName('s_3').AsInteger)+
(datas.Query4.fieldbyname('scg_4').AsInteger)*(fiche_vente.table1.FieldByName('s_4').AsInteger)+
(datas.Query4.fieldbyname('scg_5').AsInteger)*(fiche_vente.table1.FieldByName('s_5').AsInteger)+
(datas.Query4.fieldbyname('scg_6').AsInteger)*(fiche_vente.table1.FieldByName('s_6').AsInteger)) / 1000);

08/11/2016, 17h27
anapurna

salut

le div donne la division entière
le / donne la division reel
et mod donne le reste de la division

après il existe d'autre fonction pour rendre ta division réel sous forme d'entier
voir ici

selon ce que tu veut faire tu as toutes les possibilité de le faire
10/11/2016, 16h48
abkthekingABK

Bonjour à tous

Est-ce que je peux intégrer ce calcul comme une fonction, à appeler par un clic de bouton ou une CheckBox ?

salut

bien sur

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Function Calcul(ds1,ds2 : TDataset) : Integer;
begin
 result := round(
((ds1.fieldbyname('scg_1').AsInteger)*(ds2.FieldByName('s_1').AsInteger)+
(ds1.fieldbyname('scg_2').AsInteger)*(ds2.FieldByName('s_2').AsInteger)+
(ds1.fieldbyname('scg_3').AsInteger)*(ds2.FieldByName('s_3').AsInteger)+
(ds1.fieldbyname('scg_4').AsInteger)*(ds2.FieldByName('s_4').AsInteger)+
(ds1.fieldbyname('scg_5').AsInteger)*(ds2.FieldByName('s_5').AsInteger)+
(ds1.fieldbyname('scg_6').AsInteger)*(ds2.FieldByName('s_6').AsInteger)) / 1000);
end;

dans la methode onclick

Code:

fiche_vente.table1.FieldByName('tot_poid').AsInteger:= Calcul(datas.Query4,fiche_vente.table1);