html

среда, 27 апреля 2011 г.

1С Пример работы с датой

Для версии 1с 8.2 сделал внешнюю обработку .В ней пример работы с датой.

Код обработки

-------------------------Код программы----------------------
&НаКлиенте
Процедура КомандаПосчитать(Команда)
   // Вставить содержимое обработчика.
   // 1 надо вывести НачалоРаботы
   Сообщить ("Начало работы") ;
   // 2 проверить поле 'исходная дата' на заполнение
   Сообщить ("Исх.Дата= "+ ДатаВход) ;
   ЕСЛИ ДатаВход ='00010101000000' // год месяц день время
   ТОГДА // сообщение и выход из процедуры
       Сообщить ("Поле дата не заполнено") ;
       RETURN ;
   КОНЕЦЕСЛИ ;
   // 3 вывести поле 'количество дней'
   Сообщить ("Количество дней= " + КоличествоДней) ;
   // 4 подсчет новой даты

   // дни переводятся в секунды, после этого суммирование
   ДатаВыход = ДатаВход + КоличествоДней * 3600*24 ;


КонецПроцедуры
-----------------------------------------------------------
саму обработку можно скачать здесь ПримерРаботыСдатой2.epf

Комментариев нет: