جمع زمان کارکرد

• محاسبه جمع زمان کارکرد در اکسس

در یکی دیگر از بخش های آموزش Access اینبار قصد داریم تا در خصوص نحوه محاسبه جمع زمان کارکرد در نرم افزار اکسس صحبت کنیم. فرض کنید یک جدول داریم که در داخل آن میزان ساعت کارکرد پرسنل یا دستگاه هایی را وارد کرده ایم و قصد داریم تا جمع کارکرد آنها را بدست آوریم.

در این جدول که بنام Table1 است ، یک فیلد به نام Zaman داریم که از نوع Date/Time می‌باشد. البته شما می توانید هر نامی را برای جدول یا فیلد خود انتخاب کنید اما در کدهای نوشته شده در ماژولی که در ادامه ملاحظه خواهید کرد از این اسامی استفاده شده است و در صورتی که قصد تغییر نام جدول و فیلد مورد نظر را دارید بایستی در کدها به دنبال دو عبارت گفته شده بگردید و آن را به نام هایی که می‌خواهید تغییر دهید.

Function GetTimeRoozanehTotal()
'www.mrplanner.ir
Dim db As Database, rs As Recordset
Dim totalhours As Long, totalminutes As Long
Dim days As Long, Hours As Long, Minutes As Long
Dim interval As Variant, j As Integer
Set db = DBEngine.Workspaces(0).Databases(0)
Set rs = db.OpenRecordset("Table1")
interval = #12:00:00 AM#
While Not rs.EOF
interval = interval + rs![Zaman]
rs.MoveNext
Wend
totalhours = Int(CSng(interval * 24))
totalminutes = Int(CSng(interval * 1440))
Hours = totalhours Mod 24
Minutes = totalminutes Mod 60
GetTimeRoozanehTotal = totalhours & ":" & Minutes
End Function

نکته بعدی که لازم است به آن اشاره ای داشته باشیم این است که هنگامی که یک فرم ایجاد می کنید و قصد نمایش جمع زمان کارکرد یا حتی ورود اطلاعات زمانی را دارید بهتر است از خاصیت Input Mask استفاده کنید و آن در حالت Short Time معرفی کنید تا نمایش زمان شما شکل بهتری به خود بگیرد.

• در صورتی که می خواهید نوع نمایش بشکل زیر باشد ؛ بایستی خط آخر کد را بشکل زیر اصلاح کنید:

 13 ساعت و 20 دقيقه

GetTimeRoozanehTotal = totalhours & "ساعت و" & Minutes & "دقيقه"