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

[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]

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

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

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

[flashdes]

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

[zahra63t]

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

ممنون می شم

[massude]

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

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

[NetDesigner]

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

[NetDesigner]

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

[golbafan]

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

برات متاسفم که قدر خودتو نمیدونی
شما اگر:

خوارزمی
ابوعلی سینا
شیخ طوسی
خیام
شیخ بهایی
ملاصدرا
فردوسی و سعدی و حافظ و مولانا

و هزارتای دیگر رو میشناختی این حرفا رو نمیزدی
همه دانشمندای ما بواسطه اسلام و تعلیمات اسلامی به این درجات بالا رسیدند و دانشمندان غربی هم بواسطه کمک گرفتن از نبوغ دانسمندان ایرانی پیشرفت کردند...

[shahrokhkian]

همه دانشمندای ما بواسطه اسلام و تعلیمات اسلامی به این درجات بالا رسیدند و دانشمندان غربی هم بواسطه کمک گرفتن از نبوغ دانسمندان ایرانی پیشرفت کردند...

دوست عزیز بهت پیشنهاد می کنم حتماً تاریخ ایران و جهان را بخونی تا پیشرفتهای ایرانیان را حداقل از 2500 سال پیش که مکتوب وجود داره به چیزی غیر از خود ایرانی ها وصل نکنی. ایرانیها از 2500 سال پیش برده داری را منع کردند و ارزشهای انسانی را ارج نهادند. ایرانیان از ابتدا یکتا پرست بودند و کسی را مجبور به پذیرش اعتقاد خود نمی کردند و به همه عقاید احترام می گذاشتند و در برابر ظلم می ایستادند. به ترویج علم و انسانیت و عدالت در دنیا شهره بودند. ابتکارات و اختراعات فراوان ایرانیان قبل از هجوم وحشیانه اعراب به این سرزمین و ویران کردن آن را مطالعه کنید و ابتدا به ایرانی بودن خود و سپس مسلمانی خود افتخار کن. مثل فردوسی که به هیچ وجه حس میهن پرستی خود را به بزرگترین چیزها هم نفروخت.

پس یادم می مونه

من ایرانی مسلمانم

[F A R H A D]

شما در این بخش قرار دارید:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
برای بحث های شخصی انجمن های متفرقه و لینک زیر موجود هست:

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

[Payman_62]

سلام.
لطفا بحث رو منحرف نکنید.