سلام و خسته نباشید به همه دوستان
1-چگونه می تونم اختلاف بین دو ساعت رو که تو mask edit نوشته شده حساب کنم ؟
2-در صورت راهنمایی اگه ساعت به روز بعد کشیده شد رو حساب میکنه ؟
دست بوس همه شما دلفی کاران
محاسبه اختلاف 2 ساعت
سلام و خسته نباشید به همه دوستان
1-چگونه می تونم اختلاف بین دو ساعت رو که تو mask edit نوشته شده حساب کنم ؟
2-در صورت راهنمایی اگه ساعت به روز بعد کشیده شد رو حساب میکنه ؟
دست بوس همه شما دلفی کاران
زمان وارد شده را از String به TDateTime تبدیل کنید ( مثلا با استفاده از تابع StrToDateTime)، بعد می تونید به راحتی آنها را تفریق کنید یا با هم جمع ببنید. اگر فقط می خواید فاصله زمانی بین دو زمان مشخص را بر حسب یک واحد زمانی مشخص بدست بیارید (مثلا تعداد دقایق بین دو زمان، یا تعداد ساعت های بین دو زمان)، می تونید از توابعی مثل MinutesBetween، یا HoursBetween و... استفاده کنید.
در Help دلفی درباره نوع داده TDateTime و یونیت DateUtls تحقیق کنید.
وَ سَيَعْلَمُ الَّذِينَ ظَلَمُوا [آل محمد حقهم] أَيَّ مُنْقَلَبٍ يَنْقَلِبُونَ - الشعراء (227)
و ظالمین [حق آل محمد (ص) ] به زودی خواهند دانست که به کدام بازگشتگاه بازخواهند گشت.
فرمت ساعت شما فرمت DateTime است؟
میتوانید آنها را از هم کم کنید. برای تاریخ و ساعت (فرمت DateTime) اعمال ساده ریاضی را استفاده کنید.
یعنی چی؟ اختلاف ساعت با روز قبل رو هم حساب کنه؟ خب واضحه که باید Date رو هم در کنار آن محاسبه کنید.2-در صورت راهنمایی اگه ساعت به روز بعد کشیده شد رو حساب میکنه ؟
این سورس کار شمارو راه میندازه.. کاری از آقای احدی
موفق باشید................
سلامنوشته شده توسط delphiprog3000
پسر بابا اینها درباره اختلاف 2 تا ساعات دارن بحث می کنند نه اختلاف تاریخ
سلام كد جالي بود .
راستي اين كد رو ميشه در سورس فورم هم نوشت ؟
Label1.Caption:=('تفاضل دو تاريخ برابر است با '+FloatToStr(
StrToDate(maskEdit11.Text)-StrToDate(maskEdit12.Text))+'روز' );
;
اينكه نيازي نباشه روي دكمه كليك كنيم هر دو فيلد كه پر شدند label تفاضل رو نشون بده ؟
اساتيد در اين مورد هم توضيح بدهند متشكرم
خب در Onchange اون Edit ها بنویسید.
سلام اينو امتحان كردم حتي در on key press اديت هم نوشتم ولي موقع درج تاريخ در edit2 چرا با اين خطا مواجه ميشم ؟
من براي maskedit ها از edit mask استفاده كردم حالا اين خطا مياد برام
'/ /13' is not a valid date
button1.caption := TimeToStr(StrToTime('12:55')-StrtoTime('12:40'));
خودتون به MskEdit نصبتش بدین ...
برای اینکه مشکلت برطرف بشه بهتره داخل On Change یک شرطی بگذاری که اگر تاریخ به صورت کامل وارد شود آن وقت بقیه کدت را اجرا کنه.
ميشه بيشتر توضيح بديد در اين مورد اين شرطي كه گفتيد ؟
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول