سلام دوستان
کسی فانگشن تبدیل تاریخ شمسی به میلادی در دلفی را دارد؟؟؟؟
نمایش نسخه قابل چاپ
سلام دوستان
کسی فانگشن تبدیل تاریخ شمسی به میلادی در دلفی را دارد؟؟؟؟
سلام و درود.
یونیت پیوست با نام MyDate کاری از مهندس یوسف زالی هستش که تقریبا میشه گفت کاملترین یونیت در مورد تبدیل تاریخ میلادی به شمسی و بالعکس می باشد.
کافیه ابتدا در بالای یونیت مورد نظر بدین صورت MyDate رو use بکنیم
و سپس در هر قسمتی از برنامه اون رو استفاده کنیم.کد:implementation
uses MyDate;
مثلا با یک قطعه کد من تاریخ میلادی رو به شمسی تبدیل کرده و سپس همون تاریخ رو به میلادی بر میگردانم.
تبدیل میلادی به شمسی و نمایش آن بر روی label1 :
تبدیل تاریخ شمسی نوشته شده بر روی label1 به تاریخ میلادی بر روی label2 :کد:Label1.Caption := MyDate.Date_GregorianToSolar(DateToStr(Date));
موفق و موید باشید.کد:Label2.Caption := MyDate.Date_SolarToGregorian(Label1.Caption);