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
How To Escape Apostrophe In SQL Update Query
If you are looping a table with thousands of records, you’ll probably run into at least one that has an apostrophe in the field name. Like “Mike’s” or “M’cormick”, or something else. Anyway, here is one way to escape the string when you are doing your update query. Option Compare Database Sub YDriveLoop() ‘4/23/24 erik@loeblcomservices.com […]
How To Make An Access Form Time Picker
Here is a relatively easy way to select times for your time entry text boxes. It’s a reusable form that allows you to pick a time from an Access form. There are probably different ways to do this but here is the way I would do it. On the form that has the time fields, […]
How To Parse A Flat File In Excel VBA
In another post I demonstrated how to access a file on your computer using the MS Office Library. Here it is if you don’t know what I’m talking about. In this post, I am going to show you how to access the file and load it into your spreadsheet. I will do the same thing […]
How to pick a file to load In VBA
Picking a file to load in your Microsoft App is a very important skill to know. In this blog post you will see how to do it. First you need to set a reference to the MS office object library From VBE editor –> select Tools > MS office object library (click check mark) Sub […]