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----


Related Posts:

  • Ami Cheye Achhi By Rabindranath Thakur আমি চেয়ে আছি রবীন্দ্রনাথ ঠাকুর    আমি চেয়ে আছি তোমাদের সবা-পানে। স্থান দাও মোরে সকলের মাঝখানে। নীচে সব-নীচে এ ধূলির ধরণীতে … Read More
  • Hridoy Achhe Bhore By Rabindranath Thakur আছে আমার হৃদয় আছে ভরে রবীন্দ্রনাথ ঠাকুর আছে আমার হৃদয় আছে ভরে, এখন তুমি যা খুশি তাই করো। এমনি যদি বিরাজ' অন্তরে বাহির হতে সকলই মোর হ… Read More
  • Amar Milon Lagi Tumi By Rabindranath Thakur আমার মিলন লাগি তুমি রবীন্দ্রনাথ ঠাকুর আমার মিলন লাগি তুমি আসছ কবে থেকে। তোমার চন্দ্র সূর্য তোমায় রাখবে কোথায় ঢেকে। কত কালের সকাল-সাঁঝে… Read More
  • Akashtole Uthlo Fute By Rabindranath Thakur আকাশতলে উঠল ফুটে  রবীন্দ্রনাথ ঠাকুর     আকাশতলে উঠল ফুটে আলোর শতদল। পাপড়িগুলি থরে থরে ছড়ালো দিক্-দিগন্তরে, ঢেকে গেলো অন্ধকারের … Read More
  • Ontor Momo Bikoshito Koro By Rabindranath Thakur অন্তর মম বিকশিত করো রবীন্দ্রনাথ ঠাকুর     অন্তর মম বিকশিত করো অন্তরতর হে। নির্মল করো, উজ্জ্বল করো, সুন্দর কর হে।  জাগ্রত করো, উদ… Read More

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

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