Міністерство освіти і науки України Національний університет «Львівська політехніка» Кафедра САПР ЗВІТ про виконання лабораторної роботи №10 на тему: «Модулі в базах даних» з курсу: «Організація баз даних і знань» Завдання до лабораторної роботи Розробка модулів. Мета Здобути навички в розробці модулів для Access на мові програмування Visual Basic. Хід роботи.
Option Compare Database Public Function WorkdayTime(ByVal BeginTime As Date, ByVal EndTime As Date) As Single Dim NewEnd As Date Dim ET As Double Dim DOW As Integer Const WEEKDAYOFFHRS = 840 Const WEEKENDOFFHRS = 1440 Const FIRSTWORKDAY = vbMonday Const WORKDAYS = 5 ET = DateDiff("n", BeginTime, EndTime) NewEnd = EndTime Do While DateDiff("d", BeginTime, NewEnd) > 0 DOW = Weekday(NewEnd, FIRSTWORKDAY) NewEnd = DateAdd("d", -1, NewEnd) Loop If ET < 0 Then WorkdayTime = DateDiff("n", BeginTime, EndTime) Else WorkdayTime = ET End If End Function