Returns the indexes (start and end) of the group of numbers at the left side of the decimal point
'Declaration
Protected Overridable Function GetLeftDigitGroup( _
ByVal As String, _
ByVal As Integer, _
ByVal As Integer, _
ByVal As Integer, _
ByVal cThousandChar As Char, _
ByVal As Integer, _
ByRef As Integer _
) As Boolean
'Usage
Dim instance As GeneralFormatter
Dim szText As String
Dim iTextLen As Integer
Dim iDecimalPlace As Integer
Dim iScientificNotation As Integer
Dim cThousandChar As Char
Dim iNumOfDigitsBetweenSeperators As Integer
Dim iRetFirstDigit As Integer
Dim value As Boolean
value = instance.GetLeftDigitGroup(szText, iTextLen, iDecimalPlace, iScientificNotation, cThousandChar, iNumOfDigitsBetweenSeperators, iRetFirstDigit)
Parameters
- szText
- iTextLen
- iDecimalPlace
- iScientificNotation
- cThousandChar
- iNumOfDigitsBetweenSeperators
- iRetFirstDigit
Return Value
true if placement is OK (or no thousand seperators found); false otherwise