窗体上放四个label值分别是:
label1.caption=161.1
label2.caption=3.8
label3.caption=0
label4.caption=157.3问题是:
? val(label1.caption)=val(label2.caption)+val(label3.caption)+val(label4.caption)
返回 False? ccur(label1.caption)=ccur(label2.caption)+ccur(label3.caption)+ccur(label4.caption)
返回 True
label1.caption=161.1
label2.caption=3.8
label3.caption=0
label4.caption=157.3问题是:
? val(label1.caption)=val(label2.caption)+val(label3.caption)+val(label4.caption)
返回 False? ccur(label1.caption)=ccur(label2.caption)+ccur(label3.caption)+ccur(label4.caption)
返回 True
本示例使用 CCur 函数将表达式转成 Currency。
Dim MyDouble, MyCurr
MyDouble = 543.214588 ' MyDouble 为 Double 类型。
MyCurr = CCur(MyDouble * 2) ' 将 MyDouble * 2 的结果
' (1086.429176)转换为 Currency (1086.4292)。Val 函数
返回包含于字符串内的数字,字符串中是一个适当类型的数值。Val 函数示例
本示例使用 Val 函数返回字符串中所含的数值。Dim MyValue
MyValue = Val("2457") ' 返回 2457。
MyValue = Val(" 2 45 7") ' 返回 2457。
MyValue = Val("24 and 57") ' 返回 24。
Print 161.1 = 3.8 + 0 + 157.3
ccur()转换为货币型