مرجع حل مشکلات زبان فارسی و سورسهای مربوطه

**ghaum** · دوشنبه 24 اسفند 1383, 10:42 صبح

مشکل من حل شد
باید تنظیمات ویندوز مربوط به فارسی را در دستگاهها دیگر درست می کردم

**M-Gheibi** · دوشنبه 24 اسفند 1383, 16:25 عصر

باید تنظیمات ویندوز مربوط به فارسی را در دستگاهها دیگر درست می کردم

گفته بودم که :

باید سیستمتون امکانات فارسی را ساپورت کنه.

**hex161** · سه شنبه 25 اسفند 1383, 02:42 صبح

ویندوز من اکس پی سرویس پک دو هست.
فارسی ساز سینا پک رو هم توش نصب کردم باز هم جواب نمیده
بنظر شما باید کجا رو انگولک کنم؟

**M-Gheibi** · سه شنبه 25 اسفند 1383, 09:02 صبح

ویندوز من اکس پی سرویس پک دو هست.
فارسی ساز سینا پک رو هم توش نصب کردم باز هم جواب نمیده
بنظر شما باید کجا رو انگولک کنم؟

1. خوب اأان مشکلتون چیه؟
2. اگه علامت سوال هست باید طبق توضیحات اول این تاپیک عمل کنید.

**ghaum** · سه شنبه 25 اسفند 1383, 09:13 صبح

سلام
من اطلاعاتم را از بانک داخل richedittextbox k نمایش می دهم
ولی نقطه آخر خط را اول می آورد
در صورتی که در داخل بانک درست وارد می شود
و rightoleft متنها صحیح می باشد
برای حل این مشکل چه باید بکنم؟

خیلی متشکرم

**hex161** · پنج شنبه 27 اسفند 1383, 01:18 صبح

اگه علامت سوال هست باید طبق توضیحات اول این تاپیک عمل کنید.

نه علامت سوال نیست.
مشکل من اینه که مشخصه Right To Left در فورم همیشه روگزینه false گیر کرده
و امکان تغییر توش نیست.

**M-Gheibi** · پنج شنبه 27 اسفند 1383, 09:21 صبح

دوست عزیز باز هم که زحمت خوندن پست های قبلی رو نکشیدید!

برای استفاده از امکان Right to Left در برنامه ها فایل VBAME.DLL موجود در پوشه سیستم را به همراه برنامه خود قرار دهید.

احتمالا این فایل رو ندارید. برنامه رو مجددا نصب کنید اگه درست نشد در وب پیدا میشه.

**ghaum** · شنبه 06 فروردین 1384, 09:55 صبح

سلام
این متن را نگاه کنید اینجا هیچ مشکلی ندارد ولی در RICHEDITBOX نقطه ها به اول خط می آیند
آیا راه حلی برای این مشکل وجود دارد؟
متشکرم
محسن در یکی از روزهای زیبای سال 1338 در جمع گرم و صمیمی خانواده دین‌شعاری به دنیا آمد، روزهای پرنشاط کودکی را زیر سایه تعالیم پدر و مادر گرامی و در پناه تعالیم دین اسلام گذراند.او از همان اوایل نوجوانی علاقه عجیبی به اهل‌بیت (ع) داشت و در 13 یا 14 سالگی بود که هیئتی به نام شهدای کربلا تأسیس نمود و خود به تنهایی مسئولیت آن را بر عهده گرفت.با شروع امواج خروشان انقلاب به صف مجاهدین راه حق پیوست و همواره در تظاهرات‌های سال 1357 حضوری فعال داشت در همان ایام به همراه برادرش به خدمت در پزشکی قانونی پرداخت و مدت 6 ماه به صورت شبانه‌روزی در کار جابجایی و تحویل اجساد مطهر شهدا شرکت داشت محسن جزء اولین سربازانی بود که به فرمان امام خمینی (ره) به پادگانها برگشتند و خودشان را معرفی کردند او همواره فریضه مقدس امر به معروف و نهی از منکر را انجام می‌داد و برای سربازان پادگان به خصوص آنهایی که در انجام فرائض تعلل می‌کردند برنامه شناخت ایدئولوژی گذاشته بود.او حدود 5/1 سال در سالهای 57 و 1358 خدمت مقدس سربازی را انجام داد و پس از آن در سال 1360 به خیل سبزپوشان سپاهی پیوست. با شروع جنگ تحمیلی عاشقانه به جبهه‌های نبرد شتافت و به عنوان مسئول گردان تخریب لشگر27 محمدرسول‌الله (ص) مشغول به خدمت شد و در سال 1363 به سفر حج رفت.در عملیات‌های طریق‌القدس و کربلای1 یادآور دلاوریها و رشادت‌های خالصانه او در راه دفاع از میهن است زمانیکه قرار بود برای بار دوم به سفر حج مشرف شود و به خاطر مسئولیت‌هایی که در جبهه داشت از تشرف به حج منصرف شد اما در همان سال در روز پانزدهم مردادماه سال 1366 درست مصادف با روز عید قربان به مسلخ عشق رفت و اسماعیل‌وار جان خویش را در حین خنثی‌سازی مین ضد تانک در قربانگاه سردشت فدای معبود ساخت و نام خویش را برای همیشه در قلب تاریخ زنده نگه داشت مزار مطهر او در قطعه 29 بهشت‌زهرای تهران قرار دارد.

**hadi2345** · دوشنبه 08 فروردین 1384, 20:03 عصر

با تشکر از همه بچه ها . خیلی عالی بود :flower:

**ghaum** · چهارشنبه 10 فروردین 1384, 17:56 عصر

سلام
کسی نیست مشکل من را حل کند
این متنی که برایتان فرستادم در برنامه ام طوری نمایش داده می شود که نقطه ها در اول سطر قرار دارند در microsoft Word هیچ مشکلی ندارد
دیگر نمی دانم چه کار کنم
اگر می شود یک راهنمایی کنید

متشکرم

**Nova** · پنج شنبه 18 فروردین 1384, 01:17 صبح

ممنون آقای غیبی، کد خیلی خوبی فرستادین

**بابک زواری** · شنبه 27 فروردین 1384, 08:44 صبح

راست به چپ کردن Treeview



Option Explicit 

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" &#40;ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long&#41; As Long 

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" &#40;ByVal hwnd As Long, ByVal nIndex As Long&#41; As Long 

Private Const WS_EX_LAYOUTRTL = &amp;H400000 

Private Const GWL_EXSTYLE = -20 

' 





Private Sub Form_Load&#40;&#41; 

SetWindowLong TreeView.hwnd, GWL_EXSTYLE, GetWindowLong&#40;TreeView.hwnd, GWL_EXSTYLE&#41; Or WS_EX_LAYOUTRTL 





  Dim nodX As Node 

   Set nodX = TreeView.Nodes.Add&#40;, , "R", "Root"&#41; 

   nodX.Expanded = True 

   Set nodX = TreeView.Nodes.Add&#40;, , "P", "Parent"&#41; 

   nodX.Expanded = True 

   Set nodX = TreeView.Nodes.Add&#40;"R", tvwChild, , "Child 1"&#41; 

   Set nodX = TreeView.Nodes.Add&#40;"R", tvwChild, , "Child 2"&#41; 

   Set nodX = TreeView.Nodes.Add&#40;"R", tvwChild, , "Child 3"&#41; 

   Set nodX = TreeView.Nodes.Add&#40;"P", tvwChild, , "Child 4"&#41; 

   Set nodX = TreeView.Nodes.Add&#40;"P", tvwChild, , "Child 5"&#41; 

   Set nodX = TreeView.Nodes.Add&#40;"P", tvwChild, , "Child 6"&#41; 



End Sub

**بابک زواری** · شنبه 27 فروردین 1384, 08:53 صبح

در ضمن دوستان با تستی که انجام دادن مثل اینکه کد فوق برای ListView هم جواب میده

**najafi_1** · شنبه 27 فروردین 1384, 08:55 صبح

با سلام
با اینکه من vb کار نمیکنم ولی از روش شما در همکاری لذت بردم. موفق باشید.

**mahdi_sh** · یک شنبه 28 فروردین 1384, 09:22 صبح

نوشته شده توسط setarehman

تاریخ شمسی در xp رو توضیح ندادید.

اگه منظورتون اینه که توی برنامه vb چه جوری تاریخ ها رو شمسی کنیم که باید از یه تابع تبدیل تاریخ تو برنامه استفاده کنید

با سلام

اون تابع چیه ؟

ممنون

مهدی شهابی پور

**نعیم رضاییان** · یک شنبه 28 فروردین 1384, 09:53 صبح

این کد بالا نمی دونم چرا ولی برای list view تمام حروف رو هم برعکس می کنه یعنی از آخر به اول مینویسه

**M-Gheibi** · یک شنبه 28 فروردین 1384, 11:21 صبح

اون تابع چیه ؟

سلام
دوست عزیز فکر کنم این سومین باریه که شما این سوال رو پرسیدید.
صفحات قبل همین تاپیک رو مورد مطالعه قرار دهید.

موفق باشید
روز خوش

**نعیم رضاییان** · یک شنبه 28 فروردین 1384, 12:32 عصر

سلام
اقا میشه بگی اون فایل dll کع برای راست به چپ کردن بکار میره رو به چه شکل باید ازش استفاده کنیم اون فایل در شاخه system32 هست ولی نمی دونم چه حوری باید ازش استفاده کنم
مرسی

**M-Gheibi** · یک شنبه 28 فروردین 1384, 15:25 عصر

اقا میشه بگی اون فایل dll کع برای راست به چپ کردن بکار میره رو به چه شکل باید ازش استفاده کنیم اون فایل در شاخه system32 هست ولی نمی دونم چه حوری باید ازش استفاده کنم

یعنی نمیدونید چطور میشه Right to left رو استفاده کرد؟
برای اینکار در کنترل مورد نظر خاصیت Righttoleft رو True کنید.
توجه کنید که به هنگام ستاپ کردم برنامه باید این فایل رو درون ستاپ قرار دهید تا در پوشه System32 کامپیوتر کاربر کپی بشه.

موفق باشید
روز خوش

**نعیم رضاییان** · یک شنبه 28 فروردین 1384, 17:00 عصر

سلام
اقا اینو می دونم خوب از این حالت که نمیشه برای list view استفاده کرد

**niloufar** · دوشنبه 29 فروردین 1384, 09:27 صبح

سلام
این آقای naeimflashphp همانطور که از عکسی که در مشخصات خود ثبت کرده اند برمی آمد، در لحن صحبتهایشان (مثل استاد... و پاسخ دادن که سخت نیست و ...) هم مانند عکس دست به کمر و یه پا در جلو و چپ چپ نگاه کن هستند.

بی خیال شوخی کردم. همان آقایی که شما استاد صدایش می زنید و ما او را آقا بابک، قبلا در یه تاپیک (ظاهرا تا جایی که یادمه به نام TreeView فارسی بود) پاسخ شما را داده اند. اگر حال دارید بروید و نگاه کنید و اگر نه بگویید تا در همین جا آن را ذکر کنم.

این گل هم برای اینکه ناراحت نشوید: :flower:

**M-Gheibi** · دوشنبه 29 فروردین 1384, 10:44 صبح

اقا اینو می دونم خوب از این حالت که نمیشه برای list view استفاده کرد

شما برای اینکار از کد آقای زواری استفاده کنید. همونطور که نیلوفر خانم عرض کردند هم در این تاپیک (صفحه قبل) و هم در یک تاپیک دیگر این کد وجود دارد (البته برای Treeview). کد مربوطه برای ListView هم کاربرد دارد.
برای مثال :

Option Explicit

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" &#40;ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long&#41; As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" &#40;ByVal hwnd As Long, ByVal nIndex As Long&#41; As Long

Private Const WS_EX_LAYOUTRTL = &amp;H400000

Private Const GWL_EXSTYLE = -20



Private Sub Form_Load&#40;&#41;

SetWindowLong ListView.hwnd, GWL_EXSTYLE, GetWindowLong&#40;ListView.hwnd, GWL_EXSTYLE&#41; Or WS_EX_LAYOUTRTL



ListView.ListItems.Add.Text = "عبارت فارسی اول"

ListView.ListItems.Add.Text = "عبارت فارسی دوم"

End Sub

**نعیم رضاییان** · چهارشنبه 31 فروردین 1384, 15:34 عصر

سلام
ببین وقتی از این کد برای list view استفاده میشه نوشته های فارسی رو که داخل جدول قرارا میگیره از آخر به اول نشون میده

اگه میشه یک مثال بزاربد
مرسی :flower:

**M-Gheibi** · چهارشنبه 31 فروردین 1384, 19:41 عصر

ببین وقتی از این کد برای list view استفاده میشه نوشته های فارسی رو که داخل جدول قرارا میگیره از آخر به اول نشون میده

من چنین مشکلی ندارم.

اگه میشه یک مثال بزاربد

در پست قبلیم در همین تاپیک گذاشتم دیگه

موفق باشید

**niloufar** · پنج شنبه 01 اردیبهشت 1384, 12:10 عصر

ببین وقتی از این کد برای list view استفاده میشه نوشته های فارسی رو که داخل جدول قرارا میگیره از آخر به اول نشون میده

سلام
من هم این مشکل را ندارم

**نعیم رضاییان** · جمعه 02 اردیبهشت 1384, 14:14 عصر

اقا اون کد کل حروف رو بر عکس میکنه این مثال رو ببین

