تقویمی برای همیشه در اکسل Persian Calendar For Ever In Excel

[حسام بحرانی]

حسام بحرانی:
با سلام ، در این پست برای علاقمندان به تقویم ، یک فایل جالب ارسال می کنم و امیدوارم مورد توجه عزیزان قرار بگیره . از مزایای این تقویم :
1- نامحدود بودن برای تمامی سال ها ( فقط کافیه یک عدد صحیح وارد کنید ) .
2- پیش بینی "تقریبی" لحظه تحویل سال در هر سال .
3 - در نظر گرفتن سال های کبیسه .
4 - استفاده از گاهشماری حیوانات .
5 - قابلیت پرینت .
6 - و از همه مهمتر حجم بسیار پایین فایل .
امیدوارم از اون لذت ببرید . منتظر دریافت نظرات و پیشنهادات شما عزیزان هستم .

با سپاس
ɦɛʂɑɱ ɓɑɦɾɑɳɨ (http://forum.exceliran.com/member.php?u=10018)

[smartman]

با درود
از آنجایی که بنده یکی از دنبال کننده*های سرسخت تقویم هجری خورشیدی در برنامه*های Office بخصوص Excel در حدود یک دهه اخیر (سال 1383 با Excel 97) بوده*ام مایلم تجربیات و دانشم را در اختیار علاقمندان قرار بدهم.


طول سال حقیقی خورشیدی با عوامل گوناگونی تغییر می*کند به گونه*ای که محاسبه دقیق آن برای هر سال بسیار دشوار است، بنابراین می*بایست تقویم نگاری خورشیدی بر اساس طول سال متوسط خورشیدی بنا گردد. این طول سال متوسط خود یک عدد صحیح نیست (24219879/365 روز). از این رو در تقویم نگاری خورشیدی باید کبیسه*گیری خاصی منظور گردد تا انطباق هر چه بیشتری میان طول سال تقویمی و طول سال طبیعی پدید آید.
دقیق*ترین طول سال را نیوکم (Newcom) محاسبه کرده است و برابر 24219879/365 روز است.
طول سال در هر سال به اندازه 00530496/0 ثانیه کاهش می*یابد که در محاسبات قابل اغماض است.
برای نمونه هر گاه اختلاف طول سال تقویمی با طول سال حقیقی یک دقیقه باشد باشد در مدت 1440 سال، یک روز خطا در تقویم بروز می*کند.
بنا بر دلایلی که از حوصله این گفتار خارج است، بهترین کبیسه گیری به این ترتیب است که در هر دوره 2820 ساله 683 سال کبیسه وجود داشته باشد. در این صورت تعداد روزهای هر دوره 2820 ساله برابر خواهد شد با 1.029.983 = 683 + (365 * 2820) که اگر این تعداد روز را بر تعداد سال (2820) تقسیم کنیم، عدد 24219858/365 روز برای طول سال متوسط بدست می*آید. که با طول سال متوسط محاسبه شده توسط نیوکم (24219879/365) حدود 00000021/0 روز اختلاف دارد و این یعنی با پذیرفتن 24219858/365 روز به عنوان طول سال متوسط، تقویم هجری خورشیدی بعد از 4.761.904 سال فقط یک روز نیاز به تصحیح دارد!
انتخاب دوره 2820 ساله به این معناست که در پایان هر دوره لحظه تحویل سال تکرار می*شود.
بنا به دلایل فنی و پیچیده تر :

هر دوره 2820 ساله دارای 595 کبیسه چهار سالی و 88 کبیسه 5 سالی است.
مبنای محاسبه ما 1/1/475 هجری خورشیدی است که در آن لحظه تحویل سال دقیقا 12 ظهر است.
هر گاه ساعت تحویل سال مورد نظر پس از ساعت 6 و 11 دقیقه و 026/14 ثانیه بامداد و قبل از 12 ظهر باشد آن سال کبیسه و در غیر این صورت عادی خواهد بود.


حال با توجه به این که در محاسبات آقای بحرانی از عدد 2422/365 روز به عنوان طول سال متوسط استفاده شده است تاثیر منفی زیادی بر محاسبات مربوط به سالهای خیلی دور گذشته و آینده و چگونگی توزیع سالهای کبیسه خواهد داشت. گرچه لحظه تحویل سال محاسبه شده توسط آقای بحرانی تقریبا با لحظه تحویل سال محاسبه شده توسط مرکز تقویم دانشگاه تهران برابر است اما واقعیت این است که هر دو با اختلاف فاحشی از مقدار دقیق آن به دوراند.
در پایان فایل پیوست را که دقیق ترین تقویم هجری شمسی بر پایه محاسبات فوق می*باشد ملاحظه فرمایید.

[mby]

ممنون

فرستاده شده از HUAWEI G750-U10ِ من با Tapatalk

[sabertb]

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

=concatenate(int((today()-7385)/365.25)+1299,"/",mod(if(int(mod((today()-7385)*100,36525)/100)<186,int(int(mod((today()-7385)*100,36525)/100)/31),if(mod(int((today()-7385)/365.25),4)=0,int((int(mod((today()-7385)*100,36525)/100)-186)/30)+6,if(int(mod((today()-7385)*100,36525)/100)<336,int((int(mod((today()-7385)*100,36525)/100)-186)/30)+6,int((int(mod((today()-7385)*100,36525)/100)-336)/29)+11))),12)+1,"/",if(int(mod((today()-7385)*100,36525)/100)<186,mod(int(mod((today()-7385)*100,36525)/100),31)+1,if(mod(int((today()-7385)/365.25),4)=0,mod(int(mod((today()-7385)*100,36525)/100)-186,30)+1,if(int(mod((today()-7385)*100,36525)/100)<336,mod(int(mod((today()-7385)*100,36525)/100)-186,30)+1,mod(int(mod((today()-7385)*100,36525)/100)-336,29)+1))))