可以從2006/02/06~2006/02/17判斷出為六天

在LS，你可以以2006/02/06為StartDate，2006/02/17為EndDate，使用AdjustDay(1)的日期為CheckDATE
當CheckDATE為2006/02/17時停止判斷

判斷週六、週日，你可以使用Weekday(CheckDate)回傳出來的值，為"1"就是星期日，"7"就是星期六，就不用累加入請假的日期中

你先試著寫寫看，若是寫不出來我在貼上程式碼供您參考




Dim s As New NotesSession
Dim ws As New NotesUIWorkspace
Dim Doc As NotesDocument
Set Doc=ws.CurrentDocument.Document

Dim StartDate As New NotesDateTime(Doc.AAA(0))'----表單上的開始日期
Dim EndDate As New NotesDateTime(Doc.BBB(0))'----表單上的結束日期
NotBusinessDays=0'---計算不含星期六日的天數

Do While StartDate.DateOnly<>EndDate.DateOnly
Result=Weekday(StartDate.DateOnly)
If Result<>1 And Result<>7 Then
NotBusinessDays= NotBusinessDays+1
End If
Call StartDate.AdjustDay(1)
Loop


@BusinessDays