¡ÒÃá»Å§àÅ¢°Ò¹ 10 à»ç¹àÅ¢°Ò¹ 16 áÅÐ àÅ¢°Ò¹ 2 à»ç¹àÅ¢°Ò¹ 16 (á¹Ç¤Ô´¢Í§ªèÒ§)

àÅ¢°Ò¹ÊÔº

àÅ¢°Ò¹Êͧ

àÅ¢°Ò¹ÊԺˡ

0

0000

0

1

0001

1

2

0010

2

3

0011

3

4

0100

4

5

0101

5

6

0110

6

7

0111

7

8

1000

8

9

1001

9

10

1010

A

11

1011

B

12

1100

C

13

1101

D

14

1110

E

15

1111

F

' ==============================================================
Function Decimal2HexaDecimal(Dec As Long) As String
' ==============================================================
Dim Hex As String
    ' à§×è͹ä¢ÊØ´·éÒ ·Ó¨¹¡ÇèÒ Dec = 0 ¡çãË騺¡Ãкǹ¡Òà (True) ÍÍ¡¨Ò¡Ç§Ãͺ Do ... While
    Do While (Dec > 0)
        ' Mod ´éÇÂÍÐäà ¡ç¨Ðä´é¤èÒÊÙ§ÊØ´ (·Õèà»ç¹ä»ä´é) ¢Í§µÑÇ Mod ź´éÇ 1 àÊÁÍ
        ' ´Ñ§¹Ñé¹àÁ×èÍàÍÒ 16 (°Ò¹ 10) ÁÒ Mod ·ÓãËé¤èÒÊÙ§ÊØ´·Õèä´é (16 - 1) = 15 ¹Ñè¹àͧ
        ' à§×è͹ä¢ã¹¡Òôѡ¤èÒµÑé§áµè 10 áµèäÁèà¡Ô¹ 15 à¾ÃÒÐ 10 á·¹¤èÒ´éÇ A (°Ò¹ 16)
        ' 11 = B (°Ò¹ 16) áÅÐä»àÃ×èÍÂ樹 15 = F (°Ò¹ 16)
        Select Case (Dec Mod 16)
            Case 10
                Hex = "A" & Hex
            Case 11
                Hex = "B" & Hex
            Case 12
                Hex = "C" & Hex
            Case 13
                Hex = "D" & Hex
            Case 14
                Hex = "E" & Hex
            Case 15
                Hex = "F" & Hex
            
            ' µÑé§áµè 0 - 9 ÁÒ»ÃÐÁÇżŷÕèµÃ§¹Õé¤ÃѺ ... (ÃѺÃͧ¡Òà Mod ´éÇ 16 Âѧä§æ Áѹ¡çäÁèÁÕ¤èÒà¡Ô¹ 15 ä»ä´éËÃÍ¡)
            ' Êѧࡵ´éǤÃѺ ·ÓäÁ¼ÁàÍÒà§×è͹䢤èÒÃÐËÇèÒ§ 0 - 9 ÁÒÇÒ§äÇéã¹ Case Else .. (ÁѹäÁèÁÕ¤èÒÍ×è¹ÍÕ¡áÅéÇàËÃÍ).
            Case Else
                
                ' à¡çº¤èҤӵͺ¢Í§¡ÒÃËÒÃàÍÒàÈÉ (MOD) ... àÃÕ§ÅӴѺãËé¶Ù¡µéͧ´éǹèФÃѺ
                Hex = (Dec Mod 16) & Hex
                
        End Select
        
        ' ËÒõѴàÈÉ (Div) ¨¹¡ÇèÒ¨Ðä´é 0 ... à¾×èÍãªéà»ç¹à§×è͹ä¢ã¹¡ÒÃǹÃͺ Do ... While
        Dec = Dec \ 16
    
    Loop

    ' Ê觤èҤ׹¡ÅѺã¹áºº String à¾ÃÒÐàÅ¢°Ò¹ 16 ÁѹÁÕµÑÇÍÑ¡¢ÃÐ A - F
    Decimal2HexaDecimal = Hex
    
End Function

' ==============================================================
' á»Å§àÅ¢°Ò¹ 2 à»ç¹àÅ¢°Ò¹ 16 ... â´Â·Ó¡ÒäԴàÅ¢°Ò¹ 2 ¤ÃÒÇÅÐ 4 ºÔµ
Function Binary2HexaDecimal(BinaryBase As String) As String
' ==============================================================

