الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

مغلق
بدأه الصياد في 13 مايو 2005 · 5 رد · 845 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

أعزائي محتاج الدوال اللي تتعامل مع الوقت وكيف يمكن أن اطرح وقتين من بعض ؟

مثلا الساعة 11:30 - 10:30 الناتج بيكون 1:00

وكيف يمكن التغيير بين نظام الـ 24 ساعة ونظام صباح ومساء

وأي دالة عن الوقت يمكن أن تفيدني .

ودمتم بخير أعزائي

#2

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

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

/index.php?showtopic=64680

دعواتك يا اخي

أضاعوني وأي فتى أضاعـوا * * * ليـوم كــريهـة وســـداد ثغــــر

وخـــــلونـي ومعتـرك المنايـا * * * وقد شـــرعوا أسنــتهم لنحـري

كأني لم أكــــــن فيهـم وسيطـا * * * ولم تك نســبتي في آل عمــرو

أجرر في الجـــوامع كـل يـوم * * * ألا لله مظــــلمتـي وهـصـــري

عسى الملك المجيب لمن دعاه * * * سينجيني فيعلم كيــف شكـري

فأجـــزي بالكرامـة أهـل ودي * * * وأجزي بالضـغينة أهل ضري

منتديات الرياضيات العربية

#3

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

أخي romanof مشكور

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

شكرا

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

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

أضاعوني وأي فتى أضاعـوا * * * ليـوم كــريهـة وســـداد ثغــــر

وخـــــلونـي ومعتـرك المنايـا * * * وقد شـــرعوا أسنــتهم لنحـري

كأني لم أكــــــن فيهـم وسيطـا * * * ولم تك نســبتي في آل عمــرو

أجرر في الجـــوامع كـل يـوم * * * ألا لله مظــــلمتـي وهـصـــري

عسى الملك المجيب لمن دعاه * * * سينجيني فيعلم كيــف شكـري

فأجـــزي بالكرامـة أهـل ودي * * * وأجزي بالضـغينة أهل ضري

منتديات الرياضيات العربية

#5
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
#6

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

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

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

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

هذا الموضوع مغلق.

مواضيع مشابهة