Access如何为不够位数的添加0（补零格式函数）
时间：2013-08-26 17:21 来源：office中国 作者：zhuyiwen 阅读：次
在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
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
(责任编辑：admin)
顶一下
(0)
0%
踩一下
(0)
0%
相关内容
- ·关于 Partition 函数在分组查询中的应
- ·Access算术运算符的含义和说明表
- ·mid函数的另类用法
- ·access制作程序运行进度框
- ·Function与Sub的异同（函数调用）
- ·Access判断某个数值是否为某个数据类型
- ·select case后面语句块的值的四种格式
- ·vba条件语句的两种表示方法
- ·Access几种数据类型初始化的值
- ·Access vba null与＂＂空字符串的区别
- ·access vba 数据类型表
- ·Access变量的命名规则
- ·Access中EXIT Sub与End Sub的区别
- ·Access vba中参数前关键字ByRef和ByVal
- ·Access列表框快速全选的技巧【最快】
- ·vba函数的数据类型强制转换
最新内容
推荐内容