PDA

View Full Version : سوال: چگونه با استفاده از تاریخ سیستم یک پیام اخطار بسازم؟


ALINAMAZI
دوشنبه 27 آبان 1387, 07:39 صبح
با سلام
من یک برنامه تعمیرات دارم وقتی که یک دستگاه به تعمیر گاه ارسال میشوددر برنامه در قسمت تاریخ ارسال به تعمیرگاه ثبت میشود و موقع برگشت نیز درقسمت تاریخ برگشت ثبت میشود میخواهم یک شرط بگذارم که اگر مثلا مدت تعمیر از 10 روز بیشتر شد دستگاه اتوماتیک پیام فرضا( از تعمیر گاه برنگشته) را نشان ودر یک dbgrid لیست انهارا به اپراتور نشان دهدو زمان 10 روز را از تاریخ سیستم اتوماتیک خود برنامه حساب کند
لطفا کمک کنید

باتشکر
vcldeveloper
دوشنبه 27 آبان 1387, 08:15 صبح
نوع فیلدهای تاریخ چی هست؟ اگر TDate یا TDateTime هست، میشه با تابع DaysBetween تعداد روزهای بین دو تاریخ را حساب کرد.
ALINAMAZI
دوشنبه 27 آبان 1387, 08:55 صبح
نوع فیلدهای تاریخ چی هست؟ اگر TDate یا TDateTime هست، میشه با تابع DaysBetween تعداد روزهای بین دو تاریخ را حساب کرد.
با تشکر
نوع تاریخ text ldfhan
ALINAMAZI
دوشنبه 27 آبان 1387, 08:59 صبح
با تشکر
نوع تاریخ text می باشد
merced
دوشنبه 27 آبان 1387, 09:42 صبح
تاريخ ها رو به ميلادي تبديل کن و از اون تابعي که آقاي کشاورز معرفي کردند استفاده کن .
توي دلفي ميتوني فيلد Calculate‌ بذاري که و داخل اون اين کارا رو بکني
ALINAMAZI
دوشنبه 27 آبان 1387, 12:16 عصر
تاريخ ها رو به ميلادي تبديل کن و از اون تابعي که آقاي کشاورز معرفي کردند استفاده کن .
توي دلفي ميتوني فيلد Calculate‌ بذاري که و داخل اون اين کارا رو بکني

با تشکر اگر ممکن است دستورات اش را برایم بنویسیئ
merced
دوشنبه 27 آبان 1387, 21:55 عصر
يونيت پيوست رو به پروژه اضافه کن

ميتوني از تابع SolarEncodeDateتاريخ شمسي رو به ميلادي تبديل کني




var y,m,d : Word ;
d1,d2 : TDate ;
begin
StrToYMD(Edit1.Text,y,m,d) ;
d1 := SolarEncodeDate(y,m,d);
StrToYMD(Edit2.Text,y,m,d) ;
d2 := SolarEncodeDate(y,m,d);


ShowMessage(IntToStr(DaysBetween(d1,d2)));
ALINAMAZI
چهارشنبه 29 آبان 1387, 09:46 صبح
يونيت پيوست رو به پروژه اضافه کن

ميتوني از تابع SolarEncodeDateتاريخ شمسي رو به ميلادي تبديل کني




var y,m,d : Word ;
d1,d2 : TDate ;
begin
StrToYMD(Edit1.Text,y,m,d) ;
d1 := SolarEncodeDate(y,m,d);
StrToYMD(Edit2.Text,y,m,d) ;
d2 := SolarEncodeDate(y,m,d);


ShowMessage(IntToStr(DaysBetween(d1,d2)));



با تشکر از شما که وقتتان را برای پاسخ به سئوال ما صرف کردید
من فایل ضمیمه را به برنامه کپی کردم روی فرم یک دکمه گذاشتم و کدهائی که قرار داده بودید وارد کردم ولی موقع اجرا در قسمت begin کدها error میدهد لطفا بفرمائید چه چیز را اشتباه میکنم
merced
چهارشنبه 29 آبان 1387, 17:05 عصر
شايد يونيت هاي DateUtils و SolarUtil رو uses نکردي
ALINAMAZI
پنج شنبه 30 آبان 1387, 09:43 صبح
شايد يونيت هاي DateUtils و SolarUtil رو uses نکردي
با سلام مجدد
وقتیکه uses میکنم هنگام اجرا ء error روی قسمت uses قرار میگیرد

باتشکر