تاريخ هجري قمري

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

سلام

من یک مجموعه کامل در مورد تقویم نوشته ام که شامل تقویم هجری قمری قراردادی و همچنین هجری قمری با قابلیت تطبیق با داده های مشاهده شده هلالی نیز می باشد. تاپیک زیر را ببینید:

کد:

---

http://forum.p30world.com/showthread.php?t=252690

---

اگر از این مجموعه استفاده کنید برای تبدیل یک تاریخ مثلا از شمسی به قمری باید ابتدا تاریخ شمسی را با استفاده از کامپوننت تقویم شمسی به نوع TDateTime تبدیل(encode) کنید و سپس با استفاده از کامپوننت تقویم قمری مقدار حاصل را decode کنید:

کد:

---

var
  dt:TDateTime;
  y, m, d: Word;
begin
  dt := PersianCalendar1.EncodeDate(1387, 6, 7);
  HijriCalendar1.DecodeDate(dt, y, m, d);
...
end;

---

البته اگر مقدار TDateTime را داشته باشید فقط decode کافی است:

کد:

---

HijriCalendar1.DecodeDate(Now, y, m, d);

---

بجای متد DecodeDate هم می توانید مستقیما از متد DateToStr یا FormatDateTime استفاده کنید (متد های کامپوننت ها همنام توابع SysUtils و DateUtils دلفی هستند.)

سلام
من ظاهرا با نصبش مشكل دارم ولي حقيقتا بايد كاركنه واقعا ممنونم لطف فرمودين

سلام
من ظاهرا با نصبش مشكل دارم ولي حقيقتا بايد كاركنه واقعا ممنونم لطف فرمودين