کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی
کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی

کبیسه گیری قمری

گاه شمار قمریhttps://fa.m.wikipedia.org/wiki/گاه‌شماری_هجری_قمری 

 از شکافتن هسته ی اتم هم ساده تر است اگر تلاش کنید محتاج چون منی نخواهید بود ( امام خمینی ره )

قسمت گاه شماری هجری قمری قراردادی  جدول مربوطه ( رایج )

طبق رایج ... تعداد روزهای ماه های قمری یکی در میان ۲۹ یا ۳۰ روزه هستند و از ۲۹ روز شروع میشود اگر سال کبیسه بود ماه آخر بجای ۳۰ روزه ۲۹ روزه میشود  با Mod میشود تعداد روزهای ماه قمری را مشخص کرد در لوپی که مانده باید از روزهای قمری کم شود 

فرضا  i mod 2  اگر صفرشود ماه ۳۰ روزه واگر یک شود ماه ۲۹ روزه است 

تبدیل میلادی به قمری  :    ۲۶ می ۲۰۱۹ معادل ۵ خرداد ۹۸

اختلاف را با DateDiff اکسس میشود بدست آورد از ۱۹ جولای ۶۲۲ تا تاریخ میلادی درج شده .( روز اول در تابع DateDiff ثابت است ) 

که در اینجا اختلاف روزها  را ۵۱۰۱۹۰ نشان میدهد 

معادله البته اگر عدد منفی شد به سال بدست آمده اضافه نمیشود

سال را منهای یک کرده و در ۳۵۴ ضرب می کنیم تعداد کبیسه که اینجا ۵۲۸ است مربوط به یک قمری تا سال ۱۴۳۹ است ( ۳۵۴ جمع روزهای یکسال قمری در شرایط غیر کبیسه است )

۹۷-=۵۲۸-(۱۴۳۹×۳۵۴)-(۵۱۰۱۹۰-۳۵۳)

عدد منفی شده با ۳۵۳ جمع میکنیم ( عدد ۳۵۳ اختلاف روز یک قمری تا آخرماه همان سال است )

سال همان ۱۴۴۰ باقی می ماند 

عدد آخر ۲۵۶ بدست می آید 

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

۲۰=۲۵۶-۲۹-۳۰-۲۹-۳۰-۲۹-۳۰-۲۹-۳۰

خود تقویم  سال ۹۸ یکشنبه ۵ اردیبهشت ۹۸ را ۲۱ رمضان چاپ کرده

نظرات 0 + ارسال نظر
برای نمایش آواتار خود در این وبلاگ در سایت Gravatar.com ثبت نام کنید. (راهنما)
ایمیل شما بعد از ثبت نمایش داده نخواهد شد