کامپوننت یا کد تبدیل تاریخ به قمری

[Masood_Heidarnia]

با سلام
من جستجو کردم ولی هیچکدوم به نتیجه نرسیده بود. اگه سراغ دارید لطفا لینک بدید.
به یه کامپوننت تبدیل تاریخ (شمسی یا میلادی) به قمری نیاز دارم. برای دلفی 7
یه کامپوننتی (ترجیحا با سورس) که یه تاریخ بهش بدیم و تاریخ قمری را بهمون برگردونه.
تا 14 فروردین بهش نیاز خیلی ضروری دارم.
لطفا راهنمایی بفرمایید.
با تشکر

[mabnarayaneh]

دوست عزيز:
با سلام و عرض تبريك سال نو
يونيت Dates.pas را برايتان گذاشتم.
اين يونيت را از زبان وي بي به دلفي برگردان كرده‌ام. اميدوارم بتوانيد با تفسير اين يونيت، پارامترهاي توابع را درست به كار ببريد. اگر مشكلي در استفاده داشتيد، پيغام بگذاريد.

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

فهرست توابع و رويه‌ها به اين صورت است:
shamsidif(): براي محاسبه‌ي روزهاي بين دو تاريخ شمسي
Qamaridif(): براي محاسبه‌ي روزهاي بين دو تاريخ قمري
miladidif(): براي محاسبه‌ي روزهاي بين دو تاريخ ميلادي
isqamarileapyear(): براي مشخص كردن اين كه آيا يك سال قمري، كبيسه هست يا خير
isshamsileapyear(): براي محاسبه‌ي اين كه آيا يك سال شمسي، كبيسه هست يا خير
ismiladileapyear(): براي مشخص كردن اين كه آيا يك سال ميلادي، كبيسه هست يا خير
addtoshamsi(): به يك تاريخ شمسي به تعداد دلخواه، روز اضافه كرده و تاريخ جديد را بر مي گرداند
addtoqamari(): به يك تاريخ قمري به تعداد دلخواه، روز اضافه كرده و تاريخ جديد را بر مي گرداند
shamsitoqamari(): يك تاريخ شمسي را به تاريخ قمري معادلش تبديل مي كند
shamsitomiladi(): يك تاريخ شمسي را به تاريخ ميلادي معادلش تبديل مي‌كند
qamaritomiladi(): يك تاريخ قمري را به تاريخ ميلادي معادلش تبديل مي ‌كند
qamaritoshamsi(): يك تاريخ قمري را به تاريخ شمسي معادلش تبديل مي‌كند
miladitoshamsi(): يك تاريخ ميلادي را به تاريخ شمسي معادلش تبديل مي‌كند
miladitoqamari(): يك تاريخ ميلادي را به تاريخ قمري معادلش تبديل مي‌كند
shamsinextday(): يك تاريخ شمسي را يك روز به جلو مي‌برد
qamarinextday(): يك تاريخ قمري را يك روز به جلو مي‌برد
shamsiprevday(): يك تاريخ شمسي را يك روز به عقب مي‌برد
qamariprevday(): يك تاريخ قمري را يك روز به عقب مي‌برد
shamsievent(): رويدادهاي ملي يك تاريخ شمسي را برمي‌گرداند.
مثلا براي تاريخ 86/11/5 برمي‌گرداند: "انتخابات اولين دوره‌ي رياست جمهوري اسلامي ايران"
qamarievent(): رويدادهاي اسلامي يك تاريخ قمري را برمي‌گرداند
مثلا براي تاريخ 1429/1/10 برمي‌گرداند: "عاشوراي حسيني"
universalevent(): رويدادهاي جهاني يك تاريخ ميلادي را برمي‌گرداند
shamsiyearname(): نام يك سال شمسي را برمي‌گرداند، سال مار، سال سگ...
shamsidayname(): مشخص مي‌كند كه يك تاريخ شمسي، چند شنبه است
shamsidayofweek(): مشخص مي‌كند كه يك تاريخ شمسي، چندمين روز هفته است
qamaridayname(): مشخص مي‌كند كه يك تاريخ قمري، چند شنبه است
qamaridayofweek(): مشخص مي‌كند كه يك تاريخ قمري، چندمين روز هفته است
miladidayname(): مشخص مي‌كند كه يك تاريخ ميلادي، چند شنبه است
miladidayofweek(): مشخص مي‌كند كه يك تاريخ ميلادي، چندمين روز هفته است
shamsimonthname(): عدد يك ماه شمسي را گرفته و نام آن ماه را برمي‌گرداند
qamarimonthname(): عدد يك ماه قمري را گرفته و نام آن ماه را برمي‌گرداند
miladimonthname(): عدد يك ماه ميلادي را گرفته و نام آن ماه را برمي‌گرداند

البته در خصوص تاريخ‌هاي قمري توجه داشته باشيد كه مقادير حاصل، هميشه درست نيستند. تاريخ قمري از روي وضعيت هلال ماه محاسبه مي‌شود.
بنا بر گواه همه‌ي منجمين، وضعيت هلال ماه به هيچ عنوان قابل محاسبه و پيش‌بيني نيست و لذا ممكن است براي برخي از تاريخ‌ها، يك روز اختلاف پيش بيايد.
مثلا براي تعيين روز اول ماه شوال (عيد فطر) ممكن است يك روز زودتر يا ديرتر اعلام شود.
اين يكي ديگر از معجزات آخرين دين الهي است كه از هزار و چهارصد سال قبل، دستور داده است كه هر انساني خودش بايد به بررسي وضعيت ماه بپردازد و با وجود پيشرفت‌هاي بسيار شگرف در نجوم و رياضيات و رايانه و ... هنوز بشر امروزي نتوانسته اين قانون را نقض كند.


موفق باشيد.

[skmkh6056]

تست کردم. درست کار نمیکنه

[mabnarayaneh]

درست كار مي‌كنه. من خودم باهاش يه تقويم نوشتم كه كاملا درسته. كدت رو بفرست تا بگم كجا مشكل داري.

[NoneForce]

اين يكي ديگر از معجزات آخرين دين الهي است كه از هزار و چهارصد سال قبل، دستور داده است كه هر انساني خودش بايد به بررسي وضعيت ماه بپردازد و با وجود پيشرفت‌هاي بسيار شگرف در نجوم و رياضيات و رايانه و ... هنوز بشر امروزي نتوانسته اين قانون را نقض كند.

سلام
اين جمله لازمه استفاده از كد است يا دليل ديگري داشت كه در بخش دلفي به آن اشاره كرديد؟!!

[mabnarayaneh]

اين جمله لازمه استفاده از كد است يا دليل ديگري داشت كه در بخش دلفي به آن اشاره كرديد؟!!

ربطي به دلفي نداشت. اما توجه داشته باشيد كه علم محض، راه گشا نيست. مثل اين كه بگوييم فرمول‌هاي رياضي ربطي به دلفي ندارند و نبايد در دلفي مطرح شوند.
علوم، سرچشمه‌ي واحدي دارند و اگر به طور محض به يك علم خاص بپردازيد، حداقل اين است كه ديرتر به هدف مي‌رسيد.

به هر حال، شايد مطلبي كه نوشتم، يك زنگ تفريح كوچولو باشد...

[flashdes]

سلام قربان اخطار دانلود ميده من ميخوام چي كار كنم

[zahra63t]

سلام من این فایل رو به شدت نیاز دارم
لطفا دوباره آپلودش کنید چون خطای دانلود می ده

ممنون می شم

[massude]

"اين يكي ديگر از معجزات آخرين دين الهي است كه از هزار و چهارصد سال قبل، دستور داده است كه هر انساني خودش بايد به بررسي وضعيت ماه بپردازد و با وجود پيشرفت‌هاي بسيار شگرف در نجوم و رياضيات و رايانه و ... هنوز بشر امروزي نتوانسته اين قانون را نقض كند."

عزیزم این حرف ها مال 1400 سال پیشه شما اگر کارل فردریش گوس را می شناختید هیچ وقت این حرف را نمی زدید.

[NetDesigner]

دوستان ممنون میشم این یونیت را مجددا آپلود نمایید