Phạm Khánh Tuấn
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.
Top posters
khanhtuan (254)
[Code] Hàm chuyển số Hexa sang số thập phân trong VN.NET I_vote_lcap[Code] Hàm chuyển số Hexa sang số thập phân trong VN.NET I_voting_bar[Code] Hàm chuyển số Hexa sang số thập phân trong VN.NET I_vote_rcap 
happy smiles (8)
[Code] Hàm chuyển số Hexa sang số thập phân trong VN.NET I_vote_lcap[Code] Hàm chuyển số Hexa sang số thập phân trong VN.NET I_voting_bar[Code] Hàm chuyển số Hexa sang số thập phân trong VN.NET I_vote_rcap 
nguyen.thanh.hoa93 (1)
[Code] Hàm chuyển số Hexa sang số thập phân trong VN.NET I_vote_lcap[Code] Hàm chuyển số Hexa sang số thập phân trong VN.NET I_voting_bar[Code] Hàm chuyển số Hexa sang số thập phân trong VN.NET I_vote_rcap 

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 Empty [Code] Hàm chuyển số Hexa sang số thập phân trong VN.NET

Bài gửi by khanhtuan 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
khanhtuan
khanhtuan
Admin

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

https://phamkhanhtuan.forumvi.com

Về Đầu Trang Go down

Về Đầu Trang

- Similar topics

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