Calcul en Delphi

Version imprimable

27/01/2017, 15h01
dzconception

Calcul en Delphi

Bonjour,

Je suis sur un projet de calcul de paye. Les rubriques de paye sont soit un taux, soit une valeur fixe, un calcul ...

Je veux que l'utilisateur de l'application lui-même entre la formule de calcul.

Exemple :

indemnitex = 25% du salaire de base

Il y a quelques idées svp ?

Salutations:?:?
27/01/2017, 15h41
der§en

C'est quoi la question ?
27/01/2017, 16h18
free07

Bonjour,

Si j'ai bien compris son message, il y a eu des réponses sur cette problématique voir ci-dessous:

https://www.developpez.net/forums/d5...xique-formule/

Bonjour
La version de Delphi a aussi son importance, pour des expressions simples, avec les versions de Delphi proposant les LiveBindings on peut utiliser ceci

Code:

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
 
unit Parser;
 
interface
 uses
  System.Rtti,
  System.Bindings.EvalProtocol,
  System.Bindings.Evaluator,
  System.Bindings.EvalSys,
  System.SysUtils;
 
 function CalcExpr(Expression : String) : Double; cdecl; export;
 
implementation
 
function CalcExpr(Expression : String) : Double;
Var
  LScope : IScope;
  LCompiledExpr : ICompiledBinding;
  LResult : TValue;
begin
  LScope:= BasicOperators;
  LCompiledExpr:= Compile(Expression, LScope);
  LResult:=LCompiledExpr.Evaluate(LScope, nil, nil).GetValue;
  if not LResult.IsEmpty then Result:=LResult.AsExtended
                         else Result:=1;
end;
end.

reste donc avant à faire les remplacements nécessaires dans la formule saisie
par exemple:

Code:

1
2
3
4
5
 
 formule:='SALAIREBASE * 25%';
 Formule:=StringReplace(Formule,'%','/100',[rfReplaceAll]);
 Formule:=StringReplace(Formule,'SALAIREBASE','1200.00',[rfReplaceAll, rfIgnoreCase]);
 indemnitex := CalcExpr(Formule);

ATTENTION à l'ordre de priorité des opérateurs dans les formules quand même !

29/01/2017, 10h30
dzconception

merci et si j'ai des calcules complexe avec des tests ?
29/01/2017, 11h39
Charly910

Bonjour,
je suppose que tous les paramètres variables de formules ne sont à changer que rarement (une fois par an ?). Sont ils variables pour chaque personne, ou communs à tous ? s'ils sont variables pour chaque personne, alors, faut les stocker en BD.

Si les paramètres variables des formules sont communs à tous, et si les formules ont toujours la même structure, pourquoi ne pas rentrer les paramètres variables dans une Fiche, les sauver dans un fichier ini ou dans la base de registre et faire tous les calculs et tests dans le programme après extraction des données de la BD, avant d'afficher ou d'imprimer la fiche de paye ?

A+
Charly
30/01/2017, 08h10
SergioMaster

Bonjour,

il m'étonnerait que des opérations tel que des logs, sinus et cosinus, puissance etc... soient utilisées pour des fiches de paye
c'est ce que j'entendais par opérations "non simples"
pour le reste des "calculs complexes" c'est au programme et à son déroulement (et donc à vous) de faire en sorte que chaque opération soit acceptable par l'évaluateur d'expression. Sinon ? free07 à déjà pointé une discussion, et google (ou tout autre moteur de recherche) sera votre meilleur allié pour trouver l'évaluateur d'expression qui vous conviendra.