function - 如何在 VBScript 中指定整数的总位数？

Question

我在 Visual Studio 2008 的 SSRS 中有一个“文本字段”，我想将其转换为数字，以便导出到 Excel 工作。简单地将属性更改为 Number 是行不通的。因此，我决定尝试在 Value 字段中编写一些代码以使其正常工作。

我有一个必须始终包含七位数字的发票编号，例如 1938576、0000001。使用CInt(Fields!Invoice.Value)不起作用，因为它不保留任何前导零。如何将此字段转换为数值（此字段为整数，但我还有一些其他字段必须使用双精度），同时还确定必须显示多少位数？类似的东西CInt(Fields!Invoice.Value, 7)会很棒，但我不认为该参数是函数的一部分。

Answer 1

VBScript 没有任何适用于此的数字格式化函数。你必须自己写。

Function PadNumber(x, digit_count)
    If Len(x) < digit_count Then
        PadNumber = String(digit_count - Len(x), "0") & x
    Else
        PadNumber = x
    End If
End Function