محاسبه کارکرد یک دستگاه

[mohsenaminzare]

با سلام به دوستان
من طبق جدول زیر میخواهم کارکرد یک دستگاه را در روز محاسبه کنم لطفا کمکم کنید.
(کد vb)


اگر ساعت شروع وپایان بین ساعت 7 تا 13 بود از کارکرد 15 دقیقه به عنوان استراحت کم می شود.
اگر ساعت شروع وپایان بین ساعت 13 تا 16:30 بود از کارکرد 45 دقیقه به عنوان استراحت کم می شود.
اگر ساعت شروع وپایان بین ساعت 7 تا 16:30 بود از کارکرد 60 دقیقه به عنوان استراحت کم می شود.

مانند مثال زیر ▼

[ƒxmahdi]

با استفاده از تابع Hour ساعت را بدست آورده و عملیات مورد نظر را انجام دهید برای مثال :



If Hour(Time) >= 7 And Hour(Time) <= 13 Then
دستورات مورد نظر
End If

[vbhamed]

سلام
اینم راهش
تو متغیرهای S1 و S2 باید به ترتیب ساعت شروع و پایان رو بدی


Dim s1 As Date, s2 As Date

s1 = #7:12:00 AM#
s2 = #4:50:00 PM#

Dim h1%, h2%, m2%, Karkard&

h1 = Hour(s1)
h2 = Hour(s2)

m2 = Minute(h2)

Karkard = Abs(DateDiff("n", s1, s2))

If h1 >= 7 And h2 < 13 Then
Karkard = Karkard - 15

ElseIf h1 >= 13 And h2 <= 16 And m2 <= 30 Then
Karkard = Karkard - 45

ElseIf h1 >= 7 And h2 <= 16 And m2 <= 30 Then
Karkard = Karkard - 60

End If

MsgBox Karkard & " Minutes"

[mohsenaminzare]

با تشکر از لطف شما
در برنامه اگر ساعتهای 8:00 و 16:00 را وارد کنیم جواب 7:45 است . که غلط است .

[vbhamed]

سلام
من تست کردم
اگر ساعتهایی که گفتین رو وارد کنیم برنامه بالا دقیقا جواب می ده 420 دقیقه که تقسیم بر 60 میشه دقیقا 7 ساعت
البته اصلش 8 ساعته که شما گفتین 60 دقیقه برای استراحت کم بشه و اینم کم شده
احتما اشکالی در روال تبدیل دقیقه به ساعت خود شما وجود داره