**M-Gheibi** · جمعه 02 اردیبهشت 1384, 20:07 عصر

شما از کدپیچ ایران سیستم استفاده کرده اید. من هم با این کدپیج همین مشکل رو در راست به چپ کردن لیست دارم. جناب زواری اگه راه حلی به نظرتون میاد ممنون میشیم بیان کنید. :)

**بابک زواری** · شنبه 03 اردیبهشت 1384, 00:09 صبح

اینم اجرا در ویندوز من

**بابک زواری** · شنبه 03 اردیبهشت 1384, 00:16 صبح

منم مشکلی ندارم شاید تنظیمات ویندوز شما مشکل داره

**نعیم رضاییان** · یک شنبه 04 اردیبهشت 1384, 11:49 صبح

شاید مشگل از ویندوز باشه من از ویندوز advance server 2000 استفاده می کنم من ویندوز رو دوباره نصب می کنم ببینم مشگل حل میشه
مرسی

**ASPDeveloper** · چهارشنبه 14 اردیبهشت 1384, 19:05 عصر

دوست عزیز از کد تبدیل به حروف ممنون اما برای اعداد مثل 10000000001 کار نمیکند

**بابک زواری** · چهارشنبه 14 اردیبهشت 1384, 21:51 عصر

دوست عزیز از کد تبدیل به حروف ممنون اما برای اعداد مثل 10000000001 کار نمیکند

بله برای اعدادی مثل 30948203948203948203948023984023894023984578 هم کار نمیکنه
اولا این گونه اعداد کم استفاده میشن پس نیازی به هندل کردن اونا ندارید دوما سورس در دسترس
هستید میتونید طوری گسترش بدید که عددی رو هم که من نوشتم هجی کنه

**jack** · جمعه 16 اردیبهشت 1384, 16:03 عصر

با سلام خدمت جناب کد نویس .
متاسفانه من نتونستم از برنامه PFA استفاده کنم . چون موقع قرار دادن کنترل روی صفحه یک ایراد lisence not found می گیرد .

**حامد مصافی** · دوشنبه 19 اردیبهشت 1384, 17:42 عصر

شما از کدپیچ ایران سیستم استفاده کرده اید. من هم با این کدپیج همین مشکل رو در راست به چپ کردن لیست دارم. جناب زواری اگه راه حلی به نظرتون میاد ممنون میشیم بیان کنید.

این فونت ها در ظاهر فارسی هستند ولی باطناً چپ به راست هستند. اینگونه فونت ها رو نباید راست به چپ کنید. بهتره از ونت های عمومی مثا Tahoma استفاده کنید

ضمناً کسانی که در راست به چپ کردن نوشته های (header) مشکل دارند (این مشکل در اکس پی بیشتر دیده میشه) می تونن از کدی که در بخش "treeView فارسی" گذاشتم استفاده کنن

**حدیثه** · چهارشنبه 21 اردیبهشت 1384, 13:19 عصر

واقعا دست همتون درد نکنه.شما یکی لز بزرگترین معضلات بشریت رو حل کردید. :kaf:

**مهدی ذوقی** · جمعه 06 خرداد 1384, 10:40 صبح

با سلام
همانطور که می دونید کنترل date time picker سالهای شمسی را پشتیبانی نمی کنه می خواستم ببینم
آیا کسی یک کنترل داره که مثل date time picker عمل کنه و سالهای شمسی را هم پشتیبانی کنه
البته تقویمش برام مهم نیست بلکه مهم نشان دادن فرمت تاریخ به صورتی که کاربر بتونه روز و ماه و سال را
به راحتی توی اون با دکمه updown تغییر بده مثل حالتی از date time picker که خصوصیت updown آن true
است
با تشکر

**بابک زواری** · سه شنبه 10 خرداد 1384, 16:19 عصر

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

تبدیل تاریخ میلادی با فرمت mm/dd/yyyy به شمسی



Public Function Fa_Date&#40;En_Date As String&#41; As String

Dim The_Select As Integer

Dim The_Year As Integer

Dim The_Month As Integer

Dim The_Day As Integer

The_Year = CInt&#40;Mid&#40;En_Date, 7, 4&#41;&#41;

The_Month = CInt&#40;Mid&#40;En_Date, 1, 2&#41;&#41;

The_Day = CInt&#40;Mid&#40;En_Date, 4, 2&#41;&#41;



If &#40;The_Year Mod 4 = 0&#41; Then

    The_Select = 1

Else

    The_Select = 2

End If



If &#40;&#40;The_Year - 1&#41; Mod 4 = 0&#41; Then

    The_Select = 3

End If



If The_Select = 1 Then

'------------------------------------------------------

Select Case The_Month

Case 1&#58; Select Case The_Day

    Case 1 To 20&#58; The_Day = The_Day + 10

    The_Month = 10

    The_Year = The_Year - 622

    Case 21 To 31&#58; The_Day = The_Day - 20

    The_Month = 11

    The_Year = The_Year - 622

    End Select

Case 2&#58; Select Case The_Day

    Case 1 To 19&#58; The_Day = The_Day + 11

    The_Month = 11

    The_Year = The_Year - 622

    Case 20 To 29&#58; The_Day = The_Day - 19

    The_Month = 12

    The_Year = The_Year - 622

    End Select

Case 3&#58; Select Case The_Day

    Case 1 To 19&#58; The_Day = The_Day + 10

    The_Month = 12

    The_Year = The_Year - 622

    Case 20 To 31&#58; The_Day = The_Day - 19

    The_Month = 1

    The_Year = The_Year - 621

    End Select

Case 4&#58; Select Case The_Day

    Case 1 To 19&#58; The_Day = The_Day + 12

    The_Month = 1

    The_Year = The_Year - 621

    Case 20 To 30&#58; The_Day = The_Day - 19

    The_Month = 2

    The_Year = The_Year - 621

    End Select

Case 5&#58; Select Case The_Day

    Case 1 To 20&#58; The_Day = The_Day + 11

    The_Month = 2

    The_Year = The_Year - 621

    Case 21 To 31&#58; The_Day = The_Day - 20

    The_Month = 3

    The_Year = The_Year - 621

    End Select

Case 6&#58; Select Case The_Day

    Case 1 To 20&#58; The_Day = The_Day + 11

    The_Month = 3

    The_Year = The_Year - 621

    Case 21 To 30&#58; The_Day = The_Day - 20

    The_Month = 4

    The_Year = The_Year - 621

    End Select

Case 7&#58; Select Case The_Day

    Case 1 To 21&#58; The_Day = The_Day + 10

    The_Month = 4

    The_Year = The_Year - 621

    Case 22 To 31&#58; The_Day = The_Day - 21

    The_Month = 5

    The_Year = The_Year - 621

    End Select

