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

Question

我在Visual Studio 2008中的SSRS中有一个“文本字段”，我想将其转换为数字，以便导出到Excel工作。只需将属性更改为数字即可。所以我决定尝试在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