Public Function PadLeft(ByVal s As String, ByVal i As Integer, ByVal c As String)
If i > LenB(s) Then
PadLeft = String(i - LenB(StrConv(s, vbFromUnicode)), c) & s
Else
PadLeft = s
End If
End Function
Public Function PadRight(ByVal s As String, ByVal i As Integer, ByVal c As String)
If i > LenB(s) Then
PadRight = s & String(i - LenB(StrConv(s, vbFromUnicode)), c)
Else
PadRight = s
End If
End Function
转载于:https://www.cnblogs.com/lbnnbs/p/4785043.html