How To Return A Dollar Value As A Text String

Hi, I received an interesting request, involving VBA and how to return a stock price dollar value in a text character string rather that actual numbers.

Like (I=1,M=2,E=0) instead of showing cost price is 12.00
it shows IM.EE.

Kind of like code returning a special code.

Well, here is my rendition of it. It may help a few of you all. Of
course there are different ways to do this depending on the person. So, ACTUAL IMPLEMENTATIONS PROBABLY WILL VARY!

Sub ret_val()

    Dim strRetVal As String
    'strTemp = me.txtStockPrice
    strRetVal = parse_value("12.00")

End Sub

Function parse_value(passed_val) As String

    Dim strTemp As String
    Dim strDigit As String
    Dim intLen As Integer
    Dim intCount As Integer
    Dim strResult As String
    Dim strResultA As String
    Dim strResultB As String

    strTemp = passed_val
    'examine each digit of the string
    'first get the length of the string
    intLen = Len(strTemp)
    For intCount = 1 To intLen
        strDigit = Mid(strTemp, intCount, 1)
        Select Case strDigit
            Case 0
               strResult = strResult & "E"
            Case 1
                strResult = strResult & "I"
            Case 2
                strResult = strResult & "M"
            Case 3
                strResult = strResult & "?"
        End Select
    'now format with the decimals
    strResult = Trim(strResult)
    intLen = Len(strResult)
    'get the letters before the decimal
    strResultA = Mid(strResult, 1, intLen - 2)
    'get the letters after the decimal
    strResultB = Right(strResult, 2)
    'combine the 2
    strResult = strResultA & "." & strResultB
    parse_value = strResult
End Function

Offsite Related Information:

“Go Fund Me” Page

($5 suggested amount)

(…10% of your gift amount will go to charity)

Free! Subscribe To Our YouTube Channel!

Free MS Access VBA Programming Course

Facebooktwitterredditpinterestlinkedinmailby feather