Заказ звонка

Закрыть

*
*
*

Расчет дат запуска\выпуска

Страницы: 1
RSS
Расчет дат запуска\выпуска, Скрипт "Расчет дат запуска\выпуска" в ПСп
Здравствуйте.
В базе данных с примерами, в данном скрипте с открытым кодом есть параметры запуска:
Код
Sub FormMacro_GetLaunchReleaseDate( IProductionBOMs ) 'Расчет дат запуска/выпуска по выделенным ПСп

    Const ParCode1 = "K_CEHA"                      'Коэффициент сменности подразделения (Действительное число)
    Const ParCode2 = "TCS_T_IZG"                   'Время изготовления                  (Действительное число)
    Const ParCode3 = "TCS_TOPR"                    'Время выполнения одной операции, ч  (Действительное число)
    Const CalendarTypeNote = "Односменная работа"      'Тип календаря
    Const Tpr = 1.25                               '1.25 стандартно Среднее время пролеживания перед сборкой, ч
    
    Call CSDN_GetLaunchReleaseDate.SetLaunchReleaseDate( IProductionBOMs, ParCode1, ParCode2, ParCode3, CalendarTypeNote, Tpr )
    Call IProductionBOMs.Refresh
End Sub

При замене типа календаря с "Односменная работа" на любой другой из справочника "Календари" при выполнении скрипта выводится следующая ошибка:
Рисунок

со ссылкой на строчку:
Код
GetEndTime = CDate( DateValue(CurrentDate) & " " & TimeSerial( Hour(StartTime), Minute(StartTime) + ICalendar.Properties( "WorkTime" ).AsSafeFloat, Second(StartTime) ))

Что подскажете? Спасибо.
Изменено: Дмитрий Стародубцев - 25.12.2012 13:06:29
Цитата
Дмитрий Стародубцев пишет:
Что подскажете?
Посмотрите что передаётся в функцию CDate
Код
MsgBox DateValue(CurrentDate) & " " & TimeSerial( Hour(StartTime), Minute(StartTime) + ICalendar.Properties( "WorkTime" ).AsSafeFloat, Second(StartTime) ),0,0   

Выводит следующее:
Код
22.11.2012 31.12.1899 5:30:00


Откуда он такие старые года берет?
Изменено: Дмитрий Стародубцев - 26.12.2012 07:42:14
Цитата
Дмитрий Стародубцев пишет:
Откуда он такие старые года берет?
Разбирайте по кусочкам
Страницы: 1
Читают тему (гостей: 1, пользователей: 0, из них скрытых: 0)