kaufmänisches Runden im free-format

[malzusrex]

naja, müsste denn nicht auch folgendes gehen ?!?

/free
  awprmps70 = %DecH( (M_um70 * 100 / M_PM70) : 7 : 2 ) ;
/end-free 

wobei die 7:2 = 7Stellen mit 2 Nachkommastellen ist

Tschau Ronald

[Fuerchau]

Auch hier wird nicht gerundet, sondern das Ergebnis abgeschnitten.
%decH heisst nicht runden sondern auf gerade Anzahl Stellen bringen (Halfadjust).

[malzusrex]

Hallo Baldur,

da würde ich jetzt aber doch mal wieder sprechen wollen

d Wert1           s              9  4 Inz( 3,8170 )
d Wert            s              7  2              
d Wertx           s              7  2              
 /free                                             
   Wert   = %DecH( Wert1 : 7 : 2 );                  
   Wertx  = %Dec( Wert1 : 7 : 2 );                  
   *InLr  = *On;                                   
 /End-Free 

bei mir kommt da folgendes raus

Wert = 3,82
Wertx = 3,81

Gruß Ronald

[Fuerchau]

Ups !
Man müsste den englischen Begriff "halfadjust" mal korrekt erklären. Frei übersetzt könnte es auch Runden (eigentlich "Round") heissen.

[JustMe]

So wie wir es früher zu Fuss gemacht haben : die Hälfte auf die letzte gewünschte Stelle addieren und abschneiden.

0,12 + 0,05 = 0,17 -> 0,1

0,16 + 0,05 = 0,21 -> 0,2