Case 8&#58; Select Case The_Day

    Case 1 To 21&#58; The_Day = The_Day + 10

    The_Month = 5

    The_Year = The_Year - 621

    Case 22 To 31&#58; The_Day = The_Day - 21

    The_Month = 6

    The_Year = The_Year - 621

    End Select

Case 9&#58; Select Case The_Day

    Case 1 To 21&#58; The_Day = The_Day + 10

    The_Month = 6

    The_Year = The_Year - 621

    Case 22 To 30&#58; The_Day = The_Day - 21

    The_Month = 7

    The_Year = The_Year - 621

    End Select

Case 10&#58; Select Case The_Day

    Case 1 To 21&#58; The_Day = The_Day + 9

    The_Month = 7

    The_Year = The_Year - 621

    Case 22 To 31&#58; The_Day = The_Day - 21

    The_Month = 8

    The_Year = The_Year - 621

    End Select

Case 11&#58; Select Case The_Day

    Case 1 To 20&#58; The_Day = The_Day + 10

    The_Month = 8

    The_Year = The_Year - 621

    Case 21 To 30&#58; The_Day = The_Day - 20

    The_Month = 9

    The_Year = The_Year - 621

    End Select

Case 12&#58; Select Case The_Day

    Case 1 To 20&#58; The_Day = The_Day + 10

    The_Month = 9

    The_Year = The_Year - 621

    Case 21 To 31&#58; The_Day = The_Day - 20

    The_Month = 10

    The_Year = The_Year - 621

    End Select

End Select

'------------------------------------------------------

End If



If The_Select = 2 Then

'------------------------------------------------------

Select Case The_Month

Case 1&#58; Select Case The_Day

    Case 1 To 20&#58; The_Day = The_Day + 10

    The_Month = 10

    The_Year = The_Year - 622

    Case 21 To 31&#58; The_Day = The_Day - 20

    The_Month = 11

    The_Year = The_Year - 622

    End Select

Case 2&#58; Select Case The_Day

    Case 1 To 19&#58; The_Day = The_Day + 11

    The_Month = 11

    The_Year = The_Year - 622

    Case 19 To 28&#58; The_Day = The_Day - 19

    The_Month = 12

    The_Year = The_Year - 622

    End Select

Case 3&#58; Select Case The_Day

    Case 1 To 20&#58; The_Day = The_Day + 9

    The_Month = 12

    The_Year = The_Year - 622

    Case 21 To 31&#58; The_Day = The_Day - 20

    The_Month = 1

    The_Year = The_Year - 621

    End Select

Case 4&#58; Select Case The_Day

    Case 1 To 20&#58; The_Day = The_Day + 11

    The_Month = 1

    The_Year = The_Year - 621

    Case 21 To 30&#58; The_Day = The_Day - 20

    The_Month = 2

    The_Year = The_Year - 621

    End Select

Case 5&#58; Select Case The_Day

    Case 1 To 21&#58; The_Day = The_Day + 10

    The_Month = 2

    The_Year = The_Year - 621

    Case 22 To 31&#58; The_Day = The_Day - 21

    The_Month = 3

    The_Year = The_Year - 621

    End Select

Case 6&#58; Select Case The_Day

    Case 1 To 21&#58; The_Day = The_Day + 10

    The_Month = 3

    The_Year = The_Year - 621

    Case 22 To 30&#58; The_Day = The_Day - 21

    The_Month = 4

    The_Year = The_Year - 621

    End Select

Case 7&#58; Select Case The_Day

    Case 1 To 22&#58; The_Day = The_Day + 9

    The_Month = 4

    The_Year = The_Year - 621

    Case 23 To 31&#58; The_Day = The_Day - 22

    The_Month = 5

    The_Year = The_Year - 621

    End Select

Case 8&#58; Select Case The_Day

    Case 1 To 22&#58; The_Day = The_Day + 9

    The_Month = 5

    The_Year = The_Year - 621

    Case 23 To 31&#58; The_Day = The_Day - 22

    The_Month = 6

    The_Year = The_Year - 621

    End Select

Case 9&#58; Select Case The_Day

    Case 1 To 22&#58; The_Day = The_Day + 9

    The_Month = 6

    The_Year = The_Year - 621

    Case 23 To 30&#58; The_Day = The_Day - 22

    The_Month = 7

    The_Year = The_Year - 621

    End Select

Case 10&#58; Select Case The_Day

    Case 1 To 22&#58; The_Day = The_Day + 8

    The_Month = 7

    The_Year = The_Year - 621

    Case 23 To 31&#58; The_Day = The_Day - 22

    The_Month = 8

    The_Year = The_Year - 621

    End Select

Case 11&#58; Select Case The_Day

    Case 1 To 21&#58; The_Day = The_Day + 9

    The_Month = 8

    The_Year = The_Year - 621

    Case 22 To 30&#58; The_Day = The_Day - 21

    The_Month = 9

    The_Year = The_Year - 621

    End Select

Case 12&#58; Select Case The_Day

    Case 1 To 21&#58; The_Day = The_Day + 9

    The_Month = 9

    The_Year = The_Year - 621

    Case 22 To 31&#58; The_Day = The_Day - 21

    The_Month = 10

    The_Year = The_Year - 621

    End Select

End Select

'------------------------------------------------------

End If



If The_Select = 3 Then

'------------------------------------------------------

Select Case The_Month

Case 1&#58; Select Case The_Day

    Case 1 To 19&#58; The_Day = The_Day + 11

    The_Month = 10

    The_Year = The_Year - 622

    Case 20 To 31&#58; The_Day = The_Day - 19

    The_Month = 11

    The_Year = The_Year - 622

    End Select

Case 2&#58; Select Case The_Day

    Case 1 To 18&#58; The_Day = The_Day + 12

    The_Month = 11

    The_Year = The_Year - 622

    Case 19 To 28&#58; The_Day = The_Day - 18

    The_Month = 12

    The_Year = The_Year - 622

    End Select

Case 3&#58; Select Case The_Day

    Case 1 To 20&#58; The_Day = The_Day + 10

    The_Month = 12

    The_Year = The_Year - 622

    Case 21 To 31&#58; The_Day = The_Day - 20

    The_Month = 1

    The_Year = The_Year - 621

    End Select

Case 4&#58; Select Case The_Day

    Case 1 To 20&#58; The_Day = The_Day + 11

    The_Month = 1

    The_Year = The_Year - 621

    Case 21 To 30&#58; The_Day = The_Day - 20

    The_Month = 2

    The_Year = The_Year - 621

    End Select

Case 5&#58; Select Case The_Day

    Case 1 To 21&#58; The_Day = The_Day + 10

    The_Month = 2

    The_Year = The_Year - 621

    Case 22 To 31&#58; The_Day = The_Day - 21

    The_Month = 3

    The_Year = The_Year - 621

    End Select

