كيف يمكن التعامل مع الوقت؟

اهلا و مرحبا بك اخي

واضح انك لم تعمل بحث بالمنتدى الرابط بالاسفل قد يكون مفيدا لك

/index.php?showtopic=64680

دعواتك يا اخي

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

أخي romanof مشكور

لا انا عملت بحث واللي اريده هو كيف اتعامل مع الوقت مش التاريخ

شكرا

Now  تعيد الوقت والتاريخ الحاليين
Time  تعيد الوقت الحالى 
GetTime تعيد الوقت الحالى لا فرق بينهما 
TimeToStr تحول الوقت الى سلسلة  احرف string
StrToTime تحول الى سلسلة  احرف string الى وقت 
Date   تعيد التاريخ الحالي 
Tomorrow تعيد ناريخ الغد
Yesterday تعيد تاريخ الامس

هذا ماتوافر لدي واعذرونا عل التقصير

Time Functions:
	MinutesBetween(Atime,Btime);// Counts the number of minutes between two given times
	HoursBetweem(Atime,Btime);// Counts the number of minutes between two given times
	IncMinutes(Atime,Amount)// NewTime:=Atime+Amount (in Minutes)
	Example :  NextTime:=23:00+30=23:30;
	IncMinutes(Atime,-Amount) // NewTime:=Atime-Amount(In Minutes)
	Example: PreviousTime:=23:00-30=22:30;

There are more but I need to refreshing my memory. I will back in shaa allah

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

كيف حالكم اخوتي إن شاء الله بخير وبصحة يارب

اخي الصياد هذا مثال بسط كنت قد عملته بالسابق ارجو ان يفيدك

procedure TForm1.Timer1Timer(Sender: TObject);
var
  t1,t2:TDateTime;
  h,h2,min,min2,s,s2,ms,ms2:word;
begin
  h2:=StrToInt(Edit1.Text);
  min2:=StrToInt(Edit2.Text);
  s2:=StrToInt(Edit3.Text);
  ms2:=StrToInt(Edit4.Text);
  t1:=Time;
  Label1.Caption := TimeToStr(t1);
  t2:=EncodeTime(h2,min2,s2,ms2);
  Label2.Caption :=  TimeToStr(t2);
  DecodeTime(Time,h,min,s,ms );
  Label10.Caption:=(IntToStr(ABS((h2-h))));
  Label11.Caption:=(IntToStr(ABS(min2-min)));
  Label12.Caption:=(IntToStr(ABS(s2-s)));
  Label13.Caption:=(IntToStr(ABS(ms2-ms)));
  end;

وهذا ملف مرفق

time.rar