المقارنة بين زمنين : التاريخ والوقت

يمكن المقارنة بين زمنين باستعمال أوامر الدلفي الموجودة في الوحدة :

الكود:

DateUtils;

من هذه الأوامر ما يلي :

• الأمر DaySpan  يعطينا عدد الأيام الفاصلة بين تاريخين والعدد المحصل عليه يكون من نوع Double.
  
• الأمر DaysBetween يعطينا عدد الأيام الفاصلة بين تاريخين والنتيجة تكون عبارة عن عدد من نوع Integer
  
• الأمران WeeksSpan و WeeksBetween للحصول على عدد الأسابيع الفاصلة بين تاريخين.
  
• ألأمران : MonthSpan و MonthsBetween للحصول على عدد الشهور الفاصلة بين تاريخين.
  
• الأمران : YearSpan و YearsBetween للحصول على الفرص بين تاريخين مقدر بالسنوات .
  
• الأمران :  MinuteSpan و MinutesBetween  للحصول على الفرق بين تاريخين مقدر بالدقائق 
  
• الأمران : HourSpan و HoursBetween للحصول على الفرق بين تاريخين مقدر بالساعات. 
  

وهذا مثال على استعمال هذه الأوامر:
على إطار في تطبيق دلفي نضيف العناصر الموضحة في الشكل:
ونكتب الكود التالي : 

procedure TForm1.EdDate1Change(Sender: TObject);
var
 time1, time2: TTime;
 date1, date2: TDate;
begin
 Memo1.Lines.Clear;
 { Compare the two dates }
 date1 := EdDate1.dateTime;
 date2 := EdDate2.dateTime;
 Memo1.Lines.Add(IntToStr(CompareDate(date1, date2)));
 Memo1.Lines.Add('الوقت المستهلك بين التاريخين بالأيام: ' +
   FloatToStr(DaySpan(date1, date2)) + 'يوم');
 Memo1.Lines.Add(' عدد الأيام بين التاريخين: ' + FloatToStr(DaysBetween(date1,
   date2)) + ' يوم');
 Memo1.Lines.Add('عدد الأسابيع  المستهلكة: ' + FloatToStr(WeekSpan(date1,
   date2)) + ' أسبوع');
 Memo1.Lines.Add('الأسابيع بين التاريخين: ' + FloatToStr(WeeksBetween(date1,
   date2)) + ' أسبوع');
 Memo1.Lines.Add('الشهور المستهلكة: ' + FloatToStr(MonthSpan(date1, date2))
   + ' شهرا');
 Memo1.Lines.Add('الشهور بين التاريخين بين التاريخين: ' +
   FloatToStr(MonthsBetween(date1, date2)) + ' شهرا');
 Memo1.Lines.Add('السنوات المستهلكة: ' + FloatToStr(YearSpan(date1, date2))
   + ' سنة');
 Memo1.Lines.Add('السنوات بين التاريخين: ' + FloatToStr(YearsBetween(date1,
   date2)) + 'سنة ');
end;

الحصول على معلومات عن التاريخ

Memo1.Lines.Clear;
 date1 := StrToDate(edDate1.Text);
 Memo1.Lines.Add('رقم  اليوم في الأسبوع: ' + IntToStr(DayOfTheWeek(date1)));
 Memo1.Lines.Add('رقم اليوم في الشهر: ' + IntToStr(DayOfTheMonth(date1)));
 Memo1.Lines.Add('رقم اليوم في السنة: ' + IntToStr(DayOfTheYear(date1)));
 Memo1.Lines.Add('ترتيب الأسبوع : ' + IntToStr(WeekOf(date1)));
 Memo1.Lines.Add('رقم   الأسبوع في الشهر: ' + IntToStr(WeekOfTheMonth(date1)));
 Memo1.Lines.Add('ترتيب الأسبوع في السنة: ' + IntToStr(WeekOfTheYear(date1)));
 Memo1.Lines.Add('رقم الشهر في السنة: ' + IntToStr(MonthOfTheYear(date1)));

عرض التاريخ والوقت الحاليين :

 { الحصول على التاريخ والوقت }
  time1 := Time;//الوقت الحالي (الساعة)
  time2 := Time;//
  date1 := Today;//اليوم (تاريخ اليوم)
  date2 := Tomorrow;//تاريخ الغد
  edTime1.Text := TimeToStr(time1);
  edTime2.Text := TimeToStr(time2);
  edDate1.Text := DateToStr(date1);
  edDate2.Text := DateToStr(date2);