التعامل مع التوقيت والساعة في دلفي Date & Time

[delphi4ever]

السلام عليكم ورحمة الله .

هنا توضع جميع الأكواد مع ملفاتها المصدرية والشرح الخاصة بالتوقيت والساعة فقط ، لذا من يرغب بالمشاركة عليه الإلتزام بما يلي:
1- وضع شرح مفصل للموضوع.
2- وضع ملف مصدري يحتوي على الشرح(Sources-Codes)

هذه بعض الأكواد (Souces-Codes) البسيطة للتعامل مع التوقيت والساعة في دلفي.

1- أمثلة بسيطة عن إسترجاع التوقيت والساعة في دلفي:
الأدوات المستعملة:
* - مكون TLabel و مكون TButton
أي بعد الضغط على المكون TButton تظهر النتيجة في المكون TLabel.

لإظهار الســاعة: نقوم بالضغط مرتين على المكون TButton ونكتب ما يلي بعد Begin

كود :

Label1.Caption := TimeToStr(Time) ;

1-2 لإظهار التوقيت: نفس الإجراءات

كود :

Labe2.caption:=DateToStr(Date);

1-3 لإظهار التوقيت والساعة: نفس الإجراءات

كود :

Label3.Caption:=DateTimeToStr(Now);

ملاحظة: في حالة إستعمال مكون Tbutton من أجل الضغط عليه والحصول على النتيجة فإن النتيجة ستكون عبارة عن نص يحتوي على التوقيت أو الساعة أو كلاهما معا، مثال: 12:45:25 أو 07/02/2008
أو 07/01/2008 أو 07/01/2008 12:45:25
ومن أجل الحصول على النتائج السابق ذكرها بطريقة تتماشى مع تغيرات الساعة والتوقيت اليومي نقوم بكتابة نفس الكود لكن نقوم باستعمال المكون Timer الموجود في الزاوية System
يمكننا هذا المكون من رؤية التغيرات التي تحدث على التوقيت والساعة كتغير الثواني والدقائق والساعات.

هذا مثال بسيط يمكن لأي مستعمل دلفي التطرق إليه وسنوافيكم لاحقا بالباقي عـــــلما أنه لازال الكثيـــــــر.

[professor DeXTeR]

بيض الله وجهك يامبدع ..

[Snyder]

السلام عليكم ورحمة الله وبركاته

هذه مساهمتي البسيطة
من الوحدة SysUtils الدالة FilaAge للحصول على تاريخ ملف

كود :

function FileAge(const FileName: string; out FileDateTime: TDateTime): Boolean;

الاستعمال هكذا

كود :

FileAge(filename, timeDate);

filename اسم الملف
timeDate متغير من نوع TDateTime للحصول على التاريخ
---
الدالة FileDateToDateTime

كود :

function FileDateToDateTime(FileDate: Integer): TDateTime;

[الكاسر الآخر]

هناك العديد من الدوال التي تتعامل مع الوقت والتاريخ موجودة ضمن وحدة DateUtils منها

1- DayOfTheMonth
وظيفتها إستخلاص اليوم من التاريخ
تركيبة الدالة ومثال

كود :

التركيبة
DayOfTheMonth( Const Date : TDateTime) : Word
مثال
ShowMessage('The day of the month = '+IntToStr(DayOfTheMonth(Now)));

2- DayOfTheWeek
تقوم بإستخلاص رقم اليوم في الأسبوع الحالي ويبدأ برقم 1 الذي يشير إلى يوم الاثنين

كود :

التركيبة
DayOfTheWeek( Const Date : TDateTime) : Integer

مثال

var

  day    : array[1..7] of string;

begin
  // We cannot use LongDayNames - they start on Sunday
  day[1] := 'Monday';
  day[2] := 'Tuesday';
  day[3] := 'Wednesday';
  day[4] := 'Thursday';
  day[5] := 'Friday';
  day[6] := 'Saturday';
  day[7] := 'Sunday';

  myDate := EncodeDate(2002, 12, 25);

  ShowMessage('Christmas day 2002 is on a '+day[DayOfTheWeek(Now)]);
end;

3- DayOfTheYear
تقوم بإستخلاص رقم اليوم في السنة

كود :

التركيبة
DayOfTheYear ( const Date : TDateTime ) : Word;

مثال
ShowMessage( IntToStr(DayOfTheYear(Now)));

4- DaysBetween
تقوم بحساب عدد الأيام بين تاريخين

كود :

التركيبة
DaysBetween ( const ToDate, FromDate : TDateTime ) : Integer;

مثال

var
  fromdate, toDate : TDateTime;

begin
toDate := EncodeDate(2002, 12, 31);
fromDate := EncodeDate(2002, 10, 31);
ShowMessage('Whole days difference = '+
              IntToStr(DaysBetween(toDate, fromDate))+' days');

5- DaysInAMonth
تحدد عدد الأيام في كل شهر هل هي 30 أو 31 أو 28 أو 29

كود :

التركيبة
DaysInAMonth ( const Year, Month : Word ) : Word;

مثال
ShowMessage('Days in February 2015 = '+
              IntToStr(DaysInAMonth(2015, 2)));

6- MonthOfTheYear
تستخلص رقم الشهر في السنة

كود :

التركيبة
MonthOfTheYear ( const Date : TDateTime ) : Word;

مثال
var
  myDate : TDateTime;

begin
  myDate := EncodeDate(2015, 4, 3);
  ShowMessage('The month of the year  = '+
              IntToStr(MonthOfTheYear(myDate)));
end;

7- Tomorrow و Yesterday
تظهر تاريخ الغد و الأمس

كود :

التركيبة
Tomorrow : TDateTime;
Yesterday : TDateTime;

مثال
ShowMessage('Yesterday = '+DateToStr(Yesterday));
  ShowMessage('Today     = '+DateToStr(Date));
  ShowMessage('Tomorrow  = '+DateToStr(Tomorrow));