دخول

**أبو معاذ** · 27-03-2010, 07:03 AM

السلام عليكم ورحمة الله وبركاته ،
لا شك أن الكثير منا يتعامل في برامجه مع التواريخ و قد يبحث في بعض الأحيان عن عملية الطرح أو الجمع بين تاريخين ،
فأحببت أن أضع هذه المشاركة البسيطة لتتعامل مع التواريخ .
هناك دالة يغفل عن التعامل بها الكثير من المبرمجين و هي دالة خاصة بالتعامل مع التواريخ و هي
[COLOR="Navy"]DateUtils[/COLOR]

وللأمانة العلمية الموضوع مقتبس من منتدى فرنسي.

1- كيف أضيف عدد أيام إلى تاريخ معين .

كود :
uses
  DateUtils;
var
  Date1  : TdateTime;
  NbDay : Integer;
begin
  Date1 := EncodeDate(2010, 3, 1);
  Date1 := [color=red][B]IncDay[/B][/color](Date1, NbDay);

2- حساب عدد الأيام بيت تاريخين :

كود :
uses
  DateUtils;
var
  Date1, Date2 : TDateTime; 
  Diff : Extended; 
  Day1, Month1, year1 : Word; 
  day2, Month2, year2 : Word; 
begin 
  Date1 := EncodeDate(Year1, Month1, Day1); 
  Date2 := EncodeDate(year2, Month2, Day2); 
  Diff := [B][color=red]DaysBetween[/color][/B](Date2, Date1);  
end;

3- حساب عدد الأيام السنة لتاريخ معين :

كود :
uses
  DateUtils;
var
  Date1 : TDateTime;
  NumeroJ : Integer;
begin
  Date1 := Now; {Date système}
  NumeroJ := [B][color=red]DayOfTheYear[/color][/B](Date1);
end;

4- حساب عدد الأسابيع السنة لتاريخ معين :

كود :
uses
  DateUtils;
var
  Date1 : TDateTime;
  NumSem : Word;
begin
  Date1 := EncodeDate(2002, 11, 1);
  NumSem := [B][color=red]WeekOfTheYear[/color][/B](Date1);
end;

هذا ما أردت بيانه و أسأل الله لي و لكم التوفيق و السداد و الرشاد.
:monster1:

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة