ประมาณนี้ครับ
dim session as new notessession
dim db as notesdatabase
dim doc as notesdocument
set db = session.currentdatabase
set doc = new notesdocument(db)
doc.datesToExclude = Evaluate(|datesToExclude := @Time(2013; 2; 25; 0; 0; 0) : @Time(2013; 4; 15; 0; 0; 0) : @Time(2013; 4; 16; 0; 0; 0) : @Time(2013; 4; 17; 0; 0; 0)|,doc)
doc.totalDay = Evaluate(|@If(!@IsTime(dteStartDay);@Return(0);!@IsTime(dteFinishday);@Return(0);type = "";@Return(0);@IsMember(type; "4" : "5" : "10");@BusinessDays(dteStartDay; dteFinishday);@BusinessDays(dteStartDay; dteFinishday; 1:7; datesToExclude))|, doc)
|