27-03-2010, 07:03 AM
السلام عليكم ورحمة الله وبركاته ،
لا شك أن الكثير منا يتعامل في برامجه مع التواريخ و قد يبحث في بعض الأحيان عن عملية الطرح أو الجمع بين تاريخين ،
فأحببت أن أضع هذه المشاركة البسيطة لتتعامل مع التواريخ .
هناك دالة يغفل عن التعامل بها الكثير من المبرمجين و هي دالة خاصة بالتعامل مع التواريخ و هي
[COLOR="Navy"]DateUtils[/COLOR]
وللأمانة العلمية الموضوع مقتبس من منتدى فرنسي.
1- كيف أضيف عدد أيام إلى تاريخ معين .
2- حساب عدد الأيام بيت تاريخين :
3- حساب عدد الأيام السنة لتاريخ معين :
4- حساب عدد الأسابيع السنة لتاريخ معين :
هذا ما أردت بيانه و أسأل الله لي و لكم التوفيق و السداد و الرشاد.
:monster1:
لا شك أن الكثير منا يتعامل في برامجه مع التواريخ و قد يبحث في بعض الأحيان عن عملية الطرح أو الجمع بين تاريخين ،
فأحببت أن أضع هذه المشاركة البسيطة لتتعامل مع التواريخ .
هناك دالة يغفل عن التعامل بها الكثير من المبرمجين و هي دالة خاصة بالتعامل مع التواريخ و هي
[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:
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.