Discussion :

[Powerdj]

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 :

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

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

[ShaiLeTroll]

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 ?

[SergioMaster]

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

C'est ça, du QuickReport

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 :

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

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

[Powerdj]

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

[der§en]

Peut-être avec la fonction : SimpleRoundTo !

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