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
时间: 2024-10-13 12:31:44