F
15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby
За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.
На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.
Запись на курс до 25 апреля. Получить промодоступ ...
ого! я о таком и не догадывался даже ))плюс настройками раб. часов для каждого отдельного сотрудника
Наверняка уже писали подобные функции... поделитесь =)Да, ещё вопрос - есть ли какие штатные функции, которые используют 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
Обучение наступательной кибербезопасности в игровой форме. Начать игру!