[Code] Hàm chuyển số Hexa sang số thập phân trong VN.NET
Trang 1 trong tổng số 1 trang
[Code] Hàm chuyển số Hexa sang số thập phân trong VN.NET
Hàm chuyển số Thập lục phân (hexa) sang số Thập phân trong VB.NET.
Function Hex2Dec(ByVal strHex As String) As Long
Const Base16 = "123456789ABCDEF"
Dim i As Byte, result As Long, tmp As String
For i = 1 To Len(strHex)
tmp = UCase(Mid(strHex, i, 1))
result = result + (InStr(1, Base16, tmp)) * (16 ^ (Len(strHex) - i))
Next
Hex2Dec = result
End Function
Function Hex2Dec(ByVal strHex As String) As Long
Const Base16 = "123456789ABCDEF"
Dim i As Byte, result As Long, tmp As String
For i = 1 To Len(strHex)
tmp = UCase(Mid(strHex, i, 1))
result = result + (InStr(1, Base16, tmp)) * (16 ^ (Len(strHex) - i))
Next
Hex2Dec = result
End Function
Similar topics
» [Phần mềm] Total Video Converter 3.71 - Chuyển đổi video - Audio chuyên nghiệp
» [Phần mềm] VSO Image Resizer v4.0.4.4 - Resize ảnh chuyên nghiệp
» "Người phụ nữ quan trọng nhất trong đời tôi là Mẹ"
» [Phần mềm] Phần mềm diệt virus Bkav Pro - Công nghệ điện toán đám mây
» [Phần mềm] Phần mềm TeamViewer - điều khiển máy tính từ xa qua mạng Internet
» [Phần mềm] VSO Image Resizer v4.0.4.4 - Resize ảnh chuyên nghiệp
» "Người phụ nữ quan trọng nhất trong đời tôi là Mẹ"
» [Phần mềm] Phần mềm diệt virus Bkav Pro - Công nghệ điện toán đám mây
» [Phần mềm] Phần mềm TeamViewer - điều khiển máy tính từ xa qua mạng Internet
Trang 1 trong tổng số 1 trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết