delphi4arab منتديات دلفي للعرب
كيف أزيد في التاريخ - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أزيد في التاريخ (/showthread.php?tid=12208)



كيف أزيد في التاريخ - salah07230 - 10-02-2023

السلام عليكم
اخوتي عندي طلب يتمثل في:
اريد ان أزيد تاريخ ما وليكن مثلا: 19/12/2019
بمقدار 2 عام  و نصف
3 أعوام
3 أعوام ونصف
استعمل datetimebicker
وشكرا


RE: كيف أزيد في التاريخ - larbiparadox - 10-02-2023

وعليك السلام

صرح بالمكتبة System.DateUtils في بالمكتبة uses

وهذا ليتعرف الدلفي على IncYear

وتكون الكتابة كالتالي :

كود :
DateTimePicker1.Date := IncYear(DateTimePicker1.Date, 3);

بالنسبة للأشهر نستعمل IncMonth
بالنسبة للأيام نستعمل IncDay


RE: كيف أزيد في التاريخ - salah07230 - 10-02-2023

بارك الله فيك أخي اتضح لي كل شيء