把三位的36进制字符串转化成10进制的字符串输出

最新推荐文章于 2022-04-25 16:05:35 发布

orcd

最新推荐文章于 2022-04-25 16:05:35 发布

阅读量1k

点赞数

分类专栏： pb技术文章文章标签： integer string c

本文链接：https://blog.csdn.net/friendwaters/article/details/1587574

版权

pb技术文章专栏收录该内容

21 篇文章 0 订阅

订阅专栏

//====================================================================
// 函数: f_36to10
//--------------------------------------------------------------------
// 描述: 把三位的 36进制字符串转化成10进制的字符串输出
//--------------------------------------------------------------------
// 参数:
//  value string as_parm
//--------------------------------------------------------------------
// 返回值:  string
//--------------------------------------------------------------------
// 作者: friendwaters  日期: 2007.04.04
//--------------------------------------------------------------------
// 修改历史:
//
//====================================================================

String ls_a,ls_b,ls_c
Long ll_c,ll_b,ll_a,ll_result
ls_c = Right(as_parm,1)
If Asc(ls_c) >= 48 And Asc(ls_c) <= 57 Then
ll_c = Integer(ls_c)
ElseIf Asc(ls_c) >= 65 And Asc(ls_c) <= 90 Then
ll_c = Asc(ls_c) - 55
End If

ls_b = mid(as_parm,2,1)
If Asc(ls_b) >= 48 And Asc(ls_b) <= 57 Then
ll_b = Integer(ls_b)*36
ElseIf Asc(ls_b) >= 65 And Asc(ls_b) <= 90 Then
ll_b = (Asc(ls_b) - 55)*36
End If
ls_a = mid(as_parm,1,1)
If Asc(ls_a) >= 48 And Asc(ls_a) <= 57 Then
ll_a = Integer(ls_a)*36*36
ElseIf Asc(ls_a) >= 65 And Asc(ls_a) <= 90 Then
ll_a = (Asc(ls_a) - 55)*36*36
End If

ll_result = ll_a+ll_b+ll_c
return string(ll_result)