Top posters
khanhtuan (254)
 
happy smiles (8)
 
nguyen.thanh.hoa93 (1)
 

Báo mới
Quảng cáo
LH: 0976054201

[Code] Hàm chuyển số Hexa sang số thập phân trong VN.NET

Go down

[Code] Hàm chuyển số Hexa sang số thập phân trong VN.NET

Bài gửi by khanhtuan on Sat Dec 08, 2012 2:12 pm

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
avatar
khanhtuan
Admin

Tổng số bài gửi : 254
Join date : 29/11/2011
Age : 28
Đến từ : Trảng Bom

Xem lý lịch thành viên http://phamkhanhtuan.forumvi.com

Về Đầu Trang Go down

Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết