كامپوننت تاريخ براي دلفي 7 و XE5 همراه با Demo

[دلفــي]

Tarikh's Component written for Delphi 7 and XE5. This Component convert From Solar date to Gregorian date and Conversely and Get the day, month and year from Solar date and Gregorian date.



133382

مثالي براي توابع موجود در كامپوننت :



procedure TForm1.Button1Click(Sender: TObject);
begin

J1.Text := Tarikh1.IntMiladiToShamsi(E1.Text);
J2.Text := Tarikh1.StrMiladiToShamsi(E2.Text);
J3.Text := Tarikh1.IntShamsiToMiladi(E3.Text);
J4.Text := Tarikh1.StrShamsiToMiladi(E4.Text);

J5.Text := Tarikh1.IntDayOfShamsi(E5.Text);
J6.Text := Tarikh1.IntMounthOfShamsi(E6.Text);
J7.Text := Tarikh1.IntYearOfShamsi(E7.Text);
J8.Text := Tarikh1.StrDayOfShamsi(E8.Text);
J9.Text := Tarikh1.StrMounthOfShamsi(E9.Text);


J10.Text := Tarikh1.IntDayOfMiladi(E10.Text);
J11.Text := Tarikh1.IntMounthOfMiladi(E11.Text);
J12.Text := Tarikh1.IntYearOfMiladi(E12.Text);
J13.Text := Tarikh1.StrDayOfMiladi(E13.Text);
J14.Text := Tarikh1.StrMounthOfMiladi(E14.Text);

J15.Text := Tarikh1.GetIntTodayShamsi;
J16.Text := Tarikh1.GetStrTodayShamsi;

end;


آدرس كامپوننت در Planet Source Code (https://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=1587&lngWId=7)

[ariobarzan]

با سلام
من نصب نکردم ولی
دموی شما توی ویندوز 8 پیام خطا میده

[دلفــي]

با سلام
من نصب نکردم ولی
دموی شما توی ویندوز 8 پیام خطا میده

با تشكر از دوست خوبم
فرمت تاریخ را در سورس كامپوننت اصلاح و دوباره آپلود كردم .

[ATULICUS]

ممنون از دوست عزیزمون بابت وقتی که رو این یونیت گذاشتن .یونیت ها و کامپوننت های زیادی برای تاریخ شمسی هستش اما به نظر من هنوز یه کامپوننت کامل از نظر کارایی و صحت خروجی و داشتن ظاهر جذاب و تجاری وجود ندارد.ظاهر tms planner و devexpress زیباست کارایی یونیت مهندس زالی خوبهکارایی یونیت shdate هم خوبه

[hadisalahi2]

آیا از صحت تبدیلاتش اطمینان حاصل کردی؟
خیلی از کامپوننت های تاریخ در محاسبات مشکل دارند
مثلا در Xcalndar در تبدیل تاریخ ها 30 و 31 شهریور و کلا این تاریخ ها در شش ماهه اول مشکل داره

خودت نوشتی این کامپوننت رو؟