Domino Code Fragment

Code Name*
Code for calculating business days in LotusScript.		Date*
04/28/2024		Source (or email address if you prefer)*
Rlatulippe@romac.com
IP address:.18.118.200.86
Description*
Calculates the business days		Type*
LotusScript		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:


installdate = uidoc.Fieldgettext("TeamInstallDate")
Dim dt As New notesdatetime(installdate)
Dim dt1 As New notesdatetime(installdate)
result = Number of BusinessDays(dt1.LocalTime,
dt.LocalTime)

Function Number_of_Business_Days(StartField As String,
EndField As String )
As Integer
Dim startdate As Double, enddate As Double
Dim diffDays As Variant, strtDay As Variant, endDay As
Variant, result
As Variant
Dim max1 As Variant, min1 As Variant

startdate = Cdbl(Datevalue(StartField))
enddate = Cdbl(Datevalue(EndField))
diffDays = enddate-startdate +1
strtDay = Weekday(Datevalue(StartField)) Mod 7
endDay = Weekday(Datevalue(EndField)) Mod 7
If -2 > -Cint(strtDay) Then
max1 = -2
Else
max1=-Cint(strtDay)
End If

If 1 < Cint(endDay) Then
min1 = 1
Else
min1 = Cint(endDay)
End If

result = (Cint(diffDays) - Cint(endDay) + Cint(strtDay) - 8) * 5 / 7 -
max1- min1+5 - Cint(strtDay) + Cint(endDay)
Number_of_Business_Days = result
End Function