বন্ধন

 ছোট গল্প 

আমাদের স্বরূপকাঠী

 

SpellNumber (In Word Bangladeshi Taka & Paisa)

    Public Function SpellNumber(ByVal MyNumber)
    Dim Piece, Temp
    Dim DecimalPLace, Count
    ReDim PLace(9) As String
    PLace(2) = " Thousand "
    PLace(3) = " Lac " '
    PLace(4) = " Crore "
    PLace(5) = " Trillion "
    MyNumber = Trim(Str(MyNumber)) ' Position of decimal pLace 0 if none
    ' Expand the logic to 999 crores from 9 Lacs
    If (MyNumber > 999999999.99) Then
    'If (MyNumber > 999999.99) Then
    SpellNumber = "Digit excced Maximum limit"
    Exit Function
    End If
    DecimalPLace = InStr(MyNumber, ".")
    'Convert Paisas and set MyNumber to Piece amount
    If DecimalPLace > 0 Then
    Paisas = GetTens(Left(Mid(MyNumber, DecimalPLace + 1) & "00", 2))
    MyNumber = Trim(Left(MyNumber, DecimalPLace - 1))
    End If
    Count = 1
    Dim iTemp As Integer
    Do While MyNumber <> ""
    If (Count >= 2) Then
    iTemp = Right(MyNumber, 2)
    Else
    If (Len(MyNumber) = 2) Then
    iTemp = Right(MyNumber, 2)
    ElseIf (Len(MyNumber) = 1) Then
    iTemp = Right(MyNumber, 1)
    Else
    iTemp = Right(MyNumber, 3)
    End If
    End If
    If iTemp > 99 Then
    iTemp = Right(MyNumber, 3)
    Temp = GetHundreds(iTemp)
    ElseIf iTemp < 99 And iTemp > 9 Then
    iTemp = Right(MyNumber, 2)
    Temp = GetTens(iTemp)
    ElseIf iTemp < 10 Then
    iTemp = Right(MyNumber, 2)
    Temp = GetDigit(iTemp)
    End If
    'end if
    If Temp <> "" Then
    Piece = Temp & PLace(Count) & Piece
    End If
    'If Len(MyNumber) > 3 Then
    If Count = 2 Then
    If Len(MyNumber) = 1 Then
    MyNumber = ""
    Else
    MyNumber = Left(MyNumber, Len(MyNumber) - 2)
    End If
    ElseIf Count = 3 Then
    If Len(MyNumber) >= 3 Then
    MyNumber = Left(MyNumber, Len(MyNumber) - 2)
    Else
    MyNumber = ""
    End If
    ElseIf Count = 4 Then
    MyNumber = ""
    Else
    If Len(MyNumber) <= 2 Then
    MyNumber = ""
    Else
    MyNumber = Left(MyNumber, Len(MyNumber) - 3)
    End If
    End If
    Count = Count + 1
    Loop
    Select Case Piece
    Case ""
    Temp = "No Temp"
    Case "One"
    Temp = "One Temp"
    Case Else
    Temp = " Temp " & Piece
    End Select
    Select Case Paisas
    Case ""
    Paisas = ""
    Case "One"
    Paisas = " & One Paisa"
    Case Else
    Paisas = " & " & Paisas & " Paisas"
    End Select
    SpellNumber = Piece & Paisas & " Only"
    iLoop = 0
    End Function
    '*******************************************
    ' Converts a number from 100-999 into text *
    '*******************************************
    Function GetHundreds(ByVal MyNumber)
    Dim Result As String
    If Val(MyNumber) = 0 Then Exit Function
    MyNumber = Right("000" & MyNumber, 3) 'Convert the hundreds pLace
    If Mid(MyNumber, 1, 1) <> "0" Then
    If (iLoop > 0) Then
    Result = GetDigit(Mid(MyNumber, 1, 1)) & " Lac "
    iLoop = 0
    Else
    Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
    iLoop = iLoop + 1
    End If
    End If
    'Convert the tens and ones pLace
    If Mid(MyNumber, 2, 1) <> "0" Then
    Result = Result & GetTens(Mid(MyNumber, 2))
    Else
    Result = Result & GetDigit(Mid(MyNumber, 3))
    End If
    GetHundreds = Result
    End Function
    '*********************************************
    ' Converts a number from 10 to 99 into text. *
    '*********************************************
    Function GetTens(TensText)
    Dim Result As String
    Result = "" 'null out the temporary function value
    If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19
    Select Case Val(TensText)
    Case 10: Result = "Ten"
    Case 11: Result = "Eleven"
    Case 12: Result = "Twelve"
    Case 13: Result = "Thirteen"
    Case 14: Result = "Fourteen"
    Case 15: Result = "Fifteen"
    Case 16: Result = "Sixteen"
    Case 17: Result = "Seventeen"
    Case 18: Result = "Eighteen"
    Case 19: Result = "Nineteen"
    Case Else
    End Select
    Else ' If value between 20-99
    Select Case Val(Left(TensText, 1))
    Case 2: Result = "Twenty "
    Case 3: Result = "Thirty "
    Case 4: Result = "Forty "
    Case 5: Result = "Fifty "
    Case 6: Result = "Sixty "
    Case 7: Result = "Seventy "
    Case 8: Result = "Eighty "
    Case 9: Result = "Ninety "
    Case Else
    End Select
    Result = Result & GetDigit _
    (Right(TensText, 1)) 'Retrieve ones pLace
    End If
    GetTens = Result
    End Function
    '*******************************************
    ' Converts a number from 1 to 9 into text. *
    '*******************************************
    Function GetDigit(Digit)
    Select Case Val(Digit)
    Case 1: GetDigit = "One"
    Case 2: GetDigit = "Two"
    Case 3: GetDigit = "Three"
    Case 4: GetDigit = "Four"
    Case 5: GetDigit = "Five"
    Case 6: GetDigit = "Six"
    Case 7: GetDigit = "Seven"
    Case 8: GetDigit = "Eight"
    Case 9: GetDigit = "Nine"
    Case Else: GetDigit = ""
    End Select
    End Function

Shikker Farioala

‡QvU Mí

wkÿvi †dixIqvj

wkÿvB RvwZi †giæ`Û bv wK my-wkÿvB RvwZi †giæ`Û| Zv wb‡q

K_v bvB ev  ejøvg wKš‘ g‡bi g‡a¨ GKUv cÖkœ ‡Zv †_‡KB hvq| Avm‡j wkÿv wK? Kv‡K wkÿv ej‡ev|

                              (Amgvß)