Ami Sadhinota By Sahanaz Akter Ratna





Avwg ¯^vaxbZv

iZœv


Avwg ¯^vaxbZv
Avwg wK‡kvi g‡bi cošÍ we‡Kj †ejv,
Avwg mKvj muv‡S gy³ AvKv‡k wen½ RywUi †gjv;
Avwg iy‡×i Db¥y³Zv-
Avwg ¯^vaxbZv|


Avwg KwP gy‡Li wgwó nvwm, wgwó bxieZv,
Avwg mKj Kv‡RB mKj g‡bi cvIqvi e¨vKzjZv;
Avwg euvPvi AvKzjZv-
Avwg ¯^vaxbZv|


Avwg ewÂZ‡`i kZ Kvw•LZ Avkvi ¯^cœ †fjv,
Avwg we‡k¦i ey‡K D”P wk‡i `uvovevi wgjb †gjv;
Avwg Aw¯Í‡Z¡i wbðqZv-
Avwg ¯^vaxbZv|


Avwg wbcxwoZ-‡kvwlZ‡`i gy‡Li eywj,
Avwg †cuŠ‡Q †`B mK‡ji Z‡i kvwšÍi c`aywj;
Avwg ¯^w¯Íi Avek¨KZv-
Avwg ¯^vaxbZv|


Avwg `~i K‡i †`B mKj †f`-mKj eÂbv,
Avwg gy‡Q †`B me AZxZ ¯§„wZi mKj jvÃbv;
Avwg †gvPb Kwi Aax‡bi welbœZv-
Avwg ¯^vaxbZv|


Avwg be-RvMi‡Yi †mvbvjx cÖØxc-
Avwg kvwšÍi `~Z-kvwšÍi cÖZxK|
----0----


1 comments:

  1. Function Ntow(amt As Variant) As Variant
    Dim FIGURE As Variant
    Dim LENFIG As Integer
    Dim i As Integer
    Dim WORDs(19) As String
    Dim tens(9) As String
    WORDs(1) = "One"
    WORDs(2) = "Two"
    WORDs(3) = "Three"
    WORDs(4) = "Four"
    WORDs(5) = "Five"
    WORDs(6) = "Six"
    WORDs(7) = "Seven"
    WORDs(8) = "Eight"
    WORDs(9) = "Nine"
    WORDs(10) = "Ten"
    WORDs(11) = "Eleven"
    WORDs(12) = "Twelve"
    WORDs(13) = "Thirteen"
    WORDs(14) = "Fourteen"
    WORDs(15) = "Fifteen"
    WORDs(16) = "Sixteen"
    WORDs(17) = "Seventeen"
    WORDs(18) = "Eighteen"
    WORDs(19) = "Nineteen"

    tens(2) = "Twenty"
    tens(3) = "Thirty"
    tens(4) = "Fourty"
    tens(5) = "Fifty"
    tens(6) = "Sixty"
    tens(7) = "Seventy"
    tens(8) = "Eighty"
    tens(9) = "Ninety"

    FIGURE = amt
    FIGURE = Format(FIGURE, "FIXED")
    FIGLEN = Len(FIGURE)

    If FIGLEN < 12 Then
    FIGURE = Space(12 - FIGLEN) & FIGURE
    End If

    If Val(Left(FIGURE, 9)) > 1 Then
    Ntow = "Rupees "
    ElseIf Val(Left(FIGURE, 9)) = 1 Then
    Ntow = "Rupee "
    End If

    For i = 1 To 3
    If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then
    Ntow = Ntow & WORDs(Val(Left(FIGURE, 2)))
    ElseIf Val(Left(FIGURE, 2)) > 19 Then
    Ntow = Ntow & tens(Val(Left(FIGURE, 1)))
    Ntow = Ntow & WORDs(Val(Right(Left(FIGURE, 2), 1)))
    End If

    If i = 1 And Val(Left(FIGURE, 2)) > 0 Then
    Ntow = Ntow & " Crore "
    ElseIf i = 2 And Val(Left(FIGURE, 2)) > 0 Then
    Ntow = Ntow & " Lakh "
    ElseIf i = 3 And Val(Left(FIGURE, 2)) > 0 Then
    Ntow = Ntow & " Thousand "
    End If
    FIGURE = Mid(FIGURE, 3)
    Next i

    If Val(Left(FIGURE, 1)) > 0 Then
    Ntow = Ntow & WORDs(Val(Left(FIGURE, 1))) + " Hundred "
    End If

    FIGURE = Mid(FIGURE, 2)

    If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then
    Ntow = Ntow & WORDs(Val(Left(FIGURE, 2)))
    ElseIf Val(Left(FIGURE, 2)) > 19 Then
    Ntow = Ntow & tens(Val(Left(FIGURE, 1)))
    Ntow = Ntow & WORDs(Val(Right(Left(FIGURE, 2), 1)))
    End If
    FIGURE = Mid(FIGURE, 4)

    If Val(FIGURE) > 0 Then
    Ntow = Ntow & " Paise "
    If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then
    Ntow = Ntow & WORDs(Val(Left(FIGURE, 2)))
    ElseIf Val(Left(FIGURE, 2)) > 19 Then
    Ntow = Ntow & tens(Val(Left(FIGURE, 1)))
    Ntow = Ntow & WORDs(Val(Right(Left(FIGURE, 2), 1)))
    End If
    End If
    FIGURE = amt
    FIGURE = Format(FIGURE, "FIXED")
    If Val(FIGURE) > 0 Then
    Ntow = Ntow & " Only "
    End If
    End Function

    ReplyDelete

" কিছু স্বপ্ন আকাশের দূর নীলিমাক ছুয়ে যায়, কিছু স্বপ্ন অজানা দূরদিগন্তে হারায়, কিছু স্বপ্ন সাগরের উত্তাল ঢেউ-এ ভেসে যায়, আর কিছু স্বপ্ন বুকের ঘহিনে কেদে বেড়ায়, তবুও কি স্বপ্ন দেখা থেমে যায় ? " সবার স্বপ্নগুলো সত্যি হোক এই শুভো প্রার্থনা!