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

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

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

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

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

تبدیل میلادی به قمری

گاهی محاسبات بهم میریزد مثل ۷ خرداد ۱۳۹۸ که باید ۲۳ رمضان باشد ولی ۲۲ رمضان میشود چون ماه قبلی ۳۰ روزه شده  ....  


آیتم اول را اگر به ترتیب از اولین ماه قمری که 30  هست و یک درمیان 29 میشود کم کنیم تا مانده از تعداد روزهای ماه کوچکتر شود عدد 23 حاصل میشود 

2593029302930293029=23 

در این مثال می توان در ماژول نوشت اگر سال ۱۴۴۰ شد جای تعداد روزهای ماه ۸ و ماه ۹ قمری جابجاشوند تا ۲۳ رمضان به ۲۲ رمضان تبدیل شود

510,192+11,440×354528+354=259

508,161+11,434×354526+355=355

508515+1-1435×354-526+354=354

495323+1-1398×354-513+355=274

506627+1-1430×354-524+354=237

506714+1-1430×354-524+354=325

506393+1-1429×354-524=4

508870+1-1436×354-527+355=355

506743+1-1430×354-524+354=354

505,326+11,426×354523+355=355


در مثال های بالا

عدد اول اختلاف 19 جولای 622  شروع قمری و  تاریخ میلادی۱موردنظر است که به ترتیب 28 می 2019 ، 4  نوامبر 2013 ، 24 اکتبر 2014 ،11 سپتامبر  1978 ،23 اوت 2009 ، 18 نوامبر 2009 ، 1 ژانویه 2009 ، 14 اکتبر 2015 و 17 دسامبر 2009  ، 30 ژانویه 2006 می باشد


عدد دوم  : یک واحد به اختلاف اضافه می شو

 عدد سوم : حاصل ضرب 354 در ( تقسیم  جمع عدد اول و دوم

 (بر354  منهای یک است

عدد چهارم : تعداد کبیسه ی سپری شده تا عدد سوم است.

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

در جائی که عدد 354 یا 355 اضافه نشده یعنی عدد مثبت شده


لینک محاسباتhttps://keisan.casio.com/exec/system/1346122065   ذهنتون رو در گیر نکنید چون قمری هم قائده ی خاصی ندارد و دقیق ترین محاسبه باید نجومی باشد که  آنهم نمیشود مال چند 

سال دیگر را حدس زد


برای تبدیل شمسی به قمری تنها کافیه اختلاف تاریخ شمسی موردنظر تا تاریخ ۱/۱/۱ شمسی  را بدست آوردید و منهای ۱۱۹  

کنید  (  اختلاف ۲۷ تیر یک شمسی تا ۱ول  قمری ۱۱۹ است

فرضا اختلاف ۱ شمسی تا ۸ خرداد ۹۸ عدد ۵۱۰۳۱۲ عدد ۱۱۹ را که از آن کم کنیم میشود همان عدد ۵۱۰۱۹۳ و طبق مثال های بالا عمل 

میکنیم 

 : آرایه  

1 : 29 ,  2 : 59 , 3 : 89 , 4 : 118 , 5 : 148 , 6 : 177 , 7 : 207 

8 : 236 , 9 : 266 , 10 : 295 , 11 : 325 , 12 : 354 

اگر سال کبیس شد ماه آخر در آرایه یعنی ۱۲ به ۳۵۵ تغییر می یابد

: معادله

510,193+11,440×354528+354=260


چون سال ۱۴۴۰ قمری محاسبات را بهم زد و فرضا بجای ۲۳ رمضان ۲۲ رمضان شد در نتیجه در بالا می توانیم ا عداد ۸ و ۹ را عوض  کنیم  ( آرایه ی بالا  ) در مورد ۲۶۰ در حالت عادی وقتی از ۲۳۶ کم می کنیم  عدد روز قمری ۲۴ در می آید که طبق تغییرات در ماه قبل رمضان این روز ۲۳ رمضان خواهد شد نتیجتا باید در ماژول بنویسیم اگر سال ۱۴۴۰ قمری شد عدد ۸ به۲۳۷ و عدد ۹ به۲۶۵ تغییر یابد که اگر بدین منوال اقدام شود اختلاف عدد ۲۶۰ بدست 

آمده و عدد۸ که  ۲۳۷ شده  ۲۳ می شود.

طبق تصویر پائین ماه های قمری ترتیب خاصی ندارد