Login | Register   
RSS Feed
Download our iPhone app
Browse DevX
Sign up for e-mail newsletters from DevX

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.

Tip of the Day
Language: Visual Basic
Expertise: Advanced
Oct 27, 2000



Application Security Testing: An Integral Part of DevOps

Change a Decimal based number to a Binary Number without using the Excel Object

Excel offers the functions, but who wants to add the Excel object model to their project? One simple way is to use the OCT command and a little conversion to change Decimal based code to Binary.
Public Function ToBinary(ByVal lngDecimalNumber As Long) As String
    Dim strDecimalNumber            As String
    Dim strReturnValue              As String
    Dim strBinValue                 As String
    Dim lngStringLength             As Long
    Dim lngIndex                    As Long
    strDecimalNumber = Oct(lngDecimalNumber)
    lngStringLength = Len(strDecimalNumber)
    For lngIndex = 1 To lngStringLength
        Select Case Mid$(strDecimalNumber, lngIndex, 1)
        Case 0
            strBinValue = 
Steve Turquette
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date