F
Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе
CTF с учебными материалами Codeby Games
Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.
ого! я о таком и не догадывался даже ))плюс настройками раб. часов для каждого отдельного сотрудника
Наверняка уже писали подобные функции... поделитесь =)Да, ещё вопрос - есть ли какие штатные функции, которые используют Holidays (справочник, который забивается в names.nsf)?
If numDays = 1 Then
seconds = endTime.TimeDifferenceDouble(startTime)
If seconds < 0 Then
BusinessHours = -1
Else
BusinessHours = (seconds / 60) / 60
End If
Exit Function
End If
''*не правильная предпосылка: If @BusinessDays returns the value 1, then the start day and end day are the same working day.
If numDays = 1 Then
'патч ошибки
If(startTime.DateOnly = endTime.DateOnly) Then
' seconds = endTime.TimeDifferenceDouble(startTime)
' If seconds < 0 Then
' BusinessMinutes = -1
' Else
' BusinessMinutes = (seconds / 60)
' End If
BusinessMinutes=OneDayWithLunch(startTime, endTime)
Exit Function
End If
End If
Dim Holiday As Variant
'выходные и празники - из адрессной книги
Holiday =Evaluate({@DbLookup ("Notes":"ReCache"; "} & Dbset .Server & {" :"names.nsf";"Holidays";"Russian";"RepeatStartDate")})
If Isarray(Holiday) Then
'set Holiday array as datetime array
Dim dI As Integer
Forall d In Holiday
Redim Preserve dtHolidays(dI) As NotesDateTime
Set dtHolidays(dI)=New NotesDateTime(d)
dI=dI+1
End Forall
Else
''* loopback for server outage
Holiday_S = "01.01.2009"
Redim dtHolidays(0) As NotesDateTime
Set dtHolidays(0)=New NotesDateTime(Holiday_S)
End If
Обучение наступательной кибербезопасности в игровой форме. Начать игру!