Function HextoDec(hex As String)
Dim i As Byte, l As Byte, d As String, dec As Long
l = Len(hex)
For i = 1 To l
d = Mid(hex, i, 1)
If d Like "[0-9]" Then
'dec = dec + CByte(d) * 16 ^ (l - 1)
Else
Select Case d
Case "A"
d = "10"
Case "B"
d = "11"
Case "C"
d = "12"
Case "D"
d = "13"
Case "E"
d = "14"
Case "F"
d = "15"
End Select
End If
dec = dec + CByte(d) * 16 ^ (l - i)
Next i
HextoDec = dec
End Function
tags: 铁人赛 macOS iTerm2 zsh powerlevel10k 概述 作者的碎念 ...
该文章同步发布於:我的部落格 什麽是 TDD (Test-Driven Development) ...
前言 昨天讲到了利用两个查表的方式来计算,会比直接计算来的节省运算资源,今天就来看看到底要vrunt...
Step 1: 蒐集数据 要先将自己需要的数据下载好,并且确认资料格式而去做不同的处理 Step ...
如果未识别数据,则无法分配数据所有者。仅在识别,定位并清点数据之後才分配数据所有者。此外,在整个组织...