' 1) количество рабочих дней читается из таблицы Б/Д - qdfOrders поле "ExecutionTime", тип целое.
' 2) выходные и праздничные дни - в таблице tblHolidays, заполение на совести оператора.

Option Explicit

Const adOpenStatic     = 3
Const adLockOptimistic = 3

Dim strDatabase
Dim lngID

Dim objFSO
Dim objConnection
Dim objRecordset

Dim dtStartDate
Dim dtEndDate
Dim lngCount

Dim prevLocale


If WScript.Arguments.Count = 2 Then
    strDatabase = Mid(WScript.Arguments(0), 2)
    lngID = Mid(WScript.Arguments(1), 2)
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    If objFSO.FileExists(strDatabase) Then
        prevLocale = SetLocale()
        SetLocale("en-us")
        Set objConnection = CreateObject("ADODB.Connection")
        Set objRecordset  = CreateObject("ADODB.Recordset")
        objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& strDatabase &";"
        
        With objRecordset
            .Open "SELECT * FROM qdfOrders WHERE ID = " & lngID & "", objConnection, adOpenStatic, adLockOptimistic
            dtStartDate = .Fields("OrderDate").Value
        lngCount    = .Fields("ExecutionTime").Value 
        .Close
            
            .Open _
                "SELECT * FROM tblHolidays"& _
                " WHERE HolidayDate BETWEEN #"& dtStartDate &"#"& _
                " AND #"& DateAdd("d", lngCount*2+1, dtStartDate) &"#", _
                objConnection, adOpenStatic, adLockOptimistic
            
            dtEndDate = DateAdd("d", lngCount, dtStartDate)
            
            .Filter  = "HolidayDate>=#"& dtStartDate &"# AND HolidayDate<=#"& dtEndDate &"#" 
            lngCount = .RecordCount
            
            Do While lngCount>0
                dtStartDate = DateAdd("d", 1, dtEndDate)
                dtEndDate   = DateAdd("d", lngCount, dtEndDate)
                .Filter  = "HolidayDate>=#"& dtStartDate &"# AND HolidayDate<=#"& dtEndDate &"#"
                lngCount = .RecordCount
            Loop
            
            .Close
        End With
        
        objConnection.Execute "UPDATE qdfOrders SET DoneDate=#" & dtEndDate & "# WHERE ID=" & lngID
        
        objConnection.Close
        Set objRecordset  = Nothing
        Set objConnection = Nothing
        SetLocale(prevLocale)
    Else
        WScript.Echo "Database file [" & strDatabase & "] not found"
    End If
    
    Set objFSO = Nothing
Else
    WScript.Echo "Usage from toolbar on [Склад и торговля]:"
    WScript.Echo "" & WScript.ScriptName & " /[CurrentDB] /[ID]"
End If

WScript.Quit 0

Option Explicit

Const adOpenStatic     = 3
Const adLockOptimistic = 3

Dim strDatabase
Dim lngID

Dim objFSO
Dim objConnection
Dim objRecordset

Dim dtStartDate
Dim dtEndDate
Dim lngCount

Dim prevLocale


If WScript.Arguments.Count = 2 Then
    strDatabase = Mid(WScript.Arguments.Item(0), 2)
    lngID = Mid(WScript.Arguments.Item(1), 2)
    
    Set objFSO        = WScript.CreateObject("Scripting.FileSystemObject")
    Set objConnection = WScript.CreateObject("ADODB.Connection")
    Set objRecordset  = WScript.CreateObject("ADODB.Recordset")
    
    If objFSO.FileExists(strDatabase) Then
        objConnection.Open "Provider = Microsoft.Jet.OLEDB.4.0; " & _
            "Data Source = '" & strDatabase & "'"
        
        With objRecordset
            .Open "SELECT * FROM qdfOrders WHERE ID = " & CStr(lngID) & "", objConnection, adOpenStatic, adLockOptimistic
            dtStartDate = CDate(.Fields.Item("OrderDate").Value)
            .Close
            
            .Open "SELECT * FROM tblHolidays", objConnection, adOpenStatic, adLockOptimistic
            
            dtEndDate = dtStartDate
            lngCount = 0
            
            Do Until lngCount >= 21
                dtEndDate = DateAdd("d", 1, dtEndDate)
                
                Select Case WeekdayName(Weekday(dtEndDate))
                    Case "суббота", "воскресенье"
                    
                    Case Else
                        prevLocale = SetLocale("en-us")
                        .Filter = "HolidayDate = #" & dtEndDate & "#"
                        SetLocale(prevLocale)
                        
                        If .RecordCount = 0 Then
                            lngCount = lngCount + 1
                        End If
                End Select
            Loop
            
            .Close
        End With
        
        prevLocale = SetLocale("en-us")
        objConnection.Execute "UPDATE qdfOrders SET DoneDate = #" & dtEndDate & "# WHERE ID = " & CStr(lngID) & ""
        SetLocale(prevLocale)
        
        objConnection.Close
    Else
        WScript.Echo "Database file [" & strDatabase & "] not found"
    End If
    
    Set objRecordset  = Nothing
    Set objConnection = Nothing
    Set objFSO        = Nothing
Else
    WScript.Echo "Usage from toolbar on [Склад и торговля]:"
    WScript.Echo "" & WScript.ScriptName & " /[CurrentDB] /[ID]"
End If

WScript.Quit 0

<Путь>\Имя скрипта.vbs /[CurrentDB] /[ID]

Option Explicit

Const adOpenStatic     = 3
Const adLockOptimistic = 3

Dim dtStartDate
Dim dtEndDate
Dim lngCount

Dim objConnection
Dim objRecordset

Dim prevLocale


Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset  = CreateObject("ADODB.Recordset")

objConnection.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = 'E:\Песочница\0158\Приложение Microsoft Office Access.mdb'"
objRecordset.Open "SELECT * FROM Holidays", objConnection, adOpenStatic, adLockOptimistic

dtStartDate = CDate("09.07.2012")

WScript.Echo FormatDateTime(dtStartDate, vbLongDate)

dtEndDate = dtStartDate
lngCount = 0

Do Until lngCount >= 21
    dtEndDate = DateAdd("d", 1, dtEndDate)
    
    Select Case WeekdayName(Weekday(dtEndDate))
        Case "суббота", "воскресенье"
            
        Case Else
            prevLocale = SetLocale("en-us")
            objRecordset.Filter = "HolidayDate = #" & dtEndDate & "#"
            SetLocale(prevLocale)
            
            If objRecordset.RecordCount = 0 Then
                lngCount = lngCount + 1
            End If
    End Select
Loop

objRecordset.Close
objConnection.Close

WScript.Echo FormatDateTime(dtEndDate, vbLongDate)

Set objRecordset  = Nothing
Set objConnection = Nothing

WScript.Quit 0

ID    HolidayDate
1    20.07.2012
2    21.07.2012
3    22.07.2012
4    23.07.2012
5    24.07.2012

/**
 * Date.prototype.getWorkingDaysInMonth
 *
 * @syntax
 * object.getWorkingDaysInMonth()
 *
 * @description
 * Метод преобразует примитивное значение объекта Date в 
 * количество рабочих дней в месяце. 
 *
 * Ненулевое значение в первом аргументе подразумевает 
 * 6-дневаную неделю (по умолчанию 5 дней в неделе). 
 *
 * Второй параметр - целое число, указывающая количество праздников, 
 * выпадающих на рабочие дни, или функция, которая вычисляет данное 
 * число на основании объекта Date, передаваемого функции. 
 *
 * @param	Integer
 * @param	Callback|Integer
 * @result	Integer
 * @access	public
 */
Date.prototype.getWorkingDaysInMonth = function(longWeek, holidays)
{
	var here = new Date(this.getFullYear(), this.getMonth() + 1, 0);
	var dim = here.getDate();
	var ldm = here.getDay();

	var t = typeof holidays;
	var h = 
		t == 'number' 
		? holidays 
		: t == 'function' 
		? holidays(this) 
		: 0;

	return arguments.callee[longWeek ? 6 : 5][dim][ldm] - h;
};

// Weekday of the last day in month
// Short week - 5 days' week
Date.prototype.getWorkingDaysInMonth[5] = {
	//   Sun Mon Tue Wed Thu Fri Sat
	28: [20, 20, 20, 20, 20, 20, 20],
	29: [20, 21, 21, 21, 21, 21, 20],
	30: [20, 21, 22, 22, 22, 22, 21],
	31: [21, 21, 22, 23, 23, 23, 22]
};

// Long week - 6 days' week
Date.prototype.getWorkingDaysInMonth[6] = {
	//   Sun Mon Tue Wed Thu Fri Sat
	28: [24, 24, 24, 24, 24, 24, 24],
	29: [24, 25, 25, 25, 25, 25, 25],
	30: [25, 25, 26, 26, 26, 26, 26],
	31: [26, 26, 26, 27, 27, 27, 27]
};