VisualFreeBasic内置库_CCur 货币数值

CCUR 是Currency数据类型的包装类。货币是以8字节的两个补码整数值除以10000为比例实现的。这给出了一个 精确的固定小数点的数字, 小数点左边有15位, 右边有4位数字。货币数据类型对于涉及货币的计算非常有用, 或者对于任何需要精确的固定小数点计算而言, 精确度很重要。 CCUR 包装实现此 fixed-point 类型的算术、赋值和比较运算, 并提供对小数点两侧的数字的访问, 其形式为两个部分: 一个整数部分, 它将值存储在小数点, 以及将值存储在小数点右边的小数部分。小数部分在内部存储为-9999 (CY_MIN_FRACTION) 和 +9999 (CY_MAX_FRACTION) 之间的整数值。函数 GetFraction 返回一个按 10000 (CY_SCALE) 因子缩放的值。\
在指定 CCUR 对象的整数和小数部分时, 请记住小数部分是范围0到9999的数字。在处理美元、人民币这样的货币时, 这一点很重要, 即在小数点后仅使用两个有效位表示金额。即使最后两位数字不显示, 也必须考虑到它们。

使用方法

先引用库文件

#include Once "Afx/CCur.inc"

DIM c AS CCUR = 12345.1234
print c
c = c + 111.11
print c
c = c - 111.11
print c
c = c * 2
print c
c = c / 2
print c
c += 123
print c
c -= 123
print c
c *= 2.3
print c
c /= 2.3
print c
c = c ^ 2
print c
c = SQR(c)
print c
DIM c2 AS CCUR = c
print c2
DIM c3 AS CCUR = c * 2
print c3
DIM c4 AS CCUR = c3 / 2
print c4
DIM c5 AS CCUR = "1234.789"
print c5
DIM c6 AS CCUR
c6 = "77777.999"
print c6
DIM c7 AS CCUR
c7 = c6
print c7
DIM cl AS CCUR = 3
cl = LOG(cl)
print cl
DIM v AS VARIANT = cl
dim cv AS CCUR = v
print cv
print "--------------"
DIM cx AS CCUR
FOR i AS LONG = 1 TO 1000000
 cx += 0.0001
NEXT
PRINT "0.0001 added 1,000,000 times = "; cx