Case 6&#58; Select Case The_Day

    Case 1 To 21&#58; The_Day = The_Day + 10

    The_Month = 3

    The_Year = The_Year - 621

    Case 22 To 30&#58; The_Day = The_Day - 21

    The_Month = 4

    The_Year = The_Year - 621

    End Select

Case 7&#58; Select Case The_Day

    Case 1 To 22&#58; The_Day = The_Day + 9

    The_Month = 4

    The_Year = The_Year - 621

    Case 23 To 31&#58; The_Day = The_Day - 22

    The_Month = 5

    The_Year = The_Year - 621

    End Select

Case 8&#58; Select Case The_Day

    Case 1 To 22&#58; The_Day = The_Day + 9

    The_Month = 5

    The_Year = The_Year - 621

    Case 23 To 31&#58; The_Day = The_Day - 22

    The_Month = 6

    The_Year = The_Year - 621

    End Select

Case 9&#58; Select Case The_Day

    Case 1 To 22&#58; The_Day = The_Day + 9

    The_Month = 6

    The_Year = The_Year - 621

    Case 23 To 30&#58; The_Day = The_Day - 22

    The_Month = 7

    The_Year = The_Year - 621

    End Select

Case 10&#58; Select Case The_Day

    Case 1 To 22&#58; The_Day = The_Day + 8

    The_Month = 7

    The_Year = The_Year - 621

    Case 23 To 31&#58; The_Day = The_Day - 22

    The_Month = 8

    The_Year = The_Year - 621

    End Select

Case 11&#58; Select Case The_Day

    Case 1 To 21&#58; The_Day = The_Day + 9

    The_Month = 8

    The_Year = The_Year - 621

    Case 22 To 30&#58; The_Day = The_Day - 21

    The_Month = 9

    The_Year = The_Year - 621

    End Select

Case 12&#58; Select Case The_Day

    Case 1 To 21&#58; The_Day = The_Day + 9

    The_Month = 9

    The_Year = The_Year - 621

    Case 22 To 31&#58; The_Day = The_Day - 21

    The_Month = 10

    The_Year = The_Year - 621

    End Select

End Select

'------------------------------------------------------

End If



Fa_Date = Format&#40;CStr&#40;The_Year&#41;, "0000"&#41; &amp; "/" &amp; _

         Format&#40;CStr&#40;The_Month&#41;, "00"&#41; &amp; "/" &amp; _

         Format&#40;CStr&#40;The_Day&#41;, "00"&#41;

End Function

تبدیل تاریخ شمسی به میلادی



Public Function En_Date&#40;Fa_Date As String&#41; As String

Dim The_Year As Integer

Dim The_Month As Integer

Dim The_Day As Integer

The_Year = CInt&#40;Mid&#40;Fa_Date, 1, 4&#41;&#41;

The_Month = CInt&#40;Mid&#40;Fa_Date, 6, 2&#41;&#41;

The_Day = CInt&#40;Mid&#40;Fa_Date, 9, 2&#41;&#41;



Dim The_Select As Integer

The_Select = The_Year Mod 4



'------------------------------------------------------------------------------------------------------------------------

If The_Select = 0 Then                'Like &#58; 1360, 1364, 1368, 1372, 1376, 1380, 1384, ...

Select Case The_Month

Case 1&#58; Select Case The_Day

    Case 1 To 11&#58; The_Day = The_Day + 20

    The_Month = 3

    The_Year = The_Year + 621

    Case 12 To 31&#58; The_Day = The_Day - 11

    The_Month = 4

    The_Year = The_Year + 621

    End Select

Case 2&#58; Select Case The_Day

    Case 1 To 10&#58; The_Day = The_Day + 20

    The_Month = 4

    The_Year = The_Year + 621

    Case 11 To 31&#58; The_Day = The_Day - 10

    The_Month = 5

    The_Year = The_Year + 621

    End Select

Case 3&#58; Select Case The_Day

    Case 1 To 10&#58; The_Day = The_Day + 21

    The_Month = 5

    The_Year = The_Year + 621

    Case 11 To 31&#58; The_Day = The_Day - 10

    The_Month = 6

    The_Year = The_Year + 621

    End Select

Case 4&#58; Select Case The_Day

    Case 1 To 9&#58; The_Day = The_Day + 21

    The_Month = 6

    The_Year = The_Year + 621

    Case 10 To 31&#58; The_Day = The_Day - 9

    The_Month = 7

    The_Year = The_Year + 621

    End Select

Case 5&#58; Select Case The_Day

    Case 1 To 9&#58; The_Day = The_Day + 22

    The_Month = 7

    The_Year = The_Year + 621

    Case 10 To 31&#58; The_Day = The_Day - 9

    The_Month = 8

    The_Year = The_Year + 621

    End Select

Case 6&#58; Select Case The_Day

    Case 1 To 9&#58; The_Day = The_Day + 22

    The_Month = 8

    The_Year = The_Year + 621

    Case 10 To 31&#58; The_Day = The_Day - 9

    The_Month = 9

    The_Year = The_Year + 621

    End Select

Case 7&#58; Select Case The_Day

    Case 1 To 8&#58; The_Day = The_Day + 22

    The_Month = 9

    The_Year = The_Year + 621

    Case 9 To 30&#58; The_Day = The_Day - 8

    The_Month = 10

    The_Year = The_Year + 621

    End Select

Case 8&#58; Select Case The_Day

    Case 1 To 9&#58; The_Day = The_Day + 22

    The_Month = 10

    The_Year = The_Year + 621

    Case 10 To 30&#58; The_Day = The_Day - 9

    The_Month = 11

    The_Year = The_Year + 621

    End Select

Case 9&#58; Select Case The_Day

    Case 1 To 9&#58; The_Day = The_Day + 21

    The_Month = 11

    The_Year = The_Year + 621

    Case 10 To 30&#58; The_Day = The_Day - 9

    The_Month = 12

    The_Year = The_Year + 621

    End Select

Case 10&#58; Select Case The_Day

    Case 1 To 10&#58; The_Day = The_Day + 21

    The_Month = 12

    The_Year = The_Year + 621

    Case 11 To 30&#58; The_Day = The_Day - 10

    The_Month = 1

    The_Year = The_Year + 622

    End Select

Case 11&#58; Select Case The_Day

    Case 1 To 11&#58; The_Day = The_Day + 20

    The_Month = 1

    The_Year = The_Year + 622

    Case 12 To 30&#58; The_Day = The_Day - 11

    The_Month = 2

    The_Year = The_Year + 622

    End Select

Case 12&#58; Select Case The_Day

    Case 1 To 9&#58; The_Day = The_Day + 19

    The_Month = 2

    The_Year = The_Year + 622

    Case 10 To 30&#58; The_Day = The_Day - 9

    The_Month = 3

    The_Year = The_Year + 622

    End Select

