Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти і науки України
Національний університет «Львівська політехніка»
Кафедра САПР
ЗВІТ
про виконання лабораторної роботи №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
Висновок: На даній лабораторній роботі я ознойрмився з мовою програмування Visual Basic та розробив модуль для своєї бази даних.