Skip to content

Instantly share code, notes, and snippets.

@stevehenderson

stevehenderson/countDecimals.vb

Last active August 29, 2015 14:14
Show Gist options
  • Save stevehenderson/76553c4b31b25cffda79 to your computer and use it in GitHub Desktop.
Save stevehenderson/76553c4b31b25cffda79 to your computer and use it in GitHub Desktop.
Download ZIP
A VBA function to count decimal points in text
Raw
countDecimals.vb
Function countDecimals(incomingStr) As Integer
Dim stringParts() As String
stringParts() = Split(incomingStr, ".")
Dim i As Integer
i = UBound(stringParts)
countDecimals = i
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment