محاسبه اختلاف 2 ساعت

[MY DEAR DELPHI]

سلام و خسته نباشید به همه دوستان
1-چگونه می تونم اختلاف بین دو ساعت رو که تو mask edit نوشته شده حساب کنم ؟
2-در صورت راهنمایی اگه ساعت به روز بعد کشیده شد رو حساب میکنه ؟
دست بوس همه شما دلفی کاران

[vcldeveloper]

زمان وارد شده را از String به TDateTime تبدیل کنید ( مثلا با استفاده از تابع StrToDateTime)، بعد می تونید به راحتی آنها را تفریق کنید یا با هم جمع ببنید. اگر فقط می خواید فاصله زمانی بین دو زمان مشخص را بر حسب یک واحد زمانی مشخص بدست بیارید (مثلا تعداد دقایق بین دو زمان، یا تعداد ساعت های بین دو زمان)، می تونید از توابعی مثل MinutesBetween، یا HoursBetween و... استفاده کنید.
در Help دلفی درباره نوع داده TDateTime و یونیت DateUtls تحقیق کنید.

[Hsimple11]

فرمت ساعت شما فرمت DateTime است؟
میتوانید آنها را از هم کم کنید. برای تاریخ و ساعت (فرمت DateTime) اعمال ساده ریاضی را استفاده کنید.


2-در صورت راهنمایی اگه ساعت به روز بعد کشیده شد رو حساب میکنه ؟

یعنی چی؟ اختلاف ساعت با روز قبل رو هم حساب کنه؟ خب واضحه که باید Date رو هم در کنار آن محاسبه کنید.

[delphiprog3000]

این سورس کار شمارو راه میندازه.. کاری از آقای احدی

موفق باشید................

[Loveski]

این سورس کار شمارو راه میندازه.. کاری از آقای احدی

موفق باشید................

سلام
پسر بابا اینها درباره اختلاف 2 تا ساعات دارن بحث می کنند نه اختلاف تاریخ:گریه:

[hentjanson]

سلام كد جالي بود .
راستي اين كد رو ميشه در سورس فورم هم نوشت ؟


Label1.Caption:=('تفاضل دو تاريخ برابر است با '+FloatToStr(
StrToDate(maskEdit11.Text)-StrToDate(maskEdit12.Text))+'روز' );
;

اينكه نيازي نباشه روي دكمه كليك كنيم هر دو فيلد كه پر شدند label تفاضل رو نشون بده ؟‌

[hentjanson]

اساتيد در اين مورد هم توضيح بدهند متشكرم

[Hsimple11]

خب در Onchange اون Edit ها بنویسید.

[hentjanson]

سلام اينو امتحان كردم حتي در on key press اديت هم نوشتم ولي موقع درج تاريخ در edit2 چرا با اين خطا مواجه ميشم ؟‌
من براي maskedit ها از edit mask استفاده كردم حالا اين خطا مياد برام


'/ /13' is not a valid date

[Felony]

button1.caption := TimeToStr(StrToTime('12:55')-StrtoTime('12:40'));

خودتون به MskEdit نصبتش بدین ...

[Loveski]

سلام اينو امتحان كردم حتي در on key press اديت هم نوشتم ولي موقع درج تاريخ در edit2 چرا با اين خطا مواجه ميشم ؟‌
من براي maskedit ها از edit mask استفاده كردم حالا اين خطا مياد برام

برای اینکه مشکلت برطرف بشه بهتره داخل On Change یک شرطی بگذاری که اگر تاریخ به صورت کامل وارد شود آن وقت بقیه کدت را اجرا کنه.

[hentjanson]

ميشه بيشتر توضيح بديد در اين مورد اين شرطي كه گفتيد ؟