Dim Count As Integer    ' ¹Ñº¨Ó¹Ç¹ºÔµ¤ÃÒÇÅÐ 4 ºÔµ
Dim Bit As String           ' ¹Óä»á»Å§à»ç¹àÅ¢°Ò¹ 16
Dim Hex As String         ' à¡çº¤èÒ·Õèá»Å§à»ç¹àÅ¢°Ò¹ 16 à¾×è͹ÓÁÒàÇÕ¹ãªé§Ò¹
    
    
    ' àÅ×Í¡ÁÒà»ç¹ªØ´æÅÐ 4 ºÔµ µéͧ¹Ñº¨Ò¡·Ò§¢ÇÒÁ×ÍÁÒ¹èФÃѺ (LSB)
    ' ã¹°Ò¹ 10 ¡çàËÁ×͹äÅè¨Ò¡ËÅÑ¡¾Ñ¹ ËÅÑ¡ÃéÍ ËÅÑ¡ÊÔº ËÅѡ˹èÇ (µÒÁ»¡µÔªÕÇÔµ·Õè¤Øé¹à¤Â¡ÑºµÑÇàÅ¢)
    ' Count ¨ÐÅ´¤èÒŧ·ÕÅÐ 4 ¤ÃѺ ... ¹Ñº¨Ó¹Ç¹¤ÇÒÁÂÒǢͧ¨Ó¹Ç¹ºÔµ áÅéÇÅ´¤èÒŧ·ÕÅÐ 4 ºÔµ
    For Count = Len(BinaryBase) To 1 Step -4
        
        ' ¡Ã³Õº×µ·Ò§«éÒÂÁ×ÍÁѹÁÕ¢¹Ò´äÁè¤Ãº 4 ºÔµ ... ÍÒÈÑ¡ÒÃàµÔÁ 0 à¢éÒ仫פÃѺ
        ' àªè¹ 1 0000 0001 ...
        ' ¡ÒÃǹÃͺ¤ÃÑé§ÊØ´·éÒ ¨Ð·ÓãËé¤èÒ 1 «Öè§à»ç¹ºÔµ·ÕèÍÂÙè«éÒÂÁ×ÍÊØ´ (MSB) àËÅ×͵ÑÇà´ÕÂÇâ´´æ
        ' 㹡óշÕèäÁèä´é¤èҨӹǹºÔµà»ç¹ 4, 8, 12, 16, 20,  ... ä»àÃ×èÍÂæ (¡ÒÃËÒôéÇ 4 ŧµÑǾʹÕ)
        If Count < 4 Then
            ' ===========================================================
            ' »ÃѺ¢¹Ò´ºÔµãËé¤Ãº 4 ºÔµ â´ÂàÍÒºÔµÁÒàÃÕ§¡Ñ¹ áÅéǹѺÁÒ¨Ò¡·Ò§¢ÇҤ׹¡ÅѺÁÒ 4 µÑÇ ...
            ' "0000" & "1" ... »¡µÔ¡çä´é¡ÒÃàÃÕ§ºÔµ ´Ñ§¹Õé  "00001"
            ' ¾Íãªé Right("0000" & "1", 4) ... ¤ÓµÍº ¤×Í "0001"
            Bit = Right$("0000" & Mid$(BinaryBase, 1, Count), 4)
            ' ===========================================================
        
        Else
            
            ' ===========================================================
            ' ¤èÍÂæäÅèËÒÇÔ¸Õ¡ÒäԴ¹èФÃѺ ...
            ' ÊÁÁصÔËÒ¤èÒ 257 (°Ò¹ 10) ËÃ×Í  1 0 0 0 0 0 0 0 1 (°Ò¹ 2)
            ' ·ÓãËéä´é¤ÇÒÁÂÒÇ·Ñé§ËÁ´ 9 ºÔµ (Count = 9) ... ãËéźÍÍ¡´éÇ 3 à¾ÃÒÐ ...
            ' 1 2 3 4 5 6 7 8 9 (¹ÑºËÅÑ¡)
            ' 1 0 0 0 0 0 0 0 1
            ' -----------x------- ... ¼Áµéͧ¡ÒõѴºÔµ¢ÇÒÁ×Í 3 ºÔµÍÍ¡ ¨Ö§·ÓãËéźáÅéÇä´éµÓáË¹è§ x ¾Í´Õ
            ' ´Ñ§¹Ñé¹ÃͺááàÃÔèÁ 9 - 3 = 6 ... ãËéÅͧ¹Ñº´Ù¤ÃѺÇèÒ¨ÐàÃÔèÁÍèÒ¹¨Ò¡ËÅÑ¡·Õè 6 ¾Í´Õ ¹Ñº¨Ò¡«éÒÂÁ×͹èФÃѺ
            ' ¨Ø´¹ÕéÊӤѭÁÒ¡¤ÃѺ ... ¢ÍãËéäÅè¡Ò÷ӧҹ´éÇ¡Òá´ F8 ·´Êͺ´Ù
            ' àÁ×èÍãªé Mid$(¢éͤÇÒÁ, àÃÔèÁµé¹¨Ò¡ËÅÑ¡·Õè, ¹Ñºä» 4 µÑÇ) ...
            ' Áѹ¨ÐÁըӹǹºÔµà¢éÒÁÒà·èÒäà ¡çäÁèÁջѭËҡѺá¹Ç¤Ô´¢Í§Í´ÕµªèÒ§ (ËÑÇÁѹ) Ẻ¼Á ...
            Bit = Mid$(BinaryBase, Count - 3, 4)
            ' ===========================================================
        
        End If
        
        ' ä´éÁҤú 4 ºÔµáÅéÇ¡ç·Ó¡ÒÃà»ÃÕºà·Õº¤èÒ
        Select Case Bit
            Case "0000"
                Hex = "0"
            Case "0001"
                Hex = "1"
            Case "0010"
                Hex = "2"
            Case "0011"
                Hex = "3"
            Case "0100"
                Hex = "4"
            Case "0101"
                Hex = "5"
            Case "0110"
                Hex = "6"
            Case "0111"
                Hex = "7"
            Case "1000"
                Hex = "8"
            Case "1001"
                Hex = "9"
            Case "1010"
                Hex = "A"
            Case "1011"
                Hex = "B"
            Case "1100"
                Hex = "C"
            Case "1101"
                Hex = "D"
            Case "1110"
                Hex = "E"
            Case "1111"
                Hex = "F"
        End Select
        
        ' ¨Ñ´àÃÕ§¡ÒÃáÊ´§¼Å áÅÐ Ê觤èҤ׹¡ÅÑºä» (Ẻ String)
        Binary2HexaDecimal = Hex & Binary2HexaDecimal
        
    Next
    
End Function
    

ÇÔ¸Õ¡ÒÃ Debug Program