VBA基础
Access如何为不够位数的添加0（补零格式函数）
2013-08-26 17:28:40
在QQ群，有朋友问如何把不够位数的用0补充完整，下面提供一个函数
Function AFormat(ByVal sStr As String, ByVal sFormat As String) As String
Dim sF() As String
Dim sS() As String
Dim i As Integer, j As Integer, k As Integer
sF = Split(sFormat, "-")
i = UBound(sF)
sS = Split(sStr, "-")
j = UBound(sS)
ReDim Preserve sS(i + 1)
For k = j + 1 To i
sS(k) = sF(k)
Next
For k = 0 To i
sS(k) = Format(sS(k), sF(k))
Next
AFormat = Join(sS, "-")
AFormat = Left(AFormat, Len(AFormat) - 1)
End Function
在立刻窗口测试：
?AFormat("4-723-23-1-1", "00-0000-000-000-000")
04-0723-023-001-001