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

ايجاد المتبقى من الايام

مغلق
بدأه c_vita في 16 أبريل 2007 · 4 رد · 597 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

طرح تاريخ من تاريخ ما فيه مشكلة ان شاء الله لكن الموضوع تخيل معى

ان مدير مقهى انترنت ولدى زبائن يشتركون اشتراكات خارجية اى فى منازلهم

والاشتراك شهرى ولكن يمكن ان يشترك احده نصف شهر , 50 يوم اى كما يريد حسب تاريخ البداية وتاريخ النهاية للاشتراك

الان ما اريده هو استخراج عدد الايام المتبقية لكل اشتراك بالنسبة الى تاريخ اليوم الحالى

var dt1,dt2:tdatetime;
begin
dt1:=ADOTable1End_Date.Value;
dt2:=StrToDate(FormatDateTime('dd/mm/yyyy',Now));
end;

طبعا ليس هذا ما اريده ولكن اريد الفكرة حيث انها ليست صعبة ولكن لم استطيع التوصل اليها :wacko:

ارجو ان اجد من يمدنى بطرف الخيط جزاكم الله خيرا

#2

طرف الخيط هنا : DateUtils

اضف DateUtils الى الــ uses وشوف ايش فيها ...

وراجع لك في وقت ثاني ... لكن حاول انت الأن .

#3

السلام عليكم

اولا جزاك الله خيرا وعوضك عن هذه المعلومة جبلا من المعلومات

ثم بالنسبة للكود بالاعلى كان ناقصا هذه الفقرة

Form1.Label9.Caption:= IntToStr(trunc(date1) - trunc(date2));

ولا ادرى ان كان استخدامى للدالة التالية صحيح ام ارجو التوضيح

Form1.Label9.Caption:= FloatToStr(DaySpan(Now,date1));
#4

وعليكم السلام

جزاك الله خير على هالدعوة الطيبة .. بارك الله فيك

ما ادري لية .. عندي احساس انك ما جربت اللي قلت لك في ردي السابق ... "DateUtils"

المهم ولا يهمك .. شوف المرفق .. وان شاء الله يفيدك .

c_vita.rar

#5

السلام عليكم

الحقيقة انى جربت ولو لا حظت الدالة dayspan هى من الوحدة DateUtils

ثم إنى لم ادعو لك الا بعد ان اضفت الوحدة ورأيت ما بها من توابع واجراءات بس انا اتسرعت شوية فى الرد

المهم انا وجدت الحل فى daysbeteen ومشكور على المرفق

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

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