ماژول تاریخ شمسی VBA – تبدیل تاریخ شمسی به میلادی و بلعکس

توضیحات

معرفی

ماژول تاریخ شمسی VBA ماژولی است که با کمک آن می توانید در برنامه های اکسل و اکسس خود، تبدیل تاریخ شمسی به میلادی و بلعکس را انجام دهید.
این ماژول کاملاً توسط ایران VBA برنامه نویسی و تهیه شده است. این ماژول چهار تابع دارد که در زیر توضیحات و کاربرد هر کدام را مشاهده می نمایید.

توابع موجود در ماژول تاریخ شمسی VBA

تابع JalaliKabise

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

Debug.Print JalaliKabise(1399) ==> True

تابع JalaliCalendar

این تابع تاریخ میلادی را دریافت می کند و تاریخ معادل شمسی را برمی گرداند.
این تابع دو آرگومان اجباری بنام های InputDate و returnValueType دارد، که آرگومان اول تاریخ و آرگومان دوم نوع مقدار بازگشتی تابع را مشخص می نماید و می تواند یکی از سه مقدار jcSplitArray، jcNumber و jcString باشد.
آرگومان returnValueType از نوع داده Enum تعریف شده است و بنابراین هر کجا تابع را استفاده نمایید VBA بصورت خودکار مقادیر را نمایش خواهد داد.

debug.Print JalaliCalendar(now,jcNumber) ==> 13991018

debug.Print JalaliCalendar(now,jcSplitArray) ==> 18!10!1399

debug.Print JalaliCalendar(now,jcString) ==> پنجشنبه 18 دی 1399

تابع GregorianCalendar

این تابع یک تاریخ شمسی را با فرمت عددی ۸ رقمی (بطور مثال 13991018) دریافت می نماید و می تواند دو کار انجام دهد، یک تاریخ میلادی معادل را برگرداند و دو تاریخ را بصورت قالب روز ماه، روز هفته، نام ماه و سال (بطور مثال پنجشنبه 18 دی 1399) نمایش دهد.
این تابع یک آرگومان اجباری بنام jalaliDateToGregorian دارد که اگر True باشد تابع تاریخ معادل میلادی را برمی گرداند.

debug.Print GregorianCalendar(13980101,True) ==> 21/03/2019

debug.Print GregorianCalendar(13980101,False) ==> پنجشنبه 1 فروردین 1398

تابع JCDateDiff

تابع JCDateDiff اختلاف بین دو تاریخ شمسی را به روز محاسبه می نماید. این تابع دو آرگومان اجباری به نام های firstDate و secoundDate دارد.

debug.Print JCDateDiff(13980101,13991018) ==> 658

آموزش نصب ماژول تاریخ شمسی VBA

اکسس

برای نصب ماژول تاریخ شمسی VBA در اکسس فایل را از حالت zip خارج نمایید. ویرایشگر کد VBA را در اکسس باز نمایید.

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

از منوی Insert روی File کلیک نمایید و نوع فایل را از پایین پنجره باز شده Basic Files(*.bas) انتخاب نمایید. حالا فایل را از مسیری که در آن ذخیره شده است انتخاب نمایید.

اکسل

برای نصب ماژول تاریخ شمسی VBA در اکسل از سربرگ توسعه دهنده یا Developer tab روی گزینه Visual Basic کلیک نمایید تا ویرایشگر VBA باز شود.

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

از منوی Insert روی File کلیک نمایید و نوع فایل را از پایین پنجره باز شده Basic Files(*.bas) انتخاب نمایید. حالا فایل را از مسیری که در آن ذخیره شده است انتخاب نمایید.