Luciano Evaristo Guerche

For hex conversions, you can use the int.ToString("x") method:

(16).ToString("x") returns "10"

For octal:
string oct = Convert.ToString(intValue, 8);

Oops, pardon me - I didn't notice this was VB6. Sorry about that. You can delete my comments if you'd like.

Jon,

Do not worry about and feel free to add more comments if you want. Thanks for letting me know vb .net has this options embedded. Another thing I have noted after I posted, is that vb6 Hex function works with negative numbers, mine Bin and Oct functions don't, but it was just for fun, so I won't brainstorm to have them working with negatives.

how about any bin/oct/hex convet to decimal... is it possible???
sorry dont know about vb.. just askin for help..

Edween,

Option Explicit

Public Function ToDecimal(strNumber As String, intBaseNumber As Integer) As Double
Dim intCurrentDigit As Integer
Dim strValidDigits As String
For intCurrentDigit = 0 To intBaseNumber - 1
If intCurrentDigit < 10 Then
strValidDigits = strValidDigits & intCurrentDigit
Else
strValidDigits = strValidDigits & Chr$((Asc("A") - 10) + intCurrentDigit) & Chr$((Asc("a") - 10) + intCurrentDigit)
End If
Next
strValidDigits = "[" & strValidDigits & "]"
For intCurrentDigit = Len(strNumber) To 1 Step -1
If Not Mid$(strNumber, intCurrentDigit, 1) Like strValidDigits Then
Err.Raise vbObjectError + 1, "ToDecimal", "Invalid number"
End If
Next
For intCurrentDigit = Len(strNumber) To 1 Step -1
If Mid$(strNumber, intCurrentDigit, 1) <> "0" Then
If Mid$(strNumber, intCurrentDigit, 1) Like "[A-Z]" Then
ToDecimal = ToDecimal + ((Asc(Mid$(strNumber, intCurrentDigit, 1)) - Asc("A") + 10) * intBaseNumber ^ (Len(strNumber) - intCurrentDigit))
ElseIf Mid$(strNumber, intCurrentDigit, 1) Like "[a-z]" Then
ToDecimal = ToDecimal + ((Asc(Mid$(strNumber, intCurrentDigit, 1)) - Asc("a") + 10) * intBaseNumber ^ (Len(strNumber) - intCurrentDigit))
Else
ToDecimal = ToDecimal + (Mid$(strNumber, intCurrentDigit, 1) * intBaseNumber ^ (Len(strNumber) - intCurrentDigit))
End If
End If
Next
End Function

Edween,

Hope this is the code you asked for:

<pre>
Option Explicit

Public Function ToDecimal(strNumber As String, intBaseNumber As Integer) As Double
Dim intCurrentDigit As Integer
Dim strValidDigits As String
For intCurrentDigit = 0 To intBaseNumber - 1
If intCurrentDigit < 10 Then
strValidDigits = strValidDigits & intCurrentDigit
Else
strValidDigits = strValidDigits & Chr$((Asc("A") - 10) + intCurrentDigit) & Chr$((Asc("a") - 10) + intCurrentDigit)
End If
Next
strValidDigits = "[" & strValidDigits & "]"
For intCurrentDigit = Len(strNumber) To 1 Step -1
If Not Mid$(strNumber, intCurrentDigit, 1) Like strValidDigits Then
Err.Raise vbObjectError + 1, "ToDecimal", "Invalid number"
End If
Next
For intCurrentDigit = Len(strNumber) To 1 Step -1
If Mid$(strNumber, intCurrentDigit, 1) <> "0" Then
If Mid$(strNumber, intCurrentDigit, 1) Like "[A-Z]" Then
ToDecimal = ToDecimal + ((Asc(Mid$(strNumber, intCurrentDigit, 1)) - Asc("A") + 10) * intBaseNumber ^ (Len(strNumber) - intCurrentDigit))
ElseIf Mid$(strNumber, intCurrentDigit, 1) Like "[a-z]" Then
ToDecimal = ToDecimal + ((Asc(Mid$(strNumber, intCurrentDigit, 1)) - Asc("a") + 10) * intBaseNumber ^ (Len(strNumber) - intCurrentDigit))
Else
ToDecimal = ToDecimal + (Mid$(strNumber, intCurrentDigit, 1) * intBaseNumber ^ (Len(strNumber) - intCurrentDigit))
End If
End If
Next
End Function
</pre>

Edween,

This is the way you might use it:

? ToDecimal("11111111", 2)
? ToDecimal("377", 8)
? ToDecimal("FF", 16)
? ToDecimal("GG", 16) 'will raise an error

Another way of converting Decimal to Bin, Oct and Hex?

There it is:

<pre>
Option Explicit

Public Function FromDecimal(ByVal lngNumber As Long, ByVal intBaseNumber As Integer) As String
Do While lngNumber > 0
If (lngNumber Mod intBaseNumber) < 10 Then
FromDecimal = (lngNumber Mod intBaseNumber) & FromDecimal
Else
FromDecimal = Chr$(Asc("A") + (lngNumber Mod intBaseNumber) - 10) & FromDecimal
End If
lngNumber = lngNumber \ intBaseNumber
Loop
End Function
</pre>

And this is how you might use it:

? FromDecimal(255, 2)
11111111
? FromDecimal(255, 8)
377
? FromDecimal(255, 16)
FF