topic Re: remove decimal places in Application Development and Automation Discussions

remove decimal places

daniel_humberg — Thu, 12 May 2005 16:35:10 GMT

this is probably very easy, but i couldn't find the information I need yet.

I have a field in my db-table with type P (length 9, decimal places 3).

when i copy a value with 3 decimal places (e.g. 1,234) into the field, I want to remove the last digit (4), so the result should be 1,23. How do I do this without changing the data type and lenght of the field?

Re: remove decimal places

RichHeilman — Thu, 12 May 2005 17:03:34 GMT

If your field is defined as type p decimals 3, then that is the format that it will take in the database. If you want to display this value in a program a different way, then you should use the following logic.



Data: x type p decimals 3 value '1.234'.
Data: y type p decimals 2.

y = x.

Write:/ x.
Write:/ y.

Regards,

Rich Heilman

Re: remove decimal places

former_member183804 — Thu, 12 May 2005 17:04:27 GMT

Hello Daniel,

that depends wether you want to have truncation or not. If you would like to have the number rounded up you simply can define an intermeditate variable. Else the use of the statement trunc should help.

Best Regards

Klaus


program test.

write: / ' CAST'.  perform cast  using :  '1.011',  '2.036'.
write: / 'TRUNC'. perform trunc using :  '1.011',  '2.036'.


form cast using value type p.

  data:
    3decs type p length 9 decimals 3,
    2decs type p length 9 decimals 2.

  3decs = value.
  write : 3decs.

  3decs = 2decs = 3decs.
  write : 3decs.

endform.

form trunc using value type p.

  data:
    3decs type p length 9 decimals 3.

  3decs = value.
  write : 3decs.

  3decs = ( trunc( 100 * 3decs ) / 100 ).
  write : 3decs.

endform.

Re: remove decimal places

andreas_mann3 — Fri, 13 May 2005 06:08:03 GMT

Hi Daniel,

try this: WRITE:/ x decimals 2.

Andreas