VBScript:我怎样才能将一个数字减少到4位而不是舍入它？

Dim num
num = 12345.6789

' 将数字转换为字符串
Dim numStr
numStr = CStr(num)

' 获取小数点的位置
Dim dotIndex
dotIndex = InStr(numStr, ".")

' 截取小数点前的部分
Dim integerPart
integerPart = Left(numStr, dotIndex - 1)

' 截取小数点后的部分
Dim decimalPart
decimalPart = Mid(numStr, dotIndex + 1)

' 将小数部分截取为4位
decimalPart = Left(decimalPart, 4)

' 拼接整数部分和小数部分
Dim result
result = integerPart & "." & decimalPart

' 将结果转换为数字
Dim finalResult
finalResult = CDbl(result)

' 输出结果
MsgBox finalResult