Question

我正在使用VBScript将数据输入到Excel工作表中。

objWorksheet.Cells(1, 1) = 1

当我运行此代码并打开工作表时，excel文件显示1.0。我希望它只显示1

objWorksheet.Cells(1, 1) = 1.5

当我运行此代码并打开工作表时，excel文件显示1.5，这是所需的行为。

如何删除“.0”以便只在VBScript中显示整个数字？

Answer 1

这里有一个功能：

Function GetTruncatedWholeNumber(sngToTruncate)
    Dim intTruncated
    intTruncated = CInt(sngToTruncate)
    sngToTruncate = CSng(sngToTruncate) 'just to make sure it's a single.

    If(sngToTruncate = intTruncated) Then _
        GetTruncatedWholeNumber = intTruncated Else _
        GetTruncatedWholeNumber = sngToTruncate
End Function

如果数字是VBScript中的整数，如何删除小数？

1 个答案: