تبدیل تاریخ شمسی به میلادی در دلفی

[admin]

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

کافیه ابتدا در بالای یونیت مورد نظر بدین صورت MyDate رو use بکنیم

implementation

uses  MyDate;

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

تبدیل میلادی به شمسی و نمایش آن بر روی label1 :

Label1.Caption := MyDate.Date_GregorianToSolar(DateToStr(Date));

تبدیل تاریخ شمسی نوشته شده بر روی label1 به تاریخ میلادی بر روی label2 :

Label2.Caption := MyDate.Date_SolarToGregorian(Label1.Caption);

موفق و موید باشید.