วีดีโอ

سلام خوب هستی ده واتساپ پیام کو 0779090425

خواهش زنده باشی

سلام درست است ممنون

Function SpellNumber(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 SpellNumber = " " ElseIf Val(Left(FIGURE, 9)) = 1 Then SpellNumber = " " End If For i = 1 To 3 If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2))) ElseIf Val(Left(FIGURE, 2)) > 19 Then SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1))) SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1))) End If If i = 1 And Val(Left(FIGURE, 2)) > 0 Then SpellNumber = SpellNumber & " Crore " ElseIf i = 2 And Val(Left(FIGURE, 2)) > 0 Then SpellNumber = SpellNumber & " Lakh " ElseIf i = 3 And Val(Left(FIGURE, 2)) > 0 Then SpellNumber = SpellNumber & " Thousand " End If FIGURE = Mid(FIGURE, 3) Next i If Val(Left(FIGURE, 1)) > 0 Then SpellNumber = SpellNumber & 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 SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2))) ElseIf Val(Left(FIGURE, 2)) > 19 Then SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1))) SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1))) End If FIGURE = Mid(FIGURE, 4) If Val(FIGURE) > 0 Then SpellNumber = SpellNumber & " Paise " If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2))) ElseIf Val(Left(FIGURE, 2)) > 19 Then SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1))) SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1))) End If End If FIGURE = amt FIGURE = Format(FIGURE, "FIXED") If Val(FIGURE) > 0 Then SpellNumber = SpellNumber & " AFN " End If End Function

ممنون زنده باشی

سلام درست کدام بخش باشد روان کو

خواهش زنده باشی

سلام خوب هستی درست است ده واتساپ پیام کو

سلام ممنون زنده باشی مه ده خدمت انشاالله

سلام خوب هستی درست است ده واتساپ پیام کو

Thanks

سلام درست است ممنون زنده باشی

زنده باشی تشکر

ماشاالله موفق باشی مه ده خدمت

ممنون زنده باشی همچنان مه ده خدمت

ممنون برادر عزیز مه ده خدمت زنده باشی

سلام ممنون زنده باشی اگر شما ضرورت دارید فارمت فایل را روان میکنم مه ده خدمت

@@maherlearn درستداست تشکر فارمت که حاوی فنکشن و همین تمپلیت باشد بفرستید. تا من بتوانم یک مپ تایتل برای فروشگاه دیتابس فروشگاه برای تان ارسال کنم تا در برنامه های تان ما و ببینده های تان را مستفید. بسازید 🫶

سلام ممنون زنده باشی تمام درس ها ده چینل است استفاده کنید مه ده خدمت

ممنون زنده باشی فارسی هم ثبت می کنم

سلام تشکر خوب هستی از Google

نوشته کو Income loss icon

@@maherlearn درسته تشکر ؛ شد

سلام تشکر خوب هستی برای فعلا از برنامه ورد و اکسل می باشد

@@maherlearn سلام دوباره استاد جان، منظورم این بود چطور اسکیرین ریکارد میکنید همیره اگر میتانین یک ویدیویی اموزشییش را بگذارید تشکر

سلام ممنون درست است

ممنون زنده باشی

تشکر زنده باشی مه ده خدمت

خواهش زنده باشی

خواهش زنده باشی ممنون

سلام ممنون بلی درست است چون مه زیاد معلومات ده سیستم دوگان ندارم میشه یک نمونه است

@@maherlearn بسیار خوب .اگرمیشه لطف کنیدیک ویدئو آموزشی دیگری هم تهیه کنید تاریخ روزمره وتعداد را ذکر کنید

ممنون

ممنون زنده باشی

سلام درس های فوتوشاپ شروع میشه فعلا نخیر

ممنون مه ده خدمت

سلام تاهنوز آماده نشده است تنها فارسی می باشد

سلام وقت کار دارد درست است

ممنون زنده باشی