فارسی نویسی بدون تغییر زبان کیبورد از انگلیسی به فارسی [بایگانی]

مهدی ذوقی

شنبه 29 اردیبهشت 1386, 11:07 صبح

سلام
راه حل اینکار چیه
ممنون

D32.00110

شنبه 29 اردیبهشت 1386, 11:34 صبح

سلام
راه حل اینکار چیه
ممنون

ببینم شما تبریز هستی نه ؟؟؟ اگه اره با من یه تماس بگیر ...
d32_00110@yahoo.com

Public Function Farsi(KeyAscii As Integer) As Integer
If KeyAscii = 72 Then KeyAscii = 194
If KeyAscii = 104 Then KeyAscii = 199
If KeyAscii = 102 Then KeyAscii = 200
If KeyAscii = 92 Then KeyAscii = 129
If KeyAscii = 106 Then KeyAscii = 202
If KeyAscii = 101 Then KeyAscii = 203
If KeyAscii = 91 Then KeyAscii = 204
If KeyAscii = 93 Then KeyAscii = 141
If KeyAscii = 112 Then KeyAscii = 205
If KeyAscii = 111 Then KeyAscii = 206
If KeyAscii = 110 Then KeyAscii = 207
If KeyAscii = 98 Then KeyAscii = 208
If KeyAscii = 118 Then KeyAscii = 209
If KeyAscii = 99 Then KeyAscii = 210
If KeyAscii = 96 Then KeyAscii = 142
If KeyAscii = 115 Then KeyAscii = 211
If KeyAscii = 97 Then KeyAscii = 212
If KeyAscii = 119 Then KeyAscii = 213
If KeyAscii = 113 Then KeyAscii = 214
If KeyAscii = 120 Then KeyAscii = 216
If KeyAscii = 122 Then KeyAscii = 217
If KeyAscii = 117 Then KeyAscii = 218
If KeyAscii = 121 Then KeyAscii = 219
If KeyAscii = 116 Then KeyAscii = 221
If KeyAscii = 114 Then KeyAscii = 222
If KeyAscii = 59 Then KeyAscii = 152
If KeyAscii = 39 Then KeyAscii = 144
If KeyAscii = 103 Then KeyAscii = 225
If KeyAscii = 108 Then KeyAscii = 227
If KeyAscii = 107 Then KeyAscii = 228
If KeyAscii = 44 Then KeyAscii = 230
If KeyAscii = 105 Then KeyAscii = 229
If KeyAscii = 100 Then KeyAscii = 237
If KeyAscii = 109 Then KeyAscii = 198
Farsi = KeyAscii
End Function

CodeMasterX

یک شنبه 30 اردیبهشت 1386, 01:14 صبح

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

مهدی ذوقی

شنبه 05 خرداد 1386, 18:59 عصر

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

CodeMasterX

یک شنبه 06 خرداد 1386, 10:16 صبح

