2816

Option Explicit

Public Function prevod(cislo As Long, soustava As Byte) As String
Dim pomocna As Byte, mezivysledek As Long, retezec As String
If cislo > 0 And cislo < 65535 Then
mezivysledek = cislo
If soustava = "2" Then
    While mezivysledek > 0
            pomocna = mezivysledek Mod 2
            mezivysledek = (mezivysledek \ 2)
            retezec = pomocna & retezec
    Wend

ElseIf soustava = "8" Then
    While mezivysledek > 0
            pomocna = mezivysledek Mod 8
            mezivysledek = (mezivysledek \ 8)
            retezec = pomocna & retezec
    Wend

ElseIf soustava = "16" Then
    While mezivysledek > 0
                pomocna = mezivysledek Mod 16
                mezivysledek = (mezivysledek \ 16)
                    If pomocna > 9 Then
                        If pomocna = 15 Then
                            retezec = "F" & retezec
                        ElseIf pomocna = 14 Then
                            retezec = "E" & retezec
                        ElseIf pomocna = 13 Then
                            retezec = "D" & retezec
                        ElseIf pomocna = 12 Then
                            retezec = "C" & retezec
                        ElseIf pomocna = 11 Then
                            retezec = "B" & retezec
                        ElseIf pomocna = 10 Then
                            retezec = "A" & retezec
                        ElseIf pomocna < 10 Then
                            retezec = pomocna & retezec
                        End If
                    End If
    Wend
End If

If (soustava > 2 And soustava < 8) Or (soustava > 8 And soustava < 16) Then
MsgBox "Taková soustava neexistuje"
Else
prevod = retezec
End If
Else
MsgBox "Číslo je mimo rozsah"
End If
End Function