delphi4arab منتديات دلفي للعرب

نسخة كاملة : ماهي الطريقة التي يمكن من خلالها تحديد عدد ايام السنة 365 او 366
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
احتاج لمعرفة عدد ايام السنة حتى اتمكن من تحديد تاريخ نهاية عقد السائق دون خطأ
السلام عليكم باستخدام الوحدة DateUtils
PHP كود :
uses DateUtils;

ShowMessage('Days in 2000 = ' + IntToStr(DaysInAYear(2000))); 

كما يمكنك معرفة ان كانت السنة كبيسة ام لا السنة الكبيسة عدد ايامها 366

PHP كود :
uses SysUtils;

if 
IsLeapYear(2000) then
  ShowMessage
('2000 was a leap year')
else
  
ShowMessage('2000 was not a leap year');