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
            'I=1,M=2,E=0
            Case 0
               strResult = strResult & "E"
            Case 1
                strResult = strResult & "I"
            Case 2
                strResult = strResult & "M"
            Case 3
                strResult = strResult & "?"
        End Select
        
        
    Next
    
    '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
Tags: