Separator = " " Next Return RemoveSpaces(result)
Result = result & separator & HundredHindiDigitArray(digit) & " " & higherDigitHindiString I -= 1 ElseIf digit 0 Then ' Standard Number like 100, 1000, 1000000 and skip if digit is 0 Result = result & separator & HundredHindiDigitArray(wholeTenthPlaceDigit) & " " & _ Result = result & separator & HundredHindiDigitArray(digit)ĮlseIf codeIndex.Length = 2 And digit 0 Then ' Number in tenth place and skip if digit is 0 Dim suffixDigit As Integer = amountArray(j + 1)ĭim wholeTenthPlaceDigit As Integer = digit * 10 + suffixDigit HigherDigitHindiString = HigherDigitHindiNumberArray( CInt(codeIndex.Substring( 0, 1)) - 1) If Amount = 0 Then Return " शून्य" ' Unique and exceptional case If amountString.Length > 15 Then Return " That's too long." Dim amountArray() As Integer = NumberToArray(amountString)ĭim j As Integer = 0 Dim digit As Integer = 0 Dim result As String = " " Dim separator As String = " " Dim higherDigitHindiString As String = " " Dim codeIndex As String = " " For i As Integer = amountArray.Length To 1 Step -1
HINDI NUMBERS CODE
These numbers, we take advantage of both backward ( i variable) and forward ( j variable) indices.Ĭopy Code Private Function HindiStyle() As String Dim amountString As String = Amount.ToString
If it’s in unit place, tenth place and other place. Once we know the place of the digit we can trisect the case as The logic behind this array is very simple, explained later in theĪrticle. We first find out in which place the given digits falls in like, unit, tenth, hundredth, and so on by using SouthAsianCodeArray. Copy Code Private HundredHindiDigitArray() = _
0 kommentar(er)
