请帮我看下面的代码，并解释每个函数代表的意思。

2025-12-14 09:15:00

推荐回答（3个）

回答1：

设置函数获得 str
判定str不为空并为一个数字
将str转化为长整型给chkclng
否则（str不是数字的时候）
chkclng为0
结束判断str
结束函数

回答2：

没有小数的原因在于CLng 函数，它是强制进行整数运算，所以没有小数。
并且CLng 函数是向最接近的偶数取整。例如，0.5 取整为 0、1.5 取整为 2，所以不精确！

解决办法呢，可以试下 FormatNumber()、或cdbl()、或ccur()
就是把这句 ChkClng = CLng(str) 改下，改成：
ChkClng = FormatNumber(str, 2) '2表示保留2位小数

之于代码的意思，主要是中间的那5行，相信楼主已明白。我就不累赘了。

GoodLuck!

回答3：

If str<>"" and IsNumeric(str) Then
如果参数不等于空字符串并且参数是数字