كيف يمكن استخراج السنة و الشهر و اليوم نتيجة طرح تاريخين

[عبد الله]

إخوتي السلام عليكم و رحمة الله و بركاته
هل يمكن استخراج السنة و الشهر و اليوم نتيجة طرح تاريخين ، بحيث عندما تكون نتيجة الشهر 13 و نتيجة اليوم 35 و نتيجة السنة 0 مثلا ، فيرد النتيجة الأخيرة كما يلي : 1 سنة - 2 شهر - 5 أيام
و جزاكم الله خيرا .

[bassem_43]

السلام عليكم
اليك رابط موضوعين سيفيدانك ان شاء الله
http://delphi4arab.net/forum/showthread....7%D1%ED%CE
او
http://delphi4arab.net/forum/showthread....7%D1%ED%CE

ان لم تجد ما تبحث عنه استعمل ميزة البحث السريع لتحصل على
http://delphi4arab.net/forum/search.php?...0656&pp=25

[عبد الله]

الأخ bassem_43 جزاك الله خيرا على الرد و المعلومة
أما فيما يخص سؤالي فهو كيف نرجع 13 شهر مثلا و 35 يوم إلى 1سنة و 2 شهر و 05 ايام هذا هو المقصود و جزاكم الله خيرا

[عبد الله]

السلام عليكم أخي hamzabenz و جزاكم الله خيرا
لو تفصلتم بشرح هذا الإجراء :

PHP كود :

procedure daysToDate(days: Integer; out day, month, year: Integer);
var
  january1st: TDateTime;
  targetDate: TDateTime;
begin
  january1st := StartOfTheYear(Now());
  targetDate := IncDay(january1st, days);

  day := DayOfTheMonth(targetDate) - 1;
  month := MonthOfTheYear(targetDate) - 1;
  year := YearOf(targetDate) - YearOf(january1st);
end; 


[hamzabenz]

السلام عليكم

لقد قمت بعمل برنامج صغير شرحت فيه العملية التي تريد ان تقوم بها أتمنى ان تصل لك الفكرة بشكل واضح

الشرح في الصورتين المرفقتين

بالتوفيق

[عبد الله]

أخي hamzabenz بارك الله فيك على هده الإجابة الكافية
و نسأل الله تبارك و تعالى أن يجعل هذا العمل في ميزان حسناتك يوم القيامة و السلام عليكم