Доброго времени суток!
Может кто-нибудь сталкивался с подобной задачей.
За основу взять код http://infostart.ru/public/87282/
Все вроде бы прозрачно :

Если ЗначениеЗаполнено(ДатаНачалаПлан) Тогда
    NewTask.Start = ДатаНачалаПлан + Hour * 9;
КонецЕсли;
Если ЗначениеЗаполнено(ДатаОкончанияПлан) Тогда
    NewTask.Finish = ДатаОкончанияПлан + Hour * 18;
КонецЕсли;

Однако, если ДатаНачалаПлан приходится на субботу, то Project сам автоматом переносит ее на понедельник.

(0) в прожекте есть календарь, сделай выходные рабочими

делай новый календарь, и потом пиши ТвойПроект.Calendar="ТвойКалендарь"
можно стандартный "24 часа" использовать

(2)+ или меняй стандартный

(1)
Сделал...
Все равно что-то съехало.
Если смотреть в отладчике
в момент когда присваивается  
NewTask.Start = ДатаНачалаПлан + Hour * 9;

Там ДатаНачалаПлан  еще суббота, а NewTask.Start  уже сам становится понедельником

(2) попробую 24 часа

(2)

Что-то вываливается с ошибкой :

Ошибка при установке значения атрибута контекста (Calendar)
    MSProject.ActiveProject.Calendar="24 часа";
по причине:
Типы не совпадают (0)

(6)[MSProject.ActiveProject.Calendar="24 часа"; ]
вряд ли в (2) имелось в виду прямое присвоение

(7) как тогда присвоить, подскажите )

(8) надо обойти семейство календарей, найти нужный по названию и присвоить, MSDN тебе в помощь

(9) +1
вероятно нужно пробежать итератором по ActiveProject.BaseCalendars(3).Name

как ни будь так
Для Каждого Ст=0 ПО ActiveProject.BaseCalendars.Count() Цикл

(10) Спасибо!
Буду курить

(11) не факт, что сработает, но форумов по VBA в достатке и в нем есть отладчик

Для Каждого СтрКалендарь Из  MSProject.ActiveProject.BaseCalendars Цикл
        
        НаименованиеКалендаря = СокрЛП(СтрКалендарь.Name);
        Сообщить(НаименованиеКалендаря);
        
    КонецЦикла;

(13) выдает имена календарей ))

(14) СтрКалендарь.Name - выдает имена календарей ))
ну да

В итоге :
НужныйКалендарь = Неопределено;
    Для Каждого СтрКалендарь Из  MSProject.ActiveProject.BaseCalendars Цикл
        
        НаименованиеКалендаря = СокрЛП(СтрКалендарь.Name);
        Сообщить(НаименованиеКалендаря);
        Если НаименованиеКалендаря = "24 часа" Тогда
            НужныйКалендарь = СтрКалендарь;    
        КонецЕсли;
    КонецЦикла;
    
    Если НужныйКалендарь <> Неопределено Тогда
        MSProject.ActiveProject.Calendar=НужныйКалендарь;
    КонецЕсли;

(16) и все равно та же история, сдвинулось на понедельник

(17) пора тебе открыть для себя другие сайты =)

(18) типа пикабу? )

(19) угу