左边填空格,有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个字母,不算好,但看起来简单,容易理解。