+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يمكن طرح تاريخين و يكون الناتج رقم وليس تاريخ (/showthread.php?tid=5970)
كيف يمكن طرح تاريخين و يكون الناتج رقم وليس تاريخ - amine titi - 25-02-2014
السلام عليكم
كيف يمكن طرح تاريخين و يكون الناتج رقم (أقصد الناتج بالأيام) وليس تاريخ
كيف يمكن طرح تاريخين و يكون الناتج رقم وليس تاريخ - Najy Ibraheem - 25-02-2014
السلام عليكم...
أضف الوحدة DateUtils إلى عبارة uses. ثم استعمل الدالة DaysBetween التي تعيد الفرق بين تاريخين بالأيام كعدد صحيح.
توجد أيضاً الدالة DaySpan التي تعيد القرق بين تاريخين بالأيام كعدد كسري، حيث الجزء الكسري يمثل أجزاء من اليوم. مثلاً إذا أعادت الدالة DaySpan العدد 7.75 فذلك يعني 7 أيام و ثلاثة أرباع اليوم (أي 7 أيام و 18 ساعة).
نرجو الاستفادة و السلام.
كيف يمكن طرح تاريخين و يكون الناتج رقم وليس تاريخ - Anter2010 - 25-02-2014
السلام عليكم
PHP كود :
var Date1 : TdateTime;
NbJour : Integer;
begin
Date1 := EncodeDate(2014, 01, 1);
Date1 := Date1 + NbJour;
{ou bien Date1 := Date1 - NbJour;}
end;
كيف يمكن طرح تاريخين و يكون الناتج رقم وليس تاريخ - Najy Ibraheem - 26-02-2014
السلام عليكم...
الصيغة العامة لها هي:
كود :
variable := DaysBetween(Date1, Date2);حيث Date1 و Date2 التاريخان. و variable اسم متغير من النوع Integer.
بفرض أن التاريخ الأول في Edit1 و التاريخ الثاني في Edit2:
كود :
var
Interval: Integer;
//
begin
Interval := DaysBetween(StrToDate(Edit1.Text), StrToDate(Edit2.Text));
//و السلام.
كيف يمكن طرح تاريخين و يكون الناتج رقم وليس تاريخ - amine titi - 26-02-2014
شكرا لك
نجحت الطريقة
ربي يوفقك ويعطيك ما تتمناه
كيف يمكن طرح تاريخين و يكون الناتج رقم وليس تاريخ - Anter2010 - 26-02-2014
السلام عليكم
طريقة على السريع
كيف يمكن طرح تاريخين و يكون الناتج رقم وليس تاريخ - amine titi - 26-02-2014
شكرا لك
طريقتك تعمل