End Select

End If

'------------------------------------------------------------------------------------------------------------------------

If The_Select = 1 Then                'Like &#58; 1361, 1365, 1369, 1373, 1377, 1381, 1385, ...

Select Case The_Month

Case 1&#58; Select Case The_Day

    Case 1 To 11&#58; The_Day = The_Day + 20

    The_Month = 3

    The_Year = The_Year + 621

    Case 12 To 31&#58; The_Day = The_Day - 11

    The_Month = 4

    The_Year = The_Year + 621

    End Select

Case 2&#58; Select Case The_Day

    Case 1 To 10&#58; The_Day = The_Day + 20

    The_Month = 4

    The_Year = The_Year + 621

    Case 11 To 31&#58; The_Day = The_Day - 10

    The_Month = 5

    The_Year = The_Year + 621

    End Select

Case 3&#58; Select Case The_Day

    Case 1 To 10&#58; The_Day = The_Day + 22

    The_Month = 5

    The_Year = The_Year + 621

    Case 11 To 31&#58; The_Day = The_Day - 10

    The_Month = 6

    The_Year = The_Year + 621

    End Select

Case 4&#58; Select Case The_Day

    Case 1 To 9&#58; The_Day = The_Day + 21

    The_Month = 6

    The_Year = The_Year + 621

    Case 10 To 31&#58; The_Day = The_Day - 9

    The_Month = 7

    The_Year = The_Year + 621

    End Select

Case 5&#58; Select Case The_Day

    Case 1 To 9&#58; The_Day = The_Day + 22

    The_Month = 7

    The_Year = The_Year + 621

    Case 10 To 31&#58; The_Day = The_Day - 9

    The_Month = 8

    The_Year = The_Year + 621

    End Select

Case 6&#58; Select Case The_Day

    Case 1 To 9&#58; The_Day = The_Day + 22

    The_Month = 8

    The_Year = The_Year + 621

    Case 10 To 31&#58; The_Day = The_Day - 9

    The_Month = 9

    The_Year = The_Year + 621

    End Select

Case 7&#58; Select Case The_Day

    Case 1 To 8&#58; The_Day = The_Day + 22

    The_Month = 9

    The_Year = The_Year + 621

    Case 9 To 30&#58; The_Day = The_Day - 8

    The_Month = 10

    The_Year = The_Year + 621

    End Select

Case 8&#58; Select Case The_Day

    Case 1 To 9&#58; The_Day = The_Day + 22

    The_Month = 10

    The_Year = The_Year + 621

    Case 10 To 30&#58; The_Day = The_Day - 9

    The_Month = 11

    The_Year = The_Year + 621

    End Select

Case 9&#58; Select Case The_Day

    Case 1 To 9&#58; The_Day = The_Day + 21

    The_Month = 11

    The_Year = The_Year + 621

    Case 10 To 30&#58; The_Day = The_Day - 9

    The_Month = 12

    The_Year = The_Year + 621

    End Select

Case 10&#58; Select Case The_Day

    Case 1 To 10&#58; The_Day = The_Day + 21

    The_Month = 12

    The_Year = The_Year + 621

    Case 11 To 30&#58; The_Day = The_Day - 10

    The_Month = 1

    The_Year = The_Year + 622

    End Select

Case 11&#58; Select Case The_Day

    Case 1 To 11&#58; The_Day = The_Day + 20

    The_Month = 1

    The_Year = The_Year + 622

    Case 12 To 30&#58; The_Day = The_Day - 11

    The_Month = 2

    The_Year = The_Year + 622

    End Select

Case 12&#58; Select Case The_Day

    Case 1 To 9&#58; The_Day = The_Day + 19

    The_Month = 2

    The_Year = The_Year + 622

    Case 10 To 30&#58; The_Day = The_Day - 9

    The_Month = 3

    The_Year = The_Year + 622

    End Select

End Select

End If

'------------------------------------------------------------------------------------------------------------------------

If The_Select = 2 Then                'Like &#58; 1362, 1366, 1370, 1374, 1378, 1382, 1386, ...

Select Case The_Month

Case 1&#58; Select Case The_Day

    Case 1 To 11&#58; The_Day = The_Day + 20

    The_Month = 3

    The_Year = The_Year + 621

    Case 12 To 31&#58; The_Day = The_Day - 11

    The_Month = 4

    The_Year = The_Year + 621

    End Select

Case 2&#58; Select Case The_Day

    Case 1 To 10&#58; The_Day = The_Day + 20

    The_Month = 4

    The_Year = The_Year + 621

    Case 11 To 31&#58; The_Day = The_Day - 10

    The_Month = 5

    The_Year = The_Year + 621

    End Select

Case 3&#58; Select Case The_Day

    Case 1 To 10&#58; The_Day = The_Day + 21

    The_Month = 5

    The_Year = The_Year + 621

    Case 11 To 31&#58; The_Day = The_Day - 10

    The_Month = 6

    The_Year = The_Year + 621

    End Select

Case 4&#58; Select Case The_Day

    Case 1 To 9&#58; The_Day = The_Day + 21

    The_Month = 6

    The_Year = The_Year + 621

    Case 10 To 31&#58; The_Day = The_Day - 9

    The_Month = 7

    The_Year = The_Year + 621

    End Select

Case 5&#58; Select Case The_Day

    Case 1 To 9&#58; The_Day = The_Day + 22

    The_Month = 7

    The_Year = The_Year + 621

    Case 10 To 31&#58; The_Day = The_Day - 9

    The_Month = 8

    The_Year = The_Year + 621

    End Select

Case 6&#58; Select Case The_Day

    Case 1 To 9&#58; The_Day = The_Day + 22

    The_Month = 8

    The_Year = The_Year + 621

    Case 10 To 31&#58; The_Day = The_Day - 9

    The_Month = 9

    The_Year = The_Year + 621

    End Select

Case 7&#58; Select Case The_Day

    Case 1 To 8&#58; The_Day = The_Day + 22

    The_Month = 9

    The_Year = The_Year + 621

    Case 9 To 30&#58; The_Day = The_Day - 8

    The_Month = 10

    The_Year = The_Year + 621

    End Select

Case 8&#58; Select Case The_Day

    Case 1 To 9&#58; The_Day = The_Day + 22

    The_Month = 10

    The_Year = The_Year + 621

    Case 10 To 30&#58; The_Day = The_Day - 9

    The_Month = 11

    The_Year = The_Year + 621

    End Select

Case 9&#58; Select Case The_Day

    Case 1 To 9&#58; The_Day = The_Day + 21

    The_Month = 11

    The_Year = The_Year + 621

    Case 10 To 30&#58; The_Day = The_Day - 9

    The_Month = 12

    The_Year = The_Year + 621

    End Select