ببینید دوست عزیز همونجوری که تو پست فبلی گفتم نصب کردن امکانات RTL (RightToLeft( و فارسی نویسی برای سیستم عامل ویندوز کار پیچیده و سختی نیست.بجای اینکه شما به فکر راه حلی باشید که نیازی به این عمل نداشته باشه شما میتونید فارسی رو برای سیستم کاربر نصب کنید.میتونید قبل از نصب خودتون برید سراغ سیستمش و این کار رو انجام بدین و میتونید فایل های مورد نیاز رو جمع آوری کنید و توی پروژه نصب (Setup) برنامتون بذارید تا اونجا نصب شه.

مهدی ذوقی

یک شنبه 06 خرداد 1386, 11:36 صبح

با سلام و خسته نباشید و تشکر
البته شما درست می فرمائید و من هم با تغییر زبان به فارسی موافقم ولی کنجکاوم که بدونم این کار چطور انجام می شه چون سایتی مثل سایت سازمان سنجش هم از این
روش استفاده می کنه و فکر کنم حتی تو ویندوز 98 انگلیسی هم جواب بده و این خیلی
جالبه
ضمنا طریقه استفاده از این کد بالا چیه من با فراخوانی تابع در رویداد keypress تکس باکس
استفاده کردم و خیلی bug داشت

__siavash__

یک شنبه 06 خرداد 1386, 13:48 عصر

با سلام و خسته نباشید و تشکر
البته شما درست می فرمائید و من هم با تغییر زبان به فارسی موافقم ولی کنجکاوم که بدونم این کار چطور انجام می شه چون سایتی مثل سایت سازمان سنجش هم از این
روش استفاده می کنه و فکر کنم حتی تو ویندوز 98 انگلیسی هم جواب بده و این خیلی
جالبه
ضمنا طریقه استفاده از این کد بالا چیه من با فراخوانی تابع در رویداد keypress تکس باکس
استفاده کردم و خیلی bug داشت

Private Sub Text1_KeyPress(KeyAscii As Integer)
Call Farsi(KeyAscii)
End Sub

CodeMasterX

یک شنبه 06 خرداد 1386, 22:03 عصر

آهان حالا یه چیزی لازم به ذکر هست:

ببین دوست عزیز استفاده از همچین روشی در یک وب سایت با یک نرم افزار دسکتاپ خیلی فرق میکنه! برای وب سایت سازمان سنجش به این دلیل همچین روشی رو استفاده کرده چون وب سایت رو ممکنه هر کسی روی هر نسخه ای از ویندوز با تنظمیات مختلف اجرا کنه بنابراین نمیشه اطمینان داشت که قابلیت تایپ فارسی رو کاربر داره یا نه.ولی نرم افزار دسکتاپ شما برای استفاده اول باید روی سیستم نصب بشه و مطعاقبا فایل های مورد نیازش رو کاربر روی سیستم خواهد داشت.بنابراین برای یه نرم افزار دسکتاپ نیازی نیست به فکر همچین روشی باشید و همونجوری که گفتم یا باید خودتون برای کاربر فارسی رو نصب کنید و یا با پروژه نصب فایلهای مورد نیاز رو نصب کنید.

مهدی ذوقی

دوشنبه 07 خرداد 1386, 11:13 صبح

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

CodeMasterX

دوشنبه 07 خرداد 1386, 16:24 عصر

خواهش میکنم شما لطف دارین.

drhadi_20

دوشنبه 07 خرداد 1386, 16:43 عصر

ببینید دوست عزیز! شما میخواید کارتان انجام بشه یا اینکه صرفا برای یادگیری میخواهید این روش را یاد بگیرید؟ اگه صرفا نتیجه کار براتون مهمه که codemaster توصیحاتی دادند، ولی اگه برای جنبه آموزشی میخواید حتما با این روش آشنا بشید بگید که بقیه دوستان هم بدونند شما چی میخواهید و بیشتر در رابطه با خواسته شما جواب بدهند، البته من یه کارایی تو این زمینه قبلا انجان دادم ولی یه کم مشکل داشت و کاملش نکردم، اگه اینو میخواید بگید که بقیه دوستان هم اگه اطلاعاتی دارن براتون بزارن!!!

بهرنگ نوروزی

دوشنبه 14 خرداد 1386, 16:25 عصر

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

Public Function Fa_Day(En_Date As String) As StringSelect Case Weekday(En_Date)Case 1 Fa_Day = "یکشنبه"Case 2 Fa_Day = "دوشنبه"Case 3 Fa_Day = "سه شنبه"Case 4 Fa_Day = "چهارشنبه"Case 5 Fa_Day = "پنجشنبه"Case 6 Fa_Day = "جمعه"Case 7 Fa_Day = "شنبه"End SelectEnd FunctionPublic Function Fa_Date(En_Date As String) As StringDim The_Select As IntegerDim The_Year As IntegerDim The_Month As IntegerDim The_Day As IntegerThe_Year = CInt(Mid(En_Date, 7, 4))The_Month = CInt(Mid(En_Date, 1, 2))The_Day = CInt(Mid(En_Date, 4, 2))If (The_Year Mod 4 = 0) Then The_Select = 1Else The_Select = 2End IfIf ((The_Year - 1) Mod 4 = 0) Then The_Select = 3End IfIf The_Select = 1 Then'------------------------------------------------------Select Case The_MonthCase 1: Select Case The_Day Case 1 To 20: The_Day = The_Day + 10 The_Month = 10 The_Year = The_Year - 622 Case 21 To 31: The_Day = The_Day - 20 The_Month = 11 The_Year = The_Year - 622 End SelectCase 2: Select Case The_Day Case 1 To 19: The_Day = The_Day + 11 The_Month = 11 The_Year = The_Year - 622 Case 20 To 29: The_Day = The_Day - 19 The_Month = 12 The_Year = The_Year - 622 End SelectCase 3: Select Case The_Day Case 1 To 19: The_Day = The_Day + 10 The_Month = 12 The_Year = The_Year - 622 Case 20 To 31: The_Day = The_Day - 19 The_Month = 1 The_Year = The_Year - 621 End SelectCase 4: Select Case The_Day Case 1 To 19: The_Day = The_Day + 12 The_Month = 1 The_Year = The_Year - 621 Case 20 To 30: The_Day = The_Day - 19 The_Month = 2 The_Year = The_Year - 621 End SelectCase 5: Select Case The_Day Case 1 To 20: The_Day = The_Day + 11 The_Month = 2 The_Year = The_Year - 621 Case 21 To 31: The_Day = The_Day - 20 The_Month = 3 The_Year = The_Year - 621 End SelectCase 6: Select Case The_Day Case 1 To 20: The_Day = The_Day + 11 The_Month = 3 The_Year = The_Year - 621 Case 21 To 30: The_Day = The_Day - 20 The_Month = 4 The_Year = The_Year - 621 End SelectCase 7: Select Case The_Day Case 1 To 21: The_Day = The_Day + 10 The_Month = 4 The_Year = The_Year - 621 Case 22 To 31: The_Day = The_Day - 21 The_Month = 5 The_Year = The_Year - 621 End SelectCase 8: Select Case The_Day Case 1 To 21: The_Day = The_Day + 10 The_Month = 5 The_Year = The_Year - 621 Case 22 To 31: The_Day = The_Day - 21 The_Month = 6 The_Year = The_Year - 621 End SelectCase 9: Select Case The_Day Case 1 To 21: The_Day = The_Day + 10 The_Month = 6 The_Year = The_Year - 621 Case 22 To 30: The_Day = The_Day - 21 The_Month = 7 The_Year = The_Year - 621 End SelectCase 10: Select Case The_Day Case 1 To 21: The_Day = The_Day + 9 The_Month = 7 The_Year = The_Year - 621 Case 22 To 31: The_Day = The_Day - 21 The_Month = 8 The_Year = The_Year - 621 End SelectCase 11: Select Case The_Day Case 1 To 20: The_Day = The_Day + 10 The_Month = 8 The_Year = The_Year - 621 Case 21 To 30: The_Day = The_Day - 20 The_Month = 9 The_Year = The_Year - 621 End SelectCase 12: Select Case The_Day Case 1 To 20: The_Day = The_Day + 10 The_Month = 9 The_Year = The_Year - 621 Case 21 To 31: The_Day = The_Day - 20 The_Month = 10 The_Year = The_Year - 621 End SelectEnd Select'------------------------------------------------------End IfIf The_Select = 2 Then'------------------------------------------------------Select Case The_MonthCase 1: Select Case The_Day Case 1 To 20: The_Day = The_Day + 10 The_Month = 10 The_Year = The_Year - 622 Case 21 To 31: The_Day = The_Day - 20 The_Month = 11 The_Year = The_Year - 622 End SelectCase 2: Select Case The_Day Case 1 To 19: The_Day = The_Day + 11 The_Month = 11 The_Year = The_Year - 622 Case 19 To 28: The_Day = The_Day - 19 The_Month = 12 The_Year = The_Year - 622 End SelectCase 3: Select Case The_Day Case 1 To 20: The_Day = The_Day + 9 The_Month = 12 The_Year = The_Year - 622 Case 21 To 31: The_Day = The_Day - 20 The_Month = 1 The_Year = The_Year - 621 End SelectCase 4: Select Case The_Day Case 1 To 20: The_Day = The_Day + 11 The_Month = 1 The_Year = The_Year - 621 Case 21 To 30: The_Day = The_Day - 20 The_Month = 2 The_Year = The_Year - 621 End SelectCase 5: Select Case The_Day Case 1 To 21: The_Day = The_Day + 10 The_Month = 2 The_Year = The_Year - 621 Case 22 To 31: The_Day = The_Day - 21 The_Month = 3 The_Year = The_Year - 621 End SelectCase 6: Select Case The_Day Case 1 To 21: The_Day = The_Day + 10 The_Month = 3 The_Year = The_Year - 621 Case 22 To 30: The_Day = The_Day - 21 The_Month = 4 The_Year = The_Year - 621 End SelectCase 7: Select Case The_Day Case 1 To 22: The_Day = The_Day + 9 The_Month = 4 The_Year = The_Year - 621 Case 23 To 31: The_Day = The_Day - 22 The_Month = 5 The_Year = The_Year - 621 End SelectCase 8: Select Case The_Day Case 1 To 22: The_Day = The_Day + 9 The_Month = 5 The_Year = The_Year - 621 Case 23 To 31: The_Day = The_Day - 22 The_Month = 6 The_Year = The_Year - 621 End SelectCase 9: Select Case The_Day Case 1 To 22: The_Day = The_Day + 9 The_Month = 6 The_Year = The_Year - 621 Case 23 To 30: The_Day = The_Day - 22 The_Month = 7 The_Year = The_Year - 621 End SelectCase 10: Select Case The_Day Case 1 To 22: The_Day = The_Day + 8 The_Month = 7 The_Year = The_Year - 621 Case 23 To 31: The_Day = The_Day - 22 The_Month = 8 The_Year = The_Year - 621 End SelectCase 11: Select Case The_Day Case 1 To 21: The_Day = The_Day + 9 The_Month = 8 The_Year = The_Year - 621 Case 22 To 30: The_Day = The_Day - 21 The_Month = 9 The_Year = The_Year - 621 End SelectCase 12: Select Case The_Day Case 1 To 21: The_Day = The_Day + 9 The_Month = 9 The_Year = The_Year - 621 Case 22 To 31: The_Day = The_Day - 21 The_Month = 10 The_Year = The_Year - 621 End SelectEnd Select'------------------------------------------------------End IfIf The_Select = 3 Then'------------------------------------------------------Select Case The_MonthCase 1: Select Case The_Day Case 1 To 19: The_Day = The_Day + 11 The_Month = 10 The_Year = The_Year - 622 Case 20 To 31: The_Day = The_Day - 19 The_Month = 11 The_Year = The_Year - 622 End SelectCase 2: Select Case The_Day Case 1 To 18: The_Day = The_Day + 12 The_Month = 11 The_Year = The_Year - 622 Case 19 To 28: The_Day = The_Day - 18 The_Month = 12 The_Year = The_Year - 622 End SelectCase 3: Select Case The_Day Case 1 To 20: The_Day = The_Day + 10 The_Month = 12 The_Year = The_Year - 622 Case 21 To 31: The_Day = The_Day - 20 The_Month = 1 The_Year = The_Year - 621 End SelectCase 4: Select Case The_Day Case 1 To 20: The_Day = The_Day + 11 The_Month = 1 The_Year = The_Year - 621 Case 21 To 30: The_Day = The_Day - 20 The_Month = 2 The_Year = The_Year - 621 End SelectCase 5: Select Case The_Day Case 1 To 21: The_Day = The_Day + 10 The_Month = 2 The_Year = The_Year - 621 Case 22 To 31: The_Day = The_Day - 21 The_Month = 3 The_Year = The_Year - 621 End SelectCase 6: Select Case The_Day Case 1 To 21: The_Day = The_Day + 10 The_Month = 3 The_Year = The_Year - 621 Case 22 To 30: The_Day = The_Day - 21 The_Month = 4 The_Year = The_Year - 621 End SelectCase 7: Select Case The_Day Case 1 To 22: The_Day = The_Day + 9 The_Month = 4 The_Year = The_Year - 621 Case 23 To 31: The_Day = The_Day - 22 The_Month = 5 The_Year = The_Year - 621 End SelectCase 8: Select Case The_Day Case 1 To 22: The_Day = The_Day + 9 The_Month = 5 The_Year = The_Year - 621 Case 23 To 31: The_Day = The_Day - 22 The_Month = 6 The_Year = The_Year - 621 End SelectCase 9: Select Case The_Day Case 1 To 22: The_Day = The_Day + 9 The_Month = 6 The_Year = The_Year - 621 Case 23 To 30: The_Day = The_Day - 22 The_Month = 7 The_Year = The_Year - 621 End SelectCase 10: Select Case The_Day Case 1 To 22: The_Day = The_Day + 8 The_Month = 7 The_Year = The_Year - 621 Case 23 To 31: The_Day = The_Day - 22 The_Month = 8 The_Year = The_Year - 621 End SelectCase 11: Select Case The_Day Case 1 To 21: The_Day = The_Day + 9 The_Month = 8 The_Year = The_Year - 621 Case 22 To 30: The_Day = The_Day - 21 The_Month = 9 The_Year = The_Year - 621 End SelectCase 12: Select Case The_Day Case 1 To 21: The_Day = The_Day + 9 The_Month = 9 The_Year = The_Year - 621 Case 22 To 31: The_Day = The_Day - 21 The_Month = 10 The_Year = The_Year - 621 End SelectEnd Select'------------------------------------------------------End IfFa_Date = Format(CStr(The_Year), "0000") & "/" & _ Format(CStr(The_Month), "00") & "/" & _ Format(CStr(The_Day), "00")End FunctionPublic Function En_Date(Fa_Date As String) As StringDim The_Year As IntegerDim The_Month As IntegerDim The_Day As IntegerThe_Year = CInt(Mid(Fa_Date, 1, 4))The_Month = CInt(Mid(Fa_Date, 6, 2))The_Day = CInt(Mid(Fa_Date, 9, 2))Dim The_Select As IntegerThe_Select = The_Year Mod 4'------------------------------------------------------------------------------------------------------------------------If The_Select = 0 Then 'Like : 1360, 1364, 1368, 1372, 1376, 1380, 1384, ...Select Case The_MonthCase 1: Select Case The_Day Case 1 To 11: The_Day = The_Day + 20 The_Month = 3 The_Year = The_Year + 621 Case 12 To 31: The_Day = The_Day - 11 The_Month = 4 The_Year = The_Year + 621 End SelectCase 2: Select Case The_Day Case 1 To 10: The_Day = The_Day + 20 The_Month = 4 The_Year = The_Year + 621 Case 11 To 31: The_Day = The_Day - 10 The_Month = 5 The_Year = The_Year + 621 End SelectCase 3: Select Case The_Day Case 1 To 10: The_Day = The_Day + 21 The_Month = 5 The_Year = The_Year + 621 Case 11 To 31: The_Day = The_Day - 10 The_Month = 6 The_Year = The_Year + 621 End SelectCase 4: Select Case The_Day Case 1 To 9: The_Day = The_Day + 21 The_Month = 6 The_Year = The_Year + 621 Case 10 To 31: The_Day = The_Day - 9 The_Month = 7 The_Year = The_Year + 621 End SelectCase 5: Select Case The_Day Case 1 To 9: The_Day = The_Day + 22 The_Month = 7 The_Year = The_Year + 621 Case 10 To 31: The_Day = The_Day - 9 The_Month = 8 The_Year = The_Year + 621 End SelectCase 6: Select Case The_Day Case 1 To 9: The_Day = The_Day + 22 The_Month = 8 The_Year = The_Year + 621 Case 10 To 31: The_Day = The_Day - 9 The_Month = 9 The_Year = The_Year + 621 End SelectCase 7: Select Case The_Day Case 1 To 8: The_Day = The_Day + 22 The_Month = 9 The_Year = The_Year + 621 Case 9 To 30: The_Day = The_Day - 8 The_Month = 10 The_Year = The_Year + 621 End SelectCase 8: Select Case The_Day Case 1 To 9: The_Day = The_Day + 22 The_Month = 10 The_Year = The_Year + 621 Case 10 To 30: The_Day = The_Day - 9 The_Month = 11 The_Year = The_Year + 621 End SelectCase 9: Select Case The_Day Case 1 To 9: The_Day = The_Day + 21 The_Month = 11 The_Year = The_Year + 621 Case 10 To 30: The_Day = The_Day - 9 The_Month = 12 The_Year = The_Year + 621 End SelectCase 10: Select Case The_Day Case 1 To 10: The_Day = The_Day + 21 The_Month = 12 The_Year = The_Year + 621 Case 11 To 30: The_Day = The_Day - 10 The_Month = 1 The_Year = The_Year + 622 End SelectCase 11: Select Case The_Day Case 1 To 11: The_Day = The_Day + 20 The_Month = 1 The_Year = The_Year + 622 Case 12 To 30: The_Day = The_Day - 11 The_Month = 2 The_Year = The_Year + 622 End SelectCase 12: Select Case The_Day Case 1 To 9: The_Day = The_Day + 19 The_Month = 2 The_Year = The_Year + 622 Case 10 To 30: The_Day = The_Day - 9 The_Month = 3 The_Year = The_Year + 622 End SelectEnd SelectEnd If'------------------------------------------------------------------------------------------------------------------------If The_Select = 1 Then 'Like : 1361, 1365, 1369, 1373, 1377, 1381, 1385, ...Select Case The_MonthCase 1: Select Case The_Day Case 1 To 11: The_Day = The_Day + 20 The_Month = 3 The_Year = The_Year + 621 Case 12 To 31: The_Day = The_Day - 11 The_Month = 4 The_Year = The_Year + 621 End SelectCase 2: Select Case The_Day Case 1 To 10: The_Day = The_Day + 20 The_Month = 4 The_Year = The_Year + 621 Case 11 To 31: The_Day = The_Day - 10 The_Month = 5 The_Year = The_Year + 621 End SelectCase 3: Select Case The_Day Case 1 To 10: The_Day = The_Day + 22 The_Month = 5 The_Year = The_Year + 621 Case 11 To 31: The_Day = The_Day - 10 The_Month = 6 The_Year = The_Year + 621 End SelectCase 4: Select Case The_Day Case 1 To 9: The_Day = The_Day + 21 The_Month = 6 The_Year = The_Year + 621 Case 10 To 31: The_Day = The_Day - 9 The_Month = 7 The_Year = The_Year + 621 End SelectCase 5: Select Case The_Day Case 1 To 9: The_Day = The_Day + 22 The_Month = 7 The_Year = The_Year + 621 Case 10 To 31: The_Day = The_Day - 9 The_Month = 8 The_Year = The_Year + 621 End SelectCase 6: Select Case The_Day Case 1 To 9: The_Day = The_Day + 22 The_Month = 8 The_Year = The_Year + 621 Case 10 To 31: The_Day = The_Day - 9 The_Month = 9 The_Year = The_Year + 621 End SelectCase 7: Select Case The_Day Case 1 To 8: The_Day = The_Day + 22 The_Month = 9 The_Year = The_Year + 621 Case 9 To 30: The_Day = The_Day - 8 The_Month = 10 The_Year = The_Year + 621 End SelectCase 8: Select Case The_Day Case 1 To 9: The_Day = The_Day + 22 The_Month = 10 The_Year = The_Year + 621 Case 10 To 30: The_Day = The_Day - 9 The_Month = 11 The_Year = The_Year + 621 End SelectCase 9: Select Case The_Day Case 1 To 9: The_Day = The_Day + 21 The_Month = 11 The_Year = The_Year + 621 Case 10 To 30: The_Day = The_Day - 9 The_Month = 12 The_Year = The_Year + 621 End SelectCase 10: Select Case The_Day Case 1 To 10: The_Day = The_Day + 21 The_Month = 12 The_Year = The_Year + 621 Case 11 To 30: The_Day = The_Day - 10 The_Month = 1 The_Year = The_Year + 622 End SelectCase 11: Select Case The_Day Case 1 To 11: The_Day = The_Day + 20 The_Month = 1 The_Year = The_Year + 622 Case 12 To 30: The_Day = The_Day - 11 The_Month = 2 The_Year = The_Year + 622 End SelectCase 12: Select Case The_Day Case 1 To 9: The_Day = The_Day + 19 The_Month = 2 The_Year = The_Year + 622 Case 10 To 30: The_Day = The_Day - 9 The_Month = 3 The_Year = The_Year + 622 End SelectEnd SelectEnd If'------------------------------------------------------------------------------------------------------------------------If The_Select = 2 Then 'Like : 1362, 1366, 1370, 1374, 1378, 1382, 1386, ...Select Case The_MonthCase 1: Select Case The_Day Case 1 To 11: The_Day = The_Day + 20 The_Month = 3 The_Year = The_Year + 621 Case 12 To 31: The_Day = The_Day - 11 The_Month = 4 The_Year = The_Year + 621 End SelectCase 2: Select Case The_Day Case 1 To 10: The_Day = The_Day + 20 The_Month = 4 The_Year = The_Year + 621 Case 11 To 31: The_Day = The_Day - 10 The_Month = 5 The_Year = The_Year + 621 End SelectCase 3: Select Case The_Day Case 1 To 10: The_Day = The_Day + 21 The_Month = 5 The_Year = The_Year + 621 Case 11 To 31: The_Day = The_Day - 10 The_Month = 6 The_Year = The_Year + 621 End SelectCase 4: Select Case The_Day Case 1 To 9: The_Day = The_Day + 21 The_Month = 6 The_Year = The_Year + 621 Case 10 To 31: The_Day = The_Day - 9 The_Month = 7 The_Year = The_Year + 621 End SelectCase 5: Select Case The_Day Case 1 To 9: The_Day = The_Day + 22 The_Month = 7 The_Year = The_Year + 621 Case 10 To 31: The_Day = The_Day - 9 The_Month = 8 The_Year = The_Year + 621 End SelectCase 6: Select Case The_Day Case 1 To 9: The_Day = The_Day + 22 The_Month = 8 The_Year = The_Year + 621 Case 10 To 31: The_Day = The_Day - 9 The_Month = 9 The_Year = The_Year + 621 End SelectCase 7: Select Case The_Day Case 1 To 8: The_Day = The_Day + 22 The_Month = 9 The_Year = The_Year + 621 Case 9 To 30: The_Day = The_Day - 8 The_Month = 10 The_Year = The_Year + 621 End SelectCase 8: Select Case The_Day Case 1 To 9: The_Day = The_Day + 22 The_Month = 10 The_Year = The_Year + 621 Case 10 To 30: The_Day = The_Day - 9 The_Month = 11 The_Year = The_Year + 621 End SelectCase 9: Select Case The_Day Case 1 To 9: The_Day = The_Day + 21 The_Month = 11 The_Year = The_Year + 621 Case 10 To 30: The_Day = The_Day - 9 The_Month = 12 The_Year = The_Year + 621 End SelectCase 10: Select Case The_Day Case 1 To 10: The_Day = The_Day + 21 The_Month = 12 The_Year = The_Year + 621 Case 11 To 30: The_Day = The_Day - 10 The_Month = 1 The_Year = The_Year + 622 End SelectCase 11: Select Case The_Day Case 1 To 11: The_Day = The_Day + 20 The_Month = 1 The_Year = The_Year + 622 Case 12 To 30: The_Day = The_Day - 11 The_Month = 2 The_Year = The_Year + 622 End SelectCase 12: Select Case The_Day Case 1 To 10: The_Day = The_Day + 19 The_Month = 2 The_Year = The_Year + 622 Case 11 To 30: The_Day = The_Day - 10 The_Month = 3 The_Year = The_Year + 622 End SelectEnd SelectEnd If'------------------------------------------------------------------------------------------------------------------------If The_Select = 3 Then 'Like : 1363, 1367, 1371, 1375, 1379, 1383, 1387, ...Select Case The_MonthCase 1: Select Case The_Day Case 1 To 12: The_Day = The_Day + 19 The_Month = 3 The_Year = The_Year + 621 Case 13 To 31: The_Day = The_Day - 12 The_Month = 4 The_Year = The_Year + 621 End SelectCase 2: Select Case The_Day Case 1 To 11: The_Day = The_Day + 19 The_Month = 4 The_Year = The_Year + 621 Case 12 To 31: The_Day = The_Day - 11 The_Month = 5 The_Year = The_Year + 621 End SelectCase 3: Select Case The_Day Case 1 To 11: The_Day = The_Day + 20 The_Month = 5 The_Year = The_Year + 621 Case 12 To 31: The_Day = The_Day - 11 The_Month = 6 The_Year = The_Year + 621 End SelectCase 4: Select Case The_Day Case 1 To 10: The_Day = The_Day + 20 The_Month = 6 The_Year = The_Year + 621 Case 11 To 31: The_Day = The_Day - 10 The_Month = 7 The_Year = The_Year + 621 End SelectCase 5: Select Case The_Day Case 1 To 10: The_Day = The_Day + 21 The_Month = 7 The_Year = The_Year + 621 Case 11 To 31: The_Day = The_Day - 10 The_Month = 8 The_Year = The_Year + 621 End SelectCase 6: Select Case The_Day Case 1 To 10: The_Day = The_Day + 21 The_Month = 8 The_Year = The_Year + 621 Case 11 To 31: The_Day = The_Day - 10 The_Month = 9 The_Year = The_Year + 621 End SelectCase 7: Select Case The_Day Case 1 To 9: The_Day = The_Day + 21 The_Month = 9 The_Year = The_Year + 621 Case 10 To 30: The_Day = The_Day - 9 The_Month = 10 The_Year = The_Year + 621 End SelectCase 8: Select Case The_Day Case 1 To 10: The_Day = The_Day + 21 The_Month = 10 The_Year = The_Year + 621 Case 11 To 30: The_Day = The_Day - 10 The_Month = 11 The_Year = The_Year + 621 End SelectCase 9: Select Case The_Day Case 1 To 10: The_Day = The_Day + 20 The_Month = 11 The_Year = The_Year + 621 Case 11 To 30: The_Day = The_Day - 10 The_Month = 12 The_Year = The_Year + 621 End SelectCase 10: Select Case The_Day Case 1 To 11: The_Day = The_Day + 20 The_Month = 12 The_Year = The_Year + 621 Case 12 To 30: The_Day = The_Day - 11 The_Month = 1 The_Year = The_Year + 622 End SelectCase 11: Select Case The_Day Case 1 To 12: The_Day = The_Day + 19 The_Month = 1 The_Year = The_Year + 622 Case 13 To 30: The_Day = The_Day - 12 The_Month = 2 The_Year = The_Year + 622 End SelectCase 12: Select Case The_Day Case 1 To 10: The_Day = The_Day + 18 The_Month = 2 The_Year = The_Year + 622 Case 11 To 30: The_Day = The_Day - 10 The_Month = 3 The_Year = The_Year + 622 End SelectEnd SelectEnd If'------------------------------------------------------------------------------------------------------------------------En_Date = Format(CStr(The_Month), "00") & "/" & _ Format(CStr(The_Day), "00") & "/" & _ Format(CStr(The_Year), "0000")End Function__________________
<< قوانین سایت (http://www.barnamenevis.org/forum/showthread.php?p=153613#post153613)>>

بهرنگ نوروزی

دوشنبه 14 خرداد 1386, 16:29 عصر

Public Function Fa_Day(En_Date As String) As StringSelect Case Weekday(En_Date)Case 1 Fa_Day = "یکشنبه"Case 2 Fa_Day = "دوشنبه"Case 3 Fa_Day = "سه شنبه"Case 4 Fa_Day = "چهارشنبه"Case 5 Fa_Day = "پنجشنبه"Case 6 Fa_Day = "جمعه"Case 7 Fa_Day = "شنبه"End SelectEnd FunctionPublic Function Fa_Date(En_Date As String) As StringDim The_Select As IntegerDim The_Year As IntegerDim The_Month As IntegerDim The_Day As IntegerThe_Year = CInt(Mid(En_Date, 7, 4))The_Month = CInt(Mid(En_Date, 1, 2))The_Day = CInt(Mid(En_Date, 4, 2))If (The_Year Mod 4 = 0) Then The_Select = 1Else The_Select = 2End IfIf ((The_Year - 1) Mod 4 = 0) Then The_Select = 3End IfIf The_Select = 1 Then'------------------------------------------------------Select Case The_MonthCase 1: Select Case The_Day Case 1 To 20: The_Day = The_Day + 10 The_Month = 10 The_Year = The_Year - 622 Case 21 To 31: The_Day = The_Day - 20 The_Month = 11 The_Year = The_Year - 622 End SelectCase 2: Select Case The_Day Case 1 To 19: The_Day = The_Day + 11 The_Month = 11 The_Year = The_Year - 622 Case 20 To 29: The_Day = The_Day - 19 The_Month = 12 The_Year = The_Year - 622 End SelectCase 3: Select Case The_Day Case 1 To 19: The_Day = The_Day + 10 The_Month = 12 The_Year = The_Year - 622 Case 20 To 31: The_Day = The_Day - 19 The_Month = 1 The_Year = The_Year - 621 End SelectCase 4: Select Case The_Day Case 1 To 19: The_Day = The_Day + 12 The_Month = 1 The_Year = The_Year - 621 Case 20 To 30: The_Day = The_Day - 19 The_Month = 2 The_Year = The_Year - 621 End SelectCase 5: Select Case The_Day Case 1 To 20: The_Day = The_Day + 11 The_Month = 2 The_Year = The_Year - 621 Case 21 To 31: The_Day = The_Day - 20 The_Month = 3 The_Year = The_Year - 621 End SelectCase 6: Select Case The_Day Case 1 To 20: The_Day = The_Day + 11 The_Month = 3 The_Year = The_Year - 621 Case 21 To 30: The_Day = The_Day - 20 The_Month = 4 The_Year = The_Year - 621 End SelectCase 7: Select Case The_Day Case 1 To 21: The_Day = The_Day + 10 The_Month = 4 The_Year = The_Year - 621 Case 22 To 31: The_Day = The_Day - 21 The_Month = 5 The_Year = The_Year - 621 End SelectCase 8: Select Case The_Day Case 1 To 21: The_Day = The_Day + 10 The_Month = 5 The_Year = The_Year - 621 Case 22 To 31: The_Day = The_Day - 21 The_Month = 6 The_Year = The_Year - 621 End SelectCase 9: Select Case The_Day Case 1 To 21: The_Day = The_Day + 10 The_Month = 6 The_Year = The_Year - 621 Case 22 To 30: The_Day = The_Day - 21 The_Month = 7 The_Year = The_Year - 621 End SelectCase 10: Select Case The_Day Case 1 To 21: The_Day = The_Day + 9 The_Month = 7 The_Year = The_Year - 621 Case 22 To 31: The_Day = The_Day - 21 The_Month = 8 The_Year = The_Year - 621 End SelectCase 11: Select Case The_Day Case 1 To 20: The_Day = The_Day + 10 The_Month = 8 The_Year = The_Year - 621 Case 21 To 30: The_Day = The_Day - 20 The_Month = 9 The_Year = The_Year - 621 End SelectCase 12: Select Case The_Day Case 1 To 20: The_Day = The_Day + 10 The_Month = 9 The_Year = The_Year - 621 Case 21 To 31: The_Day = The_Day - 20 The_Month = 10 The_Year = The_Year - 621 End SelectEnd Select'------------------------------------------------------End IfIf The_Select = 2 Then'------------------------------------------------------Select Case The_MonthCase 1: Select Case The_Day Case 1 To 20: The_Day = The_Day + 10 The_Month = 10 The_Year = The_Year - 622 Case 21 To 31: The_Day = The_Day - 20 The_Month = 11 The_Year = The_Year - 622 End SelectCase 2: Select Case The_Day Case 1 To 19: The_Day = The_Day + 11 The_Month = 11 The_Year = The_Year - 622 Case 19 To 28: The_Day = The_Day - 19 The_Month = 12 The_Year = The_Year - 622 End SelectCase 3: Select Case The_Day Case 1 To 20: The_Day = The_Day + 9 The_Month = 12 The_Year = The_Year - 622 Case 21 To 31: The_Day = The_Day - 20 The_Month = 1 The_Year = The_Year - 621 End SelectCase 4: Select Case The_Day Case 1 To 20: The_Day = The_Day + 11 The_Month = 1 The_Year = The_Year - 621 Case 21 To 30: The_Day = The_Day - 20 The_Month = 2 The_Year = The_Year - 621 End SelectCase 5: Select Case The_Day Case 1 To 21: The_Day = The_Day + 10 The_Month = 2 The_Year = The_Year - 621 Case 22 To 31: The_Day = The_Day - 21 The_Month = 3 The_Year = The_Year - 621 End SelectCase 6: Select Case The_Day Case 1 To 21: The_Day = The_Day + 10 The_Month = 3 The_Year = The_Year - 621 Case 22 To 30: The_Day = The_Day - 21 The_Month = 4 The_Year = The_Year - 621 End SelectCase 7: Select Case The_Day Case 1 To 22: The_Day = The_Day + 9 The_Month = 4 The_Year = The_Year - 621 Case 23 To 31: The_Day = The_Day - 22 The_Month = 5 The_Year = The_Year - 621 End SelectCase 8: Select Case The_Day Case 1 To 22: The_Day = The_Day + 9 The_Month = 5 The_Year = The_Year - 621 Case 23 To 31: The_Day = The_Day - 22 The_Month = 6 The_Year = The_Year - 621 End SelectCase 9: Select Case The_Day Case 1 To 22: The_Day = The_Day + 9 The_Month = 6 The_Year = The_Year - 621 Case 23 To 30: The_Day = The_Day - 22 The_Month = 7 The_Year = The_Year - 621 End SelectCase 10: Select Case The_Day Case 1 To 22: The_Day = The_Day + 8 The_Month = 7 The_Year = The_Year - 621 Case 23 To 31: The_Day = The_Day - 22 The_Month = 8 The_Year = The_Year - 621 End SelectCase 11: Select Case The_Day Case 1 To 21: The_Day = The_Day + 9 The_Month = 8 The_Year = The_Year - 621 Case 22 To 30: The_Day = The_Day - 21 The_Month = 9 The_Year = The_Year - 621 End SelectCase 12: Select Case The_Day Case 1 To 21: The_Day = The_Day + 9 The_Month = 9 The_Year = The_Year - 621 Case 22 To 31: The_Day = The_Day - 21 The_Month = 10 The_Year = The_Year - 621 End SelectEnd Select'------------------------------------------------------End IfIf The_Select = 3 Then'------------------------------------------------------Select Case The_MonthCase 1: Select Case The_Day Case 1 To 19: The_Day = The_Day + 11 The_Month = 10 The_Year = The_Year - 622 Case 20 To 31: The_Day = The_Day - 19 The_Month = 11 The_Year = The_Year - 622 End SelectCase 2: Select Case The_Day Case 1 To 18: The_Day = The_Day + 12 The_Month = 11 The_Year = The_Year - 622 Case 19 To 28: The_Day = The_Day - 18 The_Month = 12 The_Year = The_Year - 622 End SelectCase 3: Select Case The_Day Case 1 To 20: The_Day = The_Day + 10 The_Month = 12 The_Year = The_Year - 622 Case 21 To 31: The_Day = The_Day - 20 The_Month = 1 The_Year = The_Year - 621 End SelectCase 4: Select Case The_Day Case 1 To 20: The_Day = The_Day + 11 The_Month = 1 The_Year = The_Year - 621 Case 21 To 30: The_Day = The_Day - 20 The_Month = 2 The_Year = The_Year - 621 End SelectCase 5: Select Case The_Day Case 1 To 21: The_Day = The_Day + 10 The_Month = 2 The_Year = The_Year - 621 Case 22 To 31: The_Day = The_Day - 21 The_Month = 3 The_Year = The_Year - 621 End SelectCase 6: Select Case The_Day Case 1 To 21: The_Day = The_Day + 10 The_Month = 3 The_Year = The_Year - 621 Case 22 To 30: The_Day = The_Day - 21 The_Month = 4 The_Year = The_Year - 621 End SelectCase 7: Select Case The_Day Case 1 To 22: The_Day = The_Day + 9 The_Month = 4 The_Year = The_Year - 621 Case 23 To 31: The_Day = The_Day - 22 The_Month = 5 The_Year = The_Year - 621 End SelectCase 8: Select Case The_Day Case 1 To 22: The_Day = The_Day + 9 The_Month = 5 The_Year = The_Year - 621 Case 23 To 31: The_Day = The_Day - 22 The_Month = 6 The_Year = The_Year - 621 End SelectCase 9: Select Case The_Day Case 1 To 22: The_Day = The_Day + 9 The_Month = 6 The_Year = The_Year - 621 Case 23 To 30: The_Day = The_Day - 22 The_Month = 7 The_Year = The_Year - 621 End SelectCase 10: Select Case The_Day Case 1 To 22: The_Day = The_Day + 8 The_Month = 7 The_Year = The_Year - 621 Case 23 To 31: The_Day = The_Day - 22 The_Month = 8 The_Year = The_Year - 621 End SelectCase 11: Select Case The_Day Case 1 To 21: The_Day = The_Day + 9 The_Month = 8 The_Year = The_Year - 621 Case 22 To 30: The_Day = The_Day - 21 The_Month = 9 The_Year = The_Year - 621 End SelectCase 12: Select Case The_Day Case 1 To 21: The_Day = The_Day + 9 The_Month = 9 The_Year = The_Year - 621 Case 22 To 31: The_Day = The_Day - 21 The_Month = 10 The_Year = The_Year - 621 End SelectEnd Select'------------------------------------------------------End IfFa_Date = Format(CStr(The_Year), "0000") & "/" & _ Format(CStr(The_Month), "00") & "/" & _ Format(CStr(The_Day), "00")End FunctionPublic Function En_Date(Fa_Date As String) As StringDim The_Year As IntegerDim The_Month As IntegerDim The_Day As IntegerThe_Year = CInt(Mid(Fa_Date, 1, 4))The_Month = CInt(Mid(Fa_Date, 6, 2))The_Day = CInt(Mid(Fa_Date, 9, 2))Dim The_Select As IntegerThe_Select = The_Year Mod 4'------------------------------------------------------------------------------------------------------------------------If The_Select = 0 Then 'Like : 1360, 1364, 1368, 1372, 1376, 1380, 1384, ...Select Case The_MonthCase 1: Select Case The_Day Case 1 To 11: The_Day = The_Day + 20 The_Month = 3 The_Year = The_Year + 621 Case 12 To 31: The_Day = The_Day - 11 The_Month = 4 The_Year = The_Year + 621 End SelectCase 2: Select Case The_Day Case 1 To 10: The_Day = The_Day + 20 The_Month = 4 The_Year = The_Year + 621 Case 11 To 31: The_Day = The_Day - 10 The_Month = 5 The_Year = The_Year + 621 End SelectCase 3: Select Case The_Day Case 1 To 10: The_Day = The_Day + 21 The_Month = 5 The_Year = The_Year + 621 Case 11 To 31: The_Day = The_Day - 10 The_Month = 6 The_Year = The_Year + 621 End SelectCase 4: Select Case The_Day Case 1 To 9: The_Day = The_Day + 21 The_Month = 6 The_Year = The_Year + 621 Case 10 To 31: The_Day = The_Day - 9 The_Month = 7 The_Year = The_Year + 621 End SelectCase 5: Select Case The_Day Case 1 To 9: The_Day = The_Day + 22 The_Month = 7 The_Year = The_Year + 621 Case 10 To 31: The_Day = The_Day - 9 The_Month = 8 The_Year = The_Year + 621 End SelectCase 6: Select Case The_Day Case 1 To 9: The_Day = The_Day + 22 The_Month = 8 The_Year = The_Year + 621 Case 10 To 31: The_Day = The_Day - 9 The_Month = 9 The_Year = The_Year + 621 End SelectCase 7: Select Case The_Day Case 1 To 8: The_Day = The_Day + 22 The_Month = 9 The_Year = The_Year + 621 Case 9 To 30: The_Day = The_Day - 8 The_Month = 10 The_Year = The_Year + 621 End SelectCase 8: Select Case The_Day Case 1 To 9: The_Day = The_Day + 22 The_Month = 10 The_Year = The_Year + 621 Case 10 To 30: The_Day = The_Day - 9 The_Month = 11 The_Year = The_Year + 621 End SelectCase 9: Select Case The_Day Case 1 To 9: The_Day = The_Day + 21 The_Month = 11 The_Year = The_Year + 621 Case 10 To 30: The_Day = The_Day - 9 The_Month = 12 The_Year = The_Year + 621 End SelectCase 10: Select Case The_Day Case 1 To 10: The_Day = The_Day + 21 The_Month = 12 The_Year = The_Year + 621 Case 11 To 30: The_Day = The_Day - 10 The_Month = 1 The_Year = The_Year + 622 End SelectCase 11: Select Case The_Day Case 1 To 11: The_Day = The_Day + 20 The_Month = 1 The_Year = The_Year + 622 Case 12 To 30: The_Day = The_Day - 11 The_Month = 2 The_Year = The_Year + 622 End SelectCase 12: Select Case The_Day Case 1 To 9: The_Day = The_Day + 19 The_Month = 2 The_Year = The_Year + 622 Case 10 To 30: The_Day = The_Day - 9 The_Month = 3 The_Year = The_Year + 622 End SelectEnd SelectEnd If'------------------------------------------------------------------------------------------------------------------------If The_Select = 1 Then 'Like : 1361, 1365, 1369, 1373, 1377, 1381, 1385, ...Select Case The_MonthCase 1: Select Case The_Day Case 1 To 11: The_Day = The_Day + 20 The_Month = 3 The_Year = The_Year + 621 Case 12 To 31: The_Day = The_Day - 11 The_Month = 4 The_Year = The_Year + 621 End SelectCase 2: Select Case The_Day Case 1 To 10: The_Day = The_Day + 20 The_Month = 4 The_Year = The_Year + 621 Case 11 To 31: The_Day = The_Day - 10 The_Month = 5 The_Year = The_Year + 621 End SelectCase 3: Select Case The_Day Case 1 To 10: The_Day = The_Day + 22 The_Month = 5 The_Year = The_Year + 621 Case 11 To 31: The_Day = The_Day - 10 The_Month = 6 The_Year = The_Year + 621 End SelectCase 4: Select Case The_Day Case 1 To 9: The_Day = The_Day + 21 The_Month = 6 The_Year = The_Year + 621 Case 10 To 31: The_Day = The_Day - 9 The_Month = 7 The_Year = The_Year + 621 End SelectCase 5: Select Case The_Day Case 1 To 9: The_Day = The_Day + 22 The_Month = 7 The_Year = The_Year + 621 Case 10 To 31: The_Day = The_Day - 9 The_Month = 8 The_Year = The_Year + 621 End SelectCase 6: Select Case The_Day Case 1 To 9: The_Day = The_Day + 22 The_Month = 8 The_Year = The_Year + 621 Case 10 To 31: The_Day = The_Day - 9 The_Month = 9 The_Year = The_Year + 621 End SelectCase 7: Select Case The_Day Case 1 To 8: The_Day = The_Day + 22 The_Month = 9 The_Year = The_Year + 621 Case 9 To 30: The_Day = The_Day - 8 The_Month = 10 The_Year = The_Year + 621 End SelectCase 8: Select Case The_Day Case 1 To 9: The_Day = The_Day + 22 The_Month = 10 The_Year = The_Year + 621 Case 10 To 30: The_Day = The_Day - 9 The_Month = 11 The_Year = The_Year + 621 End SelectCase 9: Select Case The_Day Case 1 To 9: The_Day = The_Day + 21 The_Month = 11 The_Year = The_Year + 621 Case 10 To 30: The_Day = The_Day - 9 The_Month = 12 The_Year = The_Year + 621 End SelectCase 10: Select Case The_Day Case 1 To 10: The_Day = The_Day + 21 The_Month = 12 The_Year = The_Year + 621 Case 11 To 30: The_Day = The_Day - 10 The_Month = 1 The_Year = The_Year + 622 End SelectCase 11: Select Case The_Day Case 1 To 11: The_Day = The_Day + 20 The_Month = 1 The_Year = The_Year + 622 Case 12 To 30: The_Day = The_Day - 11 The_Month = 2 The_Year = The_Year + 622 End SelectCase 12: Select Case The_Day Case 1 To 9: The_Day = The_Day + 19 The_Month = 2 The_Year = The_Year + 622 Case 10 To 30: The_Day = The_Day - 9 The_Month = 3 The_Year = The_Year + 622 End SelectEnd SelectEnd If'------------------------------------------------------------------------------------------------------------------------If The_Select = 2 Then 'Like : 1362, 1366, 1370, 1374, 1378, 1382, 1386, ...Select Case The_MonthCase 1: Select Case The_Day Case 1 To 11: The_Day = The_Day + 20 The_Month = 3 The_Year = The_Year + 621 Case 12 To 31: The_Day = The_Day - 11 The_Month = 4 The_Year = The_Year + 621 End SelectCase 2: Select Case The_Day Case 1 To 10: The_Day = The_Day + 20 The_Month = 4 The_Year = The_Year + 621 Case 11 To 31: The_Day = The_Day - 10 The_Month = 5 The_Year = The_Year + 621 End SelectCase 3: Select Case The_Day Case 1 To 10: The_Day = The_Day + 21 The_Month = 5 The_Year = The_Year + 621 Case 11 To 31: The_Day = The_Day - 10 The_Month = 6 The_Year = The_Year + 621 End SelectCase 4: Select Case The_Day Case 1 To 9: The_Day = The_Day + 21 The_Month = 6 The_Year = The_Year + 621 Case 10 To 31: The_Day = The_Day - 9 The_Month = 7 The_Year = The_Year + 621 End SelectCase 5: Select Case The_Day Case 1 To 9: The_Day = The_Day + 22 The_Month = 7 The_Year = The_Year + 621 Case 10 To 31: The_Day = The_Day - 9 The_Month = 8 The_Year = The_Year + 621 End SelectCase 6: Select Case The_Day Case 1 To 9: The_Day = The_Day + 22 The_Month = 8 The_Year = The_Year + 621 Case 10 To 31: The_Day = The_Day - 9 The_Month = 9 The_Year = The_Year + 621 End SelectCase 7: Select Case The_Day Case 1 To 8: The_Day = The_Day + 22 The_Month = 9 The_Year = The_Year + 621 Case 9 To 30: The_Day = The_Day - 8 The_Month = 10 The_Year = The_Year + 621 End SelectCase 8: Select Case The_Day Case 1 To 9: The_Day = The_Day + 22 The_Month = 10 The_Year = The_Year + 621 Case 10 To 30: The_Day = The_Day - 9 The_Month = 11 The_Year = The_Year + 621 End SelectCase 9: Select Case The_Day Case 1 To 9: The_Day = The_Day + 21 The_Month = 11 The_Year = The_Year + 621 Case 10 To 30: The_Day = The_Day - 9 The_Month = 12 The_Year = The_Year + 621 End SelectCase 10: Select Case The_Day Case 1 To 10: The_Day = The_Day + 21 The_Month = 12 The_Year = The_Year + 621 Case 11 To 30: The_Day = The_Day - 10 The_Month = 1 The_Year = The_Year + 622 End SelectCase 11: Select Case The_Day Case 1 To 11: The_Day = The_Day + 20 The_Month = 1 The_Year = The_Year + 622 Case 12 To 30: The_Day = The_Day - 11 The_Month = 2 The_Year = The_Year + 622 End SelectCase 12: Select Case The_Day Case 1 To 10: The_Day = The_Day + 19 The_Month = 2 The_Year = The_Year + 622 Case 11 To 30: The_Day = The_Day - 10 The_Month = 3 The_Year = The_Year + 622 End SelectEnd SelectEnd If'------------------------------------------------------------------------------------------------------------------------If The_Select = 3 Then 'Like : 1363, 1367, 1371, 1375, 1379, 1383, 1387, ...Select Case The_MonthCase 1: Select Case The_Day Case 1 To 12: The_Day = The_Day + 19 The_Month = 3 The_Year = The_Year + 621 Case 13 To 31: The_Day = The_Day - 12 The_Month = 4 The_Year = The_Year + 621 End SelectCase 2: Select Case The_Day Case 1 To 11: The_Day = The_Day + 19 The_Month = 4 The_Year = The_Year + 621 Case 12 To 31: The_Day = The_Day - 11 The_Month = 5 The_Year = The_Year + 621 End SelectCase 3: Select Case The_Day Case 1 To 11: The_Day = The_Day + 20 The_Month = 5 The_Year = The_Year + 621 Case 12 To 31: The_Day = The_Day - 11 The_Month = 6 The_Year = The_Year + 621 End SelectCase 4: Select Case The_Day Case 1 To 10: The_Day = The_Day + 20 The_Month = 6 The_Year = The_Year + 621 Case 11 To 31: The_Day = The_Day - 10 The_Month = 7 The_Year = The_Year + 621 End SelectCase 5: Select Case The_Day Case 1 To 10: The_Day = The_Day + 21 The_Month = 7 The_Year = The_Year + 621 Case 11 To 31: The_Day = The_Day - 10 The_Month = 8 The_Year = The_Year + 621 End SelectCase 6: Select Case The_Day Case 1 To 10: The_Day = The_Day + 21 The_Month = 8 The_Year = The_Year + 621 Case 11 To 31: The_Day = The_Day - 10 The_Month = 9 The_Year = The_Year + 621 End SelectCase 7: Select Case The_Day Case 1 To 9: The_Day = The_Day + 21 The_Month = 9 The_Year = The_Year + 621 Case 10 To 30: The_Day = The_Day - 9 The_Month = 10 The_Year = The_Year + 621 End SelectCase 8: Select Case The_Day Case 1 To 10: The_Day = The_Day + 21 The_Month = 10 The_Year = The_Year + 621 Case 11 To 30: The_Day = The_Day - 10 The_Month = 11 The_Year = The_Year + 621 End SelectCase 9: Select Case The_Day Case 1 To 10: The_Day = The_Day + 20 The_Month = 11 The_Year = The_Year + 621 Case 11 To 30: The_Day = The_Day - 10 The_Month = 12 The_Year = The_Year + 621 End SelectCase 10: Select Case The_Day Case 1 To 11: The_Day = The_Day + 20 The_Month = 12 The_Year = The_Year + 621 Case 12 To 30: The_Day = The_Day - 11 The_Month = 1 The_Year = The_Year + 622 End SelectCase 11: Select Case The_Day Case 1 To 12: The_Day = The_Day + 19 The_Month = 1 The_Year = The_Year + 622 Case 13 To 30: The_Day = The_Day - 12 The_Month = 2 The_Year = The_Year + 622 End SelectCase 12: Select Case The_Day Case 1 To 10: The_Day = The_Day + 18 The_Month = 2 The_Year = The_Year + 622 Case 11 To 30: The_Day = The_Day - 10 The_Month = 3 The_Year = The_Year + 622 End SelectEnd SelectEnd If'------------------------------------------------------------------------------------------------------------------------En_Date = Format(CStr(The_Month), "00") & "/" & _ Format(CStr(The_Day), "00") & "/" & _ Format(CStr(The_Year), "0000")End Function__________________

Hossein Bazyan

دوشنبه 14 خرداد 1386, 17:31 عصر

سلام
خدائیش خودت میتونی بخونی !
برای وارد کردن کد در قسمت ویرایشگر روی آیکون قرار دادن CODE کلیک کن و کدت را بنویس

Public Function Fa_Day(En_Date As String) As String
Select Case Weekday(En_Date)
Case 1
Fa_Day = "??????"
Case 2
Fa_Day = "??????"
Case 3
Fa_Day = "?? ????"
Case 4
Fa_Day = "????????"
Case 5
Fa_Day = "???????"
Case 6
Fa_Day = "????"
Case 7
Fa_Day = "????"
End SelectEnd
End Function

Public Function Fa_Date(En_Date As String) 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(Mid(En_Date, 7, 4))
The_Month = CInt(Mid(En_Date, 1, 2))
The_Day = CInt(Mid(En_Date, 4, 2))
If (The_Year Mod 4 = 0) Then
The_Select = 1
Else The_Select = 2
End If
If ((The_Year - 1) Mod 4 = 0) Then
The_Select = 3
End If
If The_Select = 1 Then
'------------------------------------------------------
Select Case The_Month
Case 1:
Select Case The_Day
Case 1 To 20:
The_Day = The_Day + 10
The_Month = 10
The_Year = The_Year - 622
Case 21 To 31:
The_Day = The_Day - 20
The_Month = 11
The_Year = The_Year - 622
End Select
Case 2:
Select Case The_Day
Case 1 To 19:
The_Day = The_Day + 11
The_Month = 11
The_Year = The_Year - 622
Case 20 To 29:
The_Day = The_Day - 19
The_Month = 12
The_Year = The_Year - 622
End Select
Case 3: Select Case The_Day
Case 1 To 19:
The_Day = The_Day + 10
The_Month = 12
The_Year = The_Year - 622
Case 20 To 31:
The_Day = The_Day - 19
The_Month = 1
The_Year = The_Year - 621
End Select
Case 4:
Select Case The_Day
Case 1 To 19:
The_Day = The_Day + 12
The_Month = 1
The_Year = The_Year - 621
Case 20 To 30:
The_Day = The_Day - 19
The_Month = 2
The_Year = The_Year - 621
End Select
Case 5:
Select Case The_Day
Case 1 To 20:
The_Day = The_Day + 11
The_Month = 2
The_Year = The_Year - 621
Case 21 To 31:
The_Day = The_Day - 20
The_Month = 3
The_Year = The_Year - 621
End Select
Case 6:
Select Case The_Day
Case 1 To 20:
The_Day = The_Day + 11
The_Month = 3
The_Year = The_Year - 621
Case 21 To 30:
The_Day = The_Day - 20
The_Month = 4
The_Year = The_Year - 621
End Select
Case 7:
Select Case The_Day
Case 1 To 21:
The_Day = The_Day + 10
The_Month = 4
The_Year = The_Year - 621
Case 22 To 31:
The_Day = The_Day - 21
The_Month = 5
The_Year = The_Year - 621
End Select
Case 8:
Select Case The_Day
Case 1 To 21:
The_Day = The_Day + 10
The_Month = 5
The_Year = The_Year - 621
Case 22 To 31:
The_Day = The_Day - 21
The_Month = 6
The_Year = The_Year - 621
End Select
Case 9:
Select Case The_Day
Case 1 To 21:
The_Day = The_Day + 10
The_Month = 6
The_Year = The_Year - 621
Case 22 To 30:
The_Day = The_Day - 21
The_Month = 7
The_Year = The_Year - 621
End Select
Case 10:
Select Case The_Day
Case 1 To 21:
The_Day = The_Day + 9
The_Month = 7
The_Year = The_Year - 621
Case 22 To 31:
The_Day = The_Day - 21
The_Month = 8
The_Year = The_Year - 621
End Select
Case 11:
Select Case The_Day
Case 1 To 20:
The_Day = The_Day + 10
The_Month = 8
The_Year = The_Year - 621
Case 21 To 30:
The_Day = The_Day - 20
The_Month = 9
The_Year = The_Year - 621
End Select
Case 12:
Select Case The_Day
Case 1 To 20:
The_Day = The_Day + 10
The_Month = 9
The_Year = The_Year - 621
Case 21 To 31:
The_Day = The_Day - 20
The_Month = 10
The_Year = The_Year - 621
End Select
End Select
'------------------------------------------------------
End If

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