VB字符串左边填0的办法: LPad0

左边填空格，有LPad，填0呢，就起个名字叫LPad0吧。

这个也应用比较多。

 

估计不会填太多0，因此用如下办法：

 

Public Function LPad0(ByVal s As String, ByVal l As Integer) As String
    Dim slen As Integer
    slen = l - Len(s)
    If slen < 1 Then
        LPad0 = s
    Else
        LPad0 = Right("000000000000000000000000000000000000000000000" & s, l)
    End If
End Function

 

这里简单地用了取右边n个字母，不算好，但看起来简单，容易理解。