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