Hàm đơn giản chuyển từ Binary sang Decimal

Các mẹo vặt linh tinh khác, không thuộc nhóm nào
Đăng trả lời
Hình đại diện của thành viên
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Bài viết: 1641
Ngày tham gia: Thứ 4 16/04/2008 11:25 am
Đến từ: Chợ Lách - Bến Tre
Been thanked: 32 times
Tiếp xúc:

Hàm đơn giản chuyển từ Binary sang Decimal

Gửi bài by clarkkent »

Thủ thuật: Hàm chuyển Binary sang Decimal (Nhị phân sang Thập phân)
Tác giả: Nguyễn Trung Tín
Mô tả: Chuyển từ Nhị phân sang Thập phân
Cách dùng : Bin2Dec(chuỗi cần chuyển)

Mã: Chọn tất cả

 Function Bin2Dec(nBin As String) As VariantDim I As LongDim lLength As Long lLength = Len(nBin)For I = 1 To lLengthBin2Dec = Bin2Dec + IIf(Mid(nBin, lLength - I + 1, 1) = 1, Pow(I - 1), 0)Next IEnd Function Function Pow(op As Long) As VariantDim I As Long If op = 0 ThenPow = CDec(1)Exit FunctionEnd If Dim acc As Variantacc = CDec(2)For I = 1 To op - 1acc = acc * 2NextPow = accEnd Function
• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...
Đăng trả lời

Quay về