Case 10&#58; Select Case The_Day

    Case 1 To 10&#58; The_Day = The_Day + 21

    The_Month = 12

    The_Year = The_Year + 621

    Case 11 To 30&#58; The_Day = The_Day - 10

    The_Month = 1

    The_Year = The_Year + 622

    End Select

Case 11&#58; Select Case The_Day

    Case 1 To 11&#58; The_Day = The_Day + 20

    The_Month = 1

    The_Year = The_Year + 622

    Case 12 To 30&#58; The_Day = The_Day - 11

    The_Month = 2

    The_Year = The_Year + 622

    End Select

Case 12&#58; Select Case The_Day

    Case 1 To 10&#58; The_Day = The_Day + 19

    The_Month = 2

    The_Year = The_Year + 622

    Case 11 To 30&#58; The_Day = The_Day - 10

    The_Month = 3

    The_Year = The_Year + 622

    End Select

End Select

End If

'------------------------------------------------------------------------------------------------------------------------

If The_Select = 3 Then                'Like &#58; 1363, 1367, 1371, 1375, 1379, 1383, 1387, ...

Select Case The_Month

Case 1&#58; Select Case The_Day

    Case 1 To 12&#58; The_Day = The_Day + 19

    The_Month = 3

    The_Year = The_Year + 621

    Case 13 To 31&#58; The_Day = The_Day - 12

    The_Month = 4

    The_Year = The_Year + 621

    End Select

Case 2&#58; Select Case The_Day

    Case 1 To 11&#58; The_Day = The_Day + 19

    The_Month = 4

    The_Year = The_Year + 621

    Case 12 To 31&#58; The_Day = The_Day - 11

    The_Month = 5

    The_Year = The_Year + 621

    End Select

Case 3&#58; Select Case The_Day

    Case 1 To 11&#58; The_Day = The_Day + 20

    The_Month = 5

    The_Year = The_Year + 621

    Case 12 To 31&#58; The_Day = The_Day - 11

    The_Month = 6

    The_Year = The_Year + 621

    End Select

Case 4&#58; Select Case The_Day

    Case 1 To 10&#58; The_Day = The_Day + 20

    The_Month = 6

    The_Year = The_Year + 621

    Case 11 To 31&#58; The_Day = The_Day - 10

    The_Month = 7

    The_Year = The_Year + 621

    End Select

Case 5&#58; Select Case The_Day

    Case 1 To 10&#58; The_Day = The_Day + 21

    The_Month = 7

    The_Year = The_Year + 621

    Case 11 To 31&#58; The_Day = The_Day - 10

    The_Month = 8

    The_Year = The_Year + 621

    End Select

Case 6&#58; Select Case The_Day

    Case 1 To 10&#58; The_Day = The_Day + 21

    The_Month = 8

    The_Year = The_Year + 621

    Case 11 To 31&#58; The_Day = The_Day - 10

    The_Month = 9

    The_Year = The_Year + 621

    End Select

Case 7&#58; Select Case The_Day

    Case 1 To 9&#58; The_Day = The_Day + 21

    The_Month = 9

    The_Year = The_Year + 621

    Case 10 To 30&#58; The_Day = The_Day - 9

    The_Month = 10

    The_Year = The_Year + 621

    End Select

Case 8&#58; Select Case The_Day

    Case 1 To 10&#58; The_Day = The_Day + 21

    The_Month = 10

    The_Year = The_Year + 621

    Case 11 To 30&#58; The_Day = The_Day - 10

    The_Month = 11

    The_Year = The_Year + 621

    End Select

Case 9&#58; Select Case The_Day

    Case 1 To 10&#58; The_Day = The_Day + 20

    The_Month = 11

    The_Year = The_Year + 621

    Case 11 To 30&#58; The_Day = The_Day - 10

    The_Month = 12

    The_Year = The_Year + 621

    End Select

Case 10&#58; Select Case The_Day

    Case 1 To 11&#58; The_Day = The_Day + 20

    The_Month = 12

    The_Year = The_Year + 621

    Case 12 To 30&#58; The_Day = The_Day - 11

    The_Month = 1

    The_Year = The_Year + 622

    End Select

Case 11&#58; Select Case The_Day

    Case 1 To 12&#58; The_Day = The_Day + 19

    The_Month = 1

    The_Year = The_Year + 622

    Case 13 To 30&#58; The_Day = The_Day - 12

    The_Month = 2

    The_Year = The_Year + 622

    End Select

Case 12&#58; Select Case The_Day

    Case 1 To 10&#58; The_Day = The_Day + 18

    The_Month = 2

    The_Year = The_Year + 622

    Case 11 To 30&#58; The_Day = The_Day - 10

    The_Month = 3

    The_Year = The_Year + 622

    End Select

End Select

End If

'------------------------------------------------------------------------------------------------------------------------

En_Date = Format&#40;CStr&#40;The_Month&#41;, "00"&#41; &amp; "/" &amp; _

                            Format&#40;CStr&#40;The_Day&#41;, "00"&#41; &amp; "/" &amp; _

                                    Format&#40;CStr&#40;The_Year&#41;, "0000"&#41;

End Function

**ab_ba** · چهارشنبه 25 خرداد 1384, 08:10 صبح

دوست عزیز از کد تبدیل به حروف ممنون اما برای اعداد مثل 10000000001 کار نمیکند

آقای ASPDeveloper من تابعی نوشتم که برای همه اعداد کار میکند و مشکلی ندارد ولی بدلیل اینکه در این تاپیک به حد کافی این تابع آورده شده از آورئن آن صرف نظر میکنم ولی اگر حتما میخواستی پیغام بده
[/img]

**M-Gheibi** · چهارشنبه 25 خرداد 1384, 09:23 صبح

سلام
ab_ba خب شما هم اون تابع رو اینجا بنویسید. مشکلی نیست.

**ab_ba** · پنج شنبه 26 خرداد 1384, 07:35 صبح

اینم کد من

Function harfi&#40;n As Double&#41; As String

Dim s1&#40;10&#41; As String

Dim s2&#40;10&#41; As String

Dim s3&#40;10&#41; As String

Dim s4&#40;10&#41; As String

Dim a&#40;5&#41;, s As String

Dim count As Long

Dim i, j, k, m As Long

Dim b As Integer



s1&#40;1&#41; = "یک"&#58; s1&#40;2&#41; = "دو"&#58; s1&#40;3&#41; = "سه"&#58; s1&#40;4&#41; = "چهار"&#58; s1&#40;5&#41; = "پنج"&#58; s1&#40;6&#41; = "شش"&#58; s1&#40;7&#41; = "هفت"&#58; s1&#40;8&#41; = "هشت"&#58; s1&#40;9&#41; = "نه"&#58; s1&#40;10&#41; = "ده"

