北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |
假如当前有一个五位数（数字可能有重复的），怎么通过下面的条件，在0~9中找出与其不同的数字？
A1 ' 当前数的上一个数的个位
A2 ' 与当前数的不同数字
A3 ' 当前数的个位相邻的数字（个位相邻：比如当前数的个位是 5 则其相邻数字为 4和6）
A4 ' 要求的数
条件一：如果当前数前面没有数，A4=A2-A3
条件二：如当前数前面有数， A4 = A2-A1-A3
举例：
当前数为：01233 则结果为： 56789 '因为前面没有数，由条件一算出
前一个数为：01233
当前数为：01122 则结果为： 456789 '因为前面有数，由条件二算出
点击下载此附件
假设0相邻的是1 和9
改一下FUNCTION就行了
Public Function TestNm(StrNm As String, PreNm As String) As String
Dim i As Integer
Dim Tem As String
Dim EndNm As String
Tem = ""
If Right(StrNm, 1) = 0 Then
EndNm = 1 & 9 '这里假设0相邻的是1 和9 这里喜欢怎么设就怎么设
Else
EndNm = Right(StrNm, 1) + 1 & Right(StrNm, 1) - 1
End If
If IsNull(prenum) Then
StrNm = Trim(StrNm & EndNm)
Else
StrNm = Trim(StrNm & EndNm & Right(PreNm, 1))
End If
For i = 0 To 9
If InStr(1, StrNm, CStr(i)) = 0 Then
Tem = Tem & i
End If
Next
TestNm = Tem
End Function
假设0 +1 -1 分别是 1 和9
9+1 -1 分别是0 和 8
Public Function TestNm(StrNm As String, PreNm As String) As String
Dim i As Integer
Dim Tem As String
Dim EndNm As String
Tem = ""
EndNm = Right(Abs(Right(StrNm, 2) + 1), 1) & (Right(Abs(Right(StrNm, 2) - 1), 1))
If IsNull(prenum) Then
StrNm = Trim(StrNm & EndNm)
Else
StrNm = Trim(StrNm & EndNm & Right(PreNm, 1))
End If
For i = 0 To 9
If InStr(1, StrNm, CStr(i)) = 0 Then
Tem = Tem & i
End If
Next
TestNm = Tem
End Function
不管你怎样定义都好,只需要在FUNCTION处理就OK
不涉及查询的SQL语句的更改
