برمجة وبرامج


أهلا وسهلا بك زائرنا الكريم, أنت لم تقم بتسجيل الدخول بعد! يشرفنا أن تقوم بالدخول أو التسجيل إذا رغبت بالمشاركة في المنتدى

منتدى هواة البرامج » المنتدى التقني » نصوص برمجية بلغة الدلفي » المقارنة بين زمنين : التاريخ والوقت

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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل  رسالة [صفحة 1 من اصل 1]

1 المقارنة بين زمنين : التاريخ والوقت في الأحد أبريل 09, 2017 12:05 pm

يمكن المقارنة بين زمنين باستعمال أوامر الدلفي الموجودة في الوحدة :
الكود:
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);

معاينة صفحة البيانات الشخصي للعضو

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة  رسالة [صفحة 1 من اصل 1]

صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى