آموزش Excel

[مهندس بیاتسرپرست]

مهندس بیات

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

مجموع زمان کارکرد : هنگامی که در برنامه خود که با اکسس نوشته شده است قصد داشته باشید تا مجموع ساعات کارکرد یک نفر یا دستگاه را محاسبه کنید می توانید با استفاده از کد نویسی در محیط VBA اینکار را انجام دهید. برای این منظور ابتدا کدهای زیر را در یک ماژول کپی کنید. شما می بایست یک جدول داشته باشید که یک فیلد از نوع Time در آن ایجاد شده است. جدول را به یک فرم متصل کنید و مطابق تصویر تابع GetTimeRoozanehTotal را در یک Text Box فراخوانی کنید.

---

Visual Basic

Function GetTimeRoozanehTotal() 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("TimeRoozaneh") interval = #12:00:00 AM# While Not rs.EOF interval = interval + rs![Roozaneh] 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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Function GetTimeRoozanehTotal()          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("TimeRoozaneh")          interval = #12:00:00 AM#                          While Not rs.EOF                interval = interval + rs![Roozaneh]                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