Arrondir valeur QRExpression en Delphi

Bienvenue tout le monde
J'ai un cas pour l'impression dans lequel je calcule un pourcentage, mais le problème est de arrondir de la valeur apparente, par exemple : 77,77 et le résultat réel que je veux voir apparaître est : 77,76 et je veux compléter ce code pour arrondir. Merci:

Code:

---

1 2 3

QRExpr1.Mask := ' #.##%';   QRExpr1.Expression := 'IF(SUM(CREDIT) = 0 ,0,(SUM(DEPENCES)*100)/SUM(CREDIT))';

---

Je ne connais pas le QRExpression (QR comme Quick Report ?)
Qu'elle est la valeur réelle 77.7650001 par exemple qui dans les règles d'arrondi devient 77.77
Est-ce que TRUNC existe ?

Ah et sinon de terme comptable, ce n'est pas DEPENCES ni DÉPENSES mais DÉBIT.

Cela ne pourrait-il pas être traité en SQL avant ?

Citation:

---

Envoyé par ShaiLeTroll

Je ne connais pas le QRExpression (QR comme Quick Report ?)

---

C'est ça, du QuickReport

Citation:

---

Cela ne pourrait-il pas être traité en SQL avant ?

---

c'est généralement ce que je conseille au sein du forum Quickreport (car oui, il y a un forum spécialisé, pratiquement mort) : toujours traiter les données en amont.

Le problème de mask avec Quickreport c'est qu'il s'agit d'un masque de type FloatToText donc à ma connaissance pas d'arrondi.

Une solution, sans passer par les données, utiliser un Onprint du QRExpression (dans ce cas virer le % qui va gêner)

Code:

---

1 2 3 4 5 6

procedure QRExpression1Print(sender : Tobject; var value : String); var prct : Single; begin prct:=StrToFloat(Value); Value:=format('%3.2f',[prct])+'%'; end;

---

mais là je parle avec l'utilisation de vieille version de QuickReport (je me suis arrêté à la 3.5), je n'ai pas vérifié comment cela se passe avec des versions plus récentes

Quel que soit le résultat, je veux prendre deux nombres après la virgule

Peut-être avec la fonction : SimpleRoundTo !

https://docwiki.embarcadero.com/Libr....SimpleRoundTo