ارائه تقویم شمسی برای اکسس
با سلام،
استفاده از تقویم شمسی برای کاربران مجوعه آفیس امری بسیار ضروری به نظر میرسه و همان طور که میدونیم مایکروسافت تا بحال (تا جایی که من اطلاع دارم) فکری در این زمینه نکرده. معروفترین نرم افزار موجود برای تبدیل به تقویم شمسی، نرم افزار Edsoft Jalali Multi pack هست (
کد:
http://www.edsoftline.com/jalmultipack.htm
) که برای استفاده از اون باید هزینه ای رو متقبل شد ( که به نظر من ارزشش رو داره مخصوصا برای کسی که با چند برنامه از مجموعه آفیس کار داشته باشه). دیگه نرم افزار رایگان پرنیان هست که (در خصوص برنامه اکسس عرض میکنم) جهت نمایش تاریخ به هجری شمسی میشه ازش استفاده کرد ولی هنگام کار با توابع مخصوص تاریخ، کارایی نداره. یک راه کاری هم در پست :
کد:
http://forum.p30world.com/showpost.php?p=3174259&postcount=529
اشاره شده که بنده هم مدتی ازش استفاده کردم. دو تا اشکال به نظرم داره: 1) به تاخیر انداختن زمان باز شدن فایلهای آفیس، 2) تغییر ترتیب ماه و روز هنگام وارد کردنشون، وقتی شماره روز کمتر از 13 باشه. و دیگه اینکه برنامه ای مثل ویژوال استودیو از کار میفته مگه اینکه فایل اصلی ویندوز رو سر جاش بذاری و از خیر این راه حل بگذری.
چندی پیش سورسی رو از اینترنت پیدا کدم (
کد:
http://www.vojoudi.com/vb/vb_date_per.htm
) برای تبدیل تقویم های گوناگون از جمله هجری شمسی. با افزودن چند تابع به این مجموعه ( و حذف توابع غیر ضروری) ، مجموعه ای آماده شده برای استفاده در برنامه اکسس. این توابع همون تابع های کار با تاریخ در اکسس هستند منتها برای نسخه هجری شمسی.
جهت استفاده از این بسته، بعد از وارد کردن اونا به محیط VBA پروژه مون، میتونیم ( از ماژول pCalendar ) توابع مورد نیاز رو استفاده کنیم. تنها ضروریه که نوع فیلد تاریخ در جداول رو Text انتخاب کنیم. تاریخ ها میتونن به شکل 27/11/1388 یا 1388/11/27 باشن ( شماره سال باید بطور کامل وارد بشه) . توابع در دسترس عبارتند از ( به اول نام تابع حرف p اضافه شده برای تمایز اون از تابع اصلی، که مخفف persian هست) :
pDay , pMonth , pYear , pDate , pDateAdd , pDateDiff , pDatePart , pDateSerial , pWeekDay , pWeekDayName , pMonthName
همچنین توابع تبدیل تاریخ هم جهت استفاده موجود هستند:
persian2islamic , islamic2persian , persian2civil , civil2persian ,ToPersian . (منظور از civil همون تقویم Gregorian هست)
خواهشمندم چنانچه از این بسته استفاده کردید و به مشکلی برخورد کردید به اطلاع برسانید تا کارایی اون جهت استفاده دیگران هم بهبود پیدا کنه. این هم نسخه 1.0.8.2 این مجموعه:
کد:
http://www.4shared.com/file/8PHtkQhA/Persian_Calendar_1082.html
------------------------------------------------------------------------------------------------------------------------
توضیحات مربوط به نسخه های این برنامه:
- ( v. 1.0.2 ) فایلها اصلاح شدند و ضمن برطرف شدن چند مشکل، تابع pDate بهبود پیدا کرد.
- ( v. 1.0.3 ) مشکلاتی در توابع، pDateAdd , pWeekDay پیدا شد که برطرف گردید. همچنین در نسخه اخیر تابعی با نام CompleteDate برای سهولت وارد کردن تاریخ و در عین حال جهت بررسی صحیح بودن مقدار وارد شده، اضافه شد. برای مثال وقتی وارد می کنیم: 24/2/89 این تابع برمیگردونه: 1389/02/24 . یا اگر ورودی به شکل 24/2 باشه خود تابع مقدار سال جاری رو به اون اضافه میکنه : 1389/02/24 . اگر ورودی یک مقدار ناصحیح برای تقویم شمسی باشه، تابع اخطار میده و اون رو قبول نمی کنه ، 1389/7/31 یا 1388/12/30 و ... نظایر اون.
برای استفاده از این تابع مثلا در فرم ها میشه برای رویداد On Lost Focus فیلد مربوط به تاریخ این طور اقدام کرد:
- در فضای VBA
کد:
Me.ActiveControl = CompleteDate(Nz(Me.ActiveControl))
- در فضای ماکروها: با استفاده از Set Value . و وارد کردن عبارت
کد:
CompleteDate(Nz(YourControlAddress))
در قسمت Expression.
v. 1.0.4 - مشکلی در تابع CompleteDate بود، که برطرف شد.
- (v. 1.0.5) یک اشتباه لپی در تابع CompleteDate برطرف گردید.
- (v. 1.0.6) رفع یک مشکل در تابع pDateAdd وقتی پارامتر مربوط به قسمت اول "m" باشه و مقدار وارد شده برای اون منفی.
- (v. 1.0.7) در این نسخه هنگام کامپایل برنامه ( و تبدیل به فرمت mde or accde ) مشکلی پیش نمیاد.
- (v. 1.0.7.2) بر طرف شدن یک مشکل که در روز آخر سال میلادی قبل متوجهش شدم که در کار برنامه اخلال ایجاد میکرد.
- (v. 1.0.8) در این نسخه ایرادی در تابع CompleteDate پیدا و برطرف شد.
- (v. 1.0.8.1) رفع ایراداتی جزئی در برنامه.
- (v. 1.0.8.2) رفع ایرادی جزئی در برنامه.
