//====================================================================
// 函数: f_getnext36
//--------------------------------------------------------------------
// 描述: 把传入值(9位)的后三位加一,数字加字母三十六进制
//--------------------------------------------------------------------
// 参数:
// value string as_p 传入得参数值
//--------------------------------------------------------------------
// 返回值: string 返回传入得9位字符后三位加一后得值(字符串)
//--------------------------------------------------------------------
// 作者: friendwaters 日期: 2007.02.05
//--------------------------------------------------------------------
// 修改历史:
//
//====================================================================
String ls_a
String ls_lsh,ls_bz
Long ll_a ,ll_b,ll_c
ls_lsh = Mid(as_p,7,3) //得到流水号
ll_a = Asc(Right(ls_lsh,1))
ls_bz = '1'
If ll_a < 58 Then
If ll_a = 57 Then
ll_a = 65
Else
ll_a += 1
End If
ElseIf ll_a >= 65 And ll_a <= 89 Then
ll_a += 1
ElseIf ll_a = 90 Then //'Z'中间一位加1
ll_a = 48
ls_bz = '2'
ll_b = Asc(Mid(ls_lsh ,2,1))
If ll_b < 58 Then
If ll_b = 57 Then
ll_b = 65
Else
ll_b += 1
End If
ElseIf ll_b >= 65 And ll_b <= 89 Then
ll_b+= 1
ElseIf ll_b = 90 Then //最左边高位加一
ll_b = 48
ls_bz = '3'
ll_c = Asc(Mid(ls_lsh ,1,1))
If ll_c < 58 Then
If ll_c = 57 Then
ll_c = 65
Else
ll_c+= 1
End If
ElseIf ll_c >= 65 And ll_c <= 89 Then
ll_c+= 1
End If
End If
End If
Choose Case ls_bz
Case '1'
ls_lsh = Mid(ls_lsh,1,2)+Char(ll_a)
Case '2'
ls_lsh = Mid(ls_lsh,1,1)+Char(ll_b)+Char(ll_a)
Case '3'
ls_lsh = Char(ll_c)+Char(ll_b)+Char(ll_a)
End Choose
Return Mid(as_p,1,6)+ls_lsh
// 函数: f_getnext36
//--------------------------------------------------------------------
// 描述: 把传入值(9位)的后三位加一,数字加字母三十六进制
//--------------------------------------------------------------------
// 参数:
// value string as_p 传入得参数值
//--------------------------------------------------------------------
// 返回值: string 返回传入得9位字符后三位加一后得值(字符串)
//--------------------------------------------------------------------
// 作者: friendwaters 日期: 2007.02.05
//--------------------------------------------------------------------
// 修改历史:
//
//====================================================================
String ls_a
String ls_lsh,ls_bz
Long ll_a ,ll_b,ll_c
ls_lsh = Mid(as_p,7,3) //得到流水号
ll_a = Asc(Right(ls_lsh,1))
ls_bz = '1'
If ll_a < 58 Then
If ll_a = 57 Then
ll_a = 65
Else
ll_a += 1
End If
ElseIf ll_a >= 65 And ll_a <= 89 Then
ll_a += 1
ElseIf ll_a = 90 Then //'Z'中间一位加1
ll_a = 48
ls_bz = '2'
ll_b = Asc(Mid(ls_lsh ,2,1))
If ll_b < 58 Then
If ll_b = 57 Then
ll_b = 65
Else
ll_b += 1
End If
ElseIf ll_b >= 65 And ll_b <= 89 Then
ll_b+= 1
ElseIf ll_b = 90 Then //最左边高位加一
ll_b = 48
ls_bz = '3'
ll_c = Asc(Mid(ls_lsh ,1,1))
If ll_c < 58 Then
If ll_c = 57 Then
ll_c = 65
Else
ll_c+= 1
End If
ElseIf ll_c >= 65 And ll_c <= 89 Then
ll_c+= 1
End If
End If
End If
Choose Case ls_bz
Case '1'
ls_lsh = Mid(ls_lsh,1,2)+Char(ll_a)
Case '2'
ls_lsh = Mid(ls_lsh,1,1)+Char(ll_b)+Char(ll_a)
Case '3'
ls_lsh = Char(ll_c)+Char(ll_b)+Char(ll_a)
End Choose
Return Mid(as_p,1,6)+ls_lsh