Number Systems

Any To Any

    The previous code gives rise to a very simple Function.  This Function's purpose is to accept a number of any base and return its representation in any other base.
Public Function AnyToAny(ByVal Number As String, ByVal InputBase As_
 Short,ByVal OutputBase As Short) As String
Dim lDecimal As Long = AnyToDecimal(Number, InputBase)
Return DecimalToAny(lDecimal, OutputBase)
End Function

You might also like...

Comments

Contribute

Why not write for us? Or you could submit an event or a user group in your area. Alternatively just tell us what you think!

Our tools

We've got automatic conversion tools to convert C# to VB.NET, VB.NET to C#. Also you can compress javascript and compress css and generate sql connection strings.

“Programs must be written for people to read, and only incidentally for machines to execute.”