Discussion :

[casa88]

Bonjour,
J’ai une procédure qui permet de comparer deux valeurs de type double (val_plaf, mt)
Mais le problème que ce code ne fonctionne pas même si la valeur de val_plaf est supérieure à la valeur de mt voila un exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Procedure Tcalc_paie.calcul_plonche_plafe(val_plaf,mt,val_base,val_Plan : Double;val_FBR,val_NBR:String);
begin
 
val_plaf:=200;
mt:=10;
 
if (val_plaf > mt) then
begin
showmessage('test1')
end
 
end ;

Je sais pas est ce que le problème de l’opérateur (>) et je dois le remplacer par une fonction ou quoi ? Merci d’avance

[Linkin]

L'exemple fonctionne bien chez moi (delphi 7). Je pense qu'il y a autre chose dans le reste du code.

Tu peux utiliser CompareValue plutôt que l'opérateur >, mais bon cela sert plus pour des tests d'égalité.

[Rayek]

Est ce que tu appels bien ta procédure quelque part ?

[casa88]

merci pour votre réponse

moi aussi je travaille avec delphi 7 la procedure c'est seulement un exemple mais la procedure réel

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
17
18
19
20
21
22
23
24
25
26
27
28
procedure Tcalc_paie.calcul_plonche_plafe(val_plaf,mt,val_base,val_Plan : Double;val_FBR,val_NBR:String);
 
begin
 
 
if val_plaf > 0 then begin
if val_FBR = 'R' then  begin
if val_plaf < mt then mt := val_plaf;
end else begin
if val_plaf < val_base then val_base := val_plaf;
end;
end;
if val_Plan > 0 then begin
if val_NBR = 'R' then
begin
if val_Plan > mt then
begin
mt := val_Plan;
end
end
else
begin
if val_Plan > val_base then val_base := val_Plan;
end;
end;
 
 
end;

et voila l'appel de procedure

Code :

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

calcul_plonche_plafe(Plaf,MtAajouter,base,Plan,FBR,NBR)

je pense que tous est bien mais j'ai rien compris

[Dr.Who]

toujours bien ecrire et indenter son code !

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
17
18
19
function MovIf(aIf: boolean; aThen: double; out aDest: double): boolean;{$IF RTLVersion >= 18.0}inline;{$IFEND}
begin
  result := aIf;
  if aIf then
    aDest := aThen;
end;
 
procedure calcul_plonche_plafe(val_Plaf, val_Plan : Double; var mt, val_base: double; val_FBR, val_NBR: String);
begin
  if val_FBR = 'R' then
    MovIf((val_Plaf > 0) and (val_Plaf < mt), val_Plaf, mt)
  else
    MovIf((val_Plaf > 0) and (val_Plaf < val_Base), val_Plaf, val_Base);
 
  if val_NBR = 'R' then
    MovIf((val_Plan > 0) and (val_Plan > mt), val_Plan, mt)
  else
    MovIf((val_Plan > 0) and (val_Plan > val_Base), val_Plan, val_Base);
end;

[Paul TOTH]

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
procedure Tcalc_paie.calcul_plonche_plafe(val_plaf,mt,val_base,val_Plan : Double;val_FBR,val_NBR:String);
begin
 
  if val_plaf > 0 then 
  begin
    if val_FBR = 'R' then  
    begin
      if val_plaf < mt then mt := val_plaf;
    end 
    else
    begin
      if val_plaf < val_base then val_base := val_plaf;
   end;
  end;
 
  if val_Plan > 0 then  
  begin
    if val_NBR = 'R' then
    begin
      if val_Plan > mt then
      begin
        mt := val_Plan;
      end
    end 
    else
    begin
      if val_Plan > val_base then val_base := val_Plan;
    end;
  end;
 
 
end;

même bien indenté, ce code ne fait rien aucune valeur en retour !

[ShaiLeTroll]

Attention avec les réels, il est conseillé d'utiliser IsZero, SameValue, CompareValue, ... de l'unité Math, cela permet de gérer les erreurs d'arrondis en précisant le nombre de chiffre vraiement significatif

Typiquement en compta, on gère un Epsilon de 0.01
En compta internationale 0.0001 pour gérer les erreurs de taux de change
Et Lors de la transformation via taux de change à 0.000001
En finance, il y a même une gestion des "valeurs d'arrondies perdues", après tout, il n'y a pas de petit profit !

[Dr.Who]

Code :

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

1
2
3
4
function IsEqual(VA, VB: double): boolean;
begin
  result := Pint64(@VA)^ = Pint64(@VB)^;
end;

comparaison binaire et c'est mare.

[droggo]

Meo,

Code :

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

1
2
3
4
function IsEqual(VA, VB: double): boolean;
begin
  result := Pint64(@VA)^ = Pint64(@VB)^;
end;

comparaison binaire et c'est mare.

Pas d'accord, tu retombes pile sur le problème de comparaison des réels, pour lesquels il faut accepter de petits écarts pour tester l'égalité.

[ShaiLeTroll]

il faut accepter de petits écarts pour tester l'égalité.

+1

D'où l'utilisation des fonctions Delphi qui gère un Epsilon !

[Dr.Who]

Meo,

Pas d'accord, tu retombes pile sur le problème de comparaison des réels, pour lesquels il faut accepter de petits écarts pour tester l'égalité.

un petit ecart de rien du tout et paf, on tombe à des millions d'années lumières de notre destination ...

en même temps, c'etait juste pour plaisanter cette fonction ... j'espere que tu ne m'avais pas pris au serieux.