• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

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
Hình đại diện của người dùng
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Bài viết: 1641
Ngày tham gia: T.Tư 16/04/2008 11:25 am
Đến từ: Chợ Lách - Bến Tre
Been thanked: 31 time
Liên hệ:

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

Gửi bàigửi bởi clarkkent » T.Sáu 06/06/2008 9:03 am

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 hết

  1.  
  2. Function Bin2Dec(nBin As String) As Variant
  3. Dim I As Long
  4. Dim lLength As Long
  5.  
  6. lLength = Len(nBin)
  7. For I = 1 To lLength
  8. Bin2Dec = Bin2Dec + IIf(Mid(nBin, lLength - I + 1, 1) = 1, Pow(I - 1), 0)
  9. Next I
  10. End Function
  11.  
  12. Function Pow(op As Long) As Variant
  13. Dim I As Long
  14.  
  15. If op = 0 Then
  16. Pow = CDec(1)
  17. Exit Function
  18. End If
  19.  
  20. Dim acc As Variant
  21. acc = CDec(2)
  22. For I = 1 To op - 1
  23. acc = acc * 2
  24. Next
  25. Pow = acc
  26. End Function


• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...

Quay về “[VB] Mẹo vặt khác”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.0 khách