محاسبه ساعت

با عرض سلام . اگه ميشه در اين رابطه كمكم كنيد :

فرض كنيم دو تا text box داريم . داخل هر يك عددي به عنوان ساعت نوشته شده. چطور ميشه اين ساعات رو از هم كم يا زياد كرد . واضح تر بگم چطور ميشه ثانيه رو از ثانيه --- دقيقه از دقيقه و ساعت از ساعت تفريق يا جمع بشود. ممنون از راهنماييتون

سلام
فكر ميكنم يكي از راهاش اينه كه واسه هر كدوم از ساعت ها يه آرايه تعريف كني(ساعت رو بذاري توش) و سه تا متغير از نوع همون آرايه بطوري كه هر كدوم از اون متغير ها به خونه هاي خاصي از اون آرايه اشاره كنن (هر كدوم شامل دو خونه كه اشاره مي كنن به ساعت دقيقه و ثانيه )بعدش خيلي راحت مي توني روي اون متغير ها عمليات مختلفي رو انجام بدي(هم جمع هم تفريق)با در نظر گرفتن حالت هاي مختلف ساعت ها

براي به دست آوردن اختلاف زماني ميتوني از تابع datediff استفاده كني.

سلام
به تاپيك زير مراجعه كن
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

نقل قول:

---

نوشته شده توسط Aamoo

سلام
فكر ميكنم يكي از راهاش اينه كه واسه هر كدوم از ساعت ها يه آرايه تعريف كني(ساعت رو بذاري توش) و سه تا متغير از نوع همون آرايه بطوري كه هر كدوم از اون متغير ها به خونه هاي خاصي از اون آرايه اشاره كنن (هر كدوم شامل دو خونه كه اشاره مي كنن به ساعت دقيقه و ثانيه )بعدش خيلي راحت مي توني روي اون متغير ها عمليات مختلفي رو انجام بدي(هم جمع هم تفريق)با در نظر گرفتن حالت هاي مختلف ساعت ها

---

----------------------------------------------------------------------------------------------------------------------------------
سلامaamoo . راستش هر کار کردم نتونستم که >>>>> مثال.. 23: 7:12 - 23:04:33 چطور میشه این 2 تا رو از همدیگه کم کرد . اگه واستون امکان داره یه برنامه خیلی ساده از vb به من بدین . اگرم نمیشه هم بازم ممنون

از همه دوستان به خصوص Aamoo ممنونم . راستش هر کار کردم نتونستم که >>>>> مثال.. 23: 7:12 - 23:04:33 چطور میشه این 2 تا رو از همدیگه کم کرد . اگه واستون امکان داره یه برنامه خیلی ساده از vb به من بدین . اگرم نمیشه هم بازم ممنون

دوست عزيز گفتم كه از datediff استفاده كن. شما اين كد رو خط به خط اجرا كن . قبل از اينكه به متغير b مقدار بدي ساعتتو يه ساعت و چند دقيقه بكش جلو. بعد ادامه كدها رو اجرا كن تا طرز كار تابع رو متوجه بشي.

کد:

---

Private Sub Form_Load()
Dim a As Date
    a = Time$
    b = Time$
    Hourr = DateDiff("h", a, b)
    Min = DateDiff("n", a, b)
    Sec = DateDiff("s", a, b)
End Sub

---