div: 除了之后取整数, 需要注意的事,如果结果是负数,那么结果会有一个看起来是四舍五入的结果
/:除了之后保留小数部分
话不多说,举例如下:
DATA:
A TYPE HSLXX12 VALUE '10272112273',
B TYPE HSLXX12 VALUE '-10272112273',
C TYPE HSLXX12 VALUE '2667',
D TYPE HSLXX12 VALUE '-2667',
DIVA1 TYPE HSLXX12,
DIVA2 TYPE HSLXX12,
DIVB1 TYPE HSLXX12,
DIVB2 TYPE HSLXX12,
DIVC1 TYPE HSLXX12,
DIVC2 TYPE HSLXX12,
DIVD1 TYPE HSLXX12,
DIVD2 TYPE HSLXX12.
DIVA1 = A DIV 1000.
DIVA2 = A / 1000.
DIVB1 = B DIV 1000.
DIVB2 = B / 1000.
DIVC1 = C DIV 1000.
DIVC2 = C / 1000.
DIVD1 = D DIV 1000.
DIVD2 = D / 1000.
WRITE: / A, 'DIV 1000 = ', DIVA1.
WRITE: / A, '/ 1000 = ', DIVA2.
WRITE: / B, 'DIV 1000 = ', DIVB1.
WRITE: / B, '/ 1000 = ', DIVB2.
WRITE: / C, 'DIV 1000 = ', DIVC1.
WRITE: / C, '/ 1000 = ', DIVC2.
WRITE: / D, 'DIV 1000 = ', DIVD1.
WRITE: / D, '/ 1000 = ', DIVD2.
结果如下:
10,272,112,273.00 DIV 1000 = 10,272,112.00
10,272,112,273.00 / 1000 = 10,272,112.27
10,272,112,273.00- DIV 1000 = 10,272,113.00-
10,272,112,273.00- / 1000 = 10,272,112.27-
2,667.00 DIV 1000 = 2.00
2,667.00 / 1000 = 2.67
2,667.00- DIV 1000 = 3.00-
2,667.00- / 1000 = 2.67-
从上面的结果,大家注意红色的部分。估计就了解了吧。不说了!