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

السلام عليكم ورحمة الله تعالى وبركات
اخوان الأعزاء
كيف يمكنني الحصول على هذه النتيجة
اذا اضفت 6 اشهر لتاريخ ما او طرحتها على انت تكون بهذا الشكل
مثال على ذلك
31/12/2020
عندما اطرح منها
00 سنة
06 اشهر
00 يوم
يجب ان تكون النتيجة
على هذا الشكل 01/07/2020
وليس 31/06/2020
وفي الإضافة ايضا هناك نفس الإشكال
عندما يكون تاريخ مثلا
01/01/2019
إضافة
03 سنة
00 اشهر
00 يوم
واطرح منه
00 سنة
06 اشهر
00 يوم
النتيجة المطلوبة هي
01/07/2021

جزاكم الله عنا كل خير

بالنسبة لمثالك الأول, زد في التاريخ يوما واحدا ثم انقص منه 6 أشهر, هكذا:

في uses أضف:

PHP كود :
System.DateUtils 

ثم:

PHP كود :
var
  aDate: TDateTime;
begin
  aDate := EncodeDate(2020, 12, 31);

  aDate := IncDay(aDate);
  aDate := IncMonth(aDate, -6);

  // أو هكذا
  // aDate := IncMonth(IncDay(aDate), -6);

  ShowMessage(DateToStr(aDate));
end; 

والثاني:

PHP كود :
aDate := IncMonth(IncYear(aDate, 3), -6); 

شكرا اخي كان لدي مشكلة في الكود واستدركت الخطأ بفضلك
جزاكم الله عنا كل خير

التعامل مع التواريخ (الدالة التي يغفل عنها الكثير)

بارك الله فيكما جميعا وفي اهلكم آمين

medreg

sofiane201

medreg

محمد عبد العزيز

medreg