السلام عليكم
اريد طرح الزمن باستخدم الDateTimePicke
هذا الكود لطرح التاريخ
Edit7.Text := IntToStr(DaysBetween(DateTimePicker1.Date, DateTimePicker2.Date));
انا اريد كود يقوم بنفس الشي في الزمن
السلام عليكم
اريد طرح الزمن باستخدم الDateTimePicke
هذا الكود لطرح التاريخ
Edit7.Text := IntToStr(DaysBetween(DateTimePicker1.Date, DateTimePicker2.Date));
انا اريد كود يقوم بنفس الشي في الزمن
اذا كنت تريد طرح الزمن a من b
حول كلاهما الى الثواني قم بالطرح ثم حول النتيجة
تقصد ان اعمل DecodeTime ثم اقوم بطرح
الا يوجد شي اسهل من هذا
التعامل مع الزمن هو تعامل بسيط جدا عند معرفة أن TdateTime أو Ttime ما هوفي الحقيقة سوى متغير من نوع Double
مكون من قسمين القسم العشري وهو يمثل الزمن والقسم الطبيعي وهو يمثل التاريخ كمثال على ذلك
الرقم 39251.7030949769
هو الوقت الحالي الذي أكتب فيه هذا الرد وهو يتكون من
القسم العشري : / 0.7030949769 / وهو يمثل الوقت / م 04:52:27 /
والقسم الطبيعي : / 39251 / ويمثل التاريخ 18/06/2007
طبعا للتأكد من ذلك ما عليك سوى تجربة الكود التالي
Ed_date.Text:=DateToStr(39251.7030949769 ); Ed_time.Text:=timeToStr(39251.7030949769 );
كما يمكنك ملاحظة أن الثانية الواحدة تمثل بالقيمة /0.0000115740740740389 /
لذلك يمكنك الطرح أو الجمع بحرية مع الابتعاد عن الأرقام السلبية طبعا
كما يمكنك التعامل بطريقة بسيطة دون الإلتفات أو حفظ المعلومات الواردة فوق بأستخدام الوقت كنص ثم إعادة تحويله لوقت أو تاريخ
فإذا أردنا مثلا زيادة وقت معين بدقيقة واحدة
time_b := time_a + StrToTime('0:1:0');طبعا توجد دوال جاهزة لكل شيء تطلبه في الوقت والتاريخ في الوحدة DateUtils
مثلا لمعرفة كم الميلي ثانية أو كم دقيقة أو كم ساعة أو ......بين تاريخين أو زمنين
MilliSecondsBetween SecondsBetween MinutesBetween HoursBetween
أو لفصل التاريخ عن الزمن أو الزمن عن التاريخ أو فصل الثواني أو فصل الدقائق أو فصل الساعات
لمعرفة كم الساعة الأن هل هي الرابعة أو الخامسة من دون الإهتمام بالتاريخ أو أجزاء الساعة
أو معرفة هل نحن في الدقيقة الثلاثين او الأربعين من دون الأهتمام بأجزاء الوقت الأخرى
SecondOf() MinuteOf() HourOf() DateOf() MonthOf()
أو لمعرفة أي يوم هذا اليوم في السنة
مثلا يعتبر اليوم 18/6/2007 هو اليوم ال 169 في السنة
كما يمكننا معرفة أي( ساعة أو دقيقة و ثانية أو ميلي ثانية ) مضى منذ بداية( بداية السنة أ الشهر أو الأسبوع أو اليوم)
MinuteOfTheYear() MinuteOfTheMonth() MinuteOfTheWeek() MinuteOfTheDay() . . . Etc
أرجو أن تكون المعلومات عن الوقت والتاريخ كافية لإستفسارك
تم تعديل هذه المشاركة بواسطة decompiler في 18 يونيو 2007 في 16:36
السلام عليك Decompiler
شكرا جزيلا وبارك الله فيك
الشرح واضح جدا جدا
هذا الموضوع مغلق.