36进制的顺序递增(主要用来标识条码信息)

//====================================================================
// 函数: 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