s2&#40;1&#41; = "یازده"&#58; s2&#40;2&#41; = "دوازده"&#58; s2&#40;3&#41; = "سیزده"&#58; s2&#40;4&#41; = "چهارده"&#58; s2&#40;5&#41; = "پانزده"&#58; s2&#40;6&#41; = "شانزده"&#58; s2&#40;7&#41; = "هفده"&#58; s2&#40;8&#41; = "هجده"&#58; s2&#40;9&#41; = "نوزده"&#58; s2&#40;10&#41; = "بیست"

s3&#40;1&#41; = "یکصد"&#58; s3&#40;2&#41; = "دویست"&#58; s3&#40;3&#41; = "سیصد"&#58; s3&#40;4&#41; = "چهارصد"&#58; s3&#40;5&#41; = "پانصد"&#58; s3&#40;6&#41; = "ششصد"&#58; s3&#40;7&#41; = "هفتصد"&#58; s3&#40;8&#41; = "هشتصد"&#58; s3&#40;9&#41; = "نهصد"&#58; s3&#40;10&#41; = "هزار"

s4&#40;1&#41; = " "&#58; s4&#40;2&#41; = "هزار"&#58; s4&#40;3&#41; = "میلیون"&#58; s4&#40;4&#41; = "میلیارد"&#58; s4&#40;5&#41; = "تریلیون"&#58; s4&#40;6&#41; = "تریلیارد"



n = Int&#40;n&#41;

s = Str&#40;n&#41;

s = LTrim$&#40;s&#41;

s = RTrim$&#40;s&#41;

k = Len&#40;s&#41;

m = k Mod 3

If m = 0 Then m = 3

j = &#40;k - m&#41; \ 3

a&#40;j + 1&#41; = Mid&#40;s, 1, m&#41;

m = m + 1

For i = j To 1 Step -1

  a&#40;i&#41; = Mid&#40;s, m, 3&#41;

  m = m + 3

Next

count = j + 1

For i = count To 1 Step -1

    b = 0

    If Val&#40;a&#40;i&#41;&#41; > 0 Then

       harfi = harfi &amp; harfi2&#40;Val&#40;a&#40;i&#41;&#41;&#41;

       harfi = harfi &amp; " " &amp; s4&#40;i&#41;

       For j = 1 To i - 1

         If Val&#40;a&#40;j&#41;&#41; > 0 Then b = 1

       Next

       If b = 1 Then harfi = harfi &amp; " و "

    End If

Next

End Function



Function harfi2&#40;n As Double&#41; As String

Dim s1&#40;20&#41; As String

Dim s2&#40;10&#41; As String

Dim s3&#40;10&#41; As String

Dim s4&#40;10&#41; As String

Dim a&#40;5&#41; As Long

Dim b As Integer

  b = 0

  s1&#40;1&#41; = "یک"&#58; s1&#40;2&#41; = "دو"&#58; s1&#40;3&#41; = "سه"&#58; s1&#40;4&#41; = "چهار"&#58; s1&#40;5&#41; = "پنج"&#58; s1&#40;6&#41; = "شش"&#58; s1&#40;7&#41; = "هفت"&#58; s1&#40;8&#41; = "هشت"&#58; s1&#40;9&#41; = "نه"&#58; s1&#40;10&#41; = "ده"

  s1&#40;11&#41; = "یازده"&#58; s1&#40;12&#41; = "دوازده"&#58; s1&#40;13&#41; = "سیزده"&#58; s1&#40;14&#41; = "چهارده"&#58; s1&#40;15&#41; = "پانزده"&#58; s1&#40;16&#41; = "شانزده"&#58; s1&#40;17&#41; = "هفده"&#58; s1&#40;18&#41; = "هجده"&#58; s1&#40;19&#41; = "نوزده"&#58; s1&#40;20&#41; = "بیست"

  s2&#40;1&#41; = "ده"&#58; s2&#40;2&#41; = "بیست"&#58; s2&#40;3&#41; = "سی"&#58; s2&#40;4&#41; = "چهل"&#58; s2&#40;5&#41; = "پنجاه"&#58; s2&#40;6&#41; = "شصت"&#58; s2&#40;7&#41; = "هفتاد"&#58; s2&#40;8&#41; = "هشتاد"&#58; s2&#40;9&#41; = "نود"&#58; s2&#40;10&#41; = "صد"

  s3&#40;1&#41; = "یکصد"&#58; s3&#40;2&#41; = "دویست"&#58; s3&#40;3&#41; = "سیصد"&#58; s3&#40;4&#41; = "چهارصد"&#58; s3&#40;5&#41; = "پانصد"&#58; s3&#40;6&#41; = "ششصد"&#58; s3&#40;7&#41; = "هفتصد"&#58; s3&#40;8&#41; = "هشتصد"&#58; s3&#40;9&#41; = "نهصد"&#58; s3&#40;10&#41; = "هزار"

  s4&#40;1&#41; = "هزار"&#58; s4&#40;2&#41; = "میلیون"&#58; s4&#40;3&#41; = "میلیارد"&#58; s4&#40;4&#41; = "تریلیون"&#58; s4&#40;5&#41; = " تریلیارد"

  a&#40;1&#41; = n \ 100

  a&#40;4&#41; = n Mod 100

  a&#40;2&#41; = a&#40;4&#41; \ 10

  a&#40;3&#41; = a&#40;4&#41; Mod 10

  If &#40;a&#40;1&#41; > 0&#41; Then harfi2 = s3&#40;a&#40;1&#41;&#41;&#58; b = 1

  If &#40;a&#40;4&#41; &lt; 20 And a&#40;4&#41; > 0&#41; Then

         If &#40;b = 1&#41; Then

           harfi2 = harfi2 &amp; " و " &amp; s1&#40;a&#40;4&#41;&#41;

         Else

          harfi2 = s1&#40;a&#40;4&#41;&#41;

         End If

  Else

     If &#40;a&#40;2&#41; > 0&#41; Then

         If &#40;b = 1&#41; Then

            harfi2 = harfi2 &amp; " و " &amp; s2&#40;a&#40;2&#41;&#41;

         Else

             harfi2 = s2&#40;a&#40;2&#41;&#41;

         End If

     End If

     If &#40;a&#40;3&#41; > 0&#41; Then

         If &#40;a&#40;4&#41; > 20&#41; Then b = 1

         If &#40;b = 1&#41; Then

          harfi2 = harfi2 &amp; " و " &amp; s1&#40;a&#40;3&#41;&#41;

         Else

          harfi2 = s1&#40;a&#40;3&#41;&#41;

         End If

     End If

  End If

 End Function

نام تاپیک: مرجع حل مشکلات زبان فارسی و سورسهای مربوطه

ابزار های تاپیک

نمایش

تاریخ شمسی

سلام

برچسب های این تاپیک

قوانین ایجاد تاپیک در تالار