1С, как и полагается программе учетной и поэтому бухгалтерской, хранить много дат, для управления и доступа к которым имеются специальные функции.
188. Выберите Модуль, закомментируйте Пример 20
189. Ничего не пропускайте! Введите код:
Пример 25.22. Встроенные функции дат и времени
// Пример 21 процедура Выполнить( ) рДата = РабочаяДата( ); //рабочая дата Сообщить(рДата); Сообщить(ТекущаяДата( )); // системная дата, по умолчанию систмная=рабочей Сообщить(ДобавитьМесяц(рДата, -2)); Сообщить(НачМесяца(рДата)); // 01.11.03 Дата начала месяца, которому принадлежит дата Сообщить(КонМесяца(рДата)); // 30.11.03 нКвартала = НачКвартала(рДата); кКвартала = КонКвартала(рДата); Сообщить(нКвартала); // 01.10.03 Сообщить(кКвартала); // 31.12.03 Сообщить(НачГода(рДата)); // 01.01.03 Сообщить(КонГода(рДата)); // 31.12.03 Сообщить(НачНедели(рДата)); // 24.11.03 Сообщить(КонНедели(рДата)); // 29.11.03 Сообщить(ДатаГод(рДата)); // 2003 Сообщить(ДатаМесяц(рДата)); // 11 Сообщить(НомерДняГода(рДата)); //332 Сообщить(НомерДняНедели(рДата)); // 6 Сообщить(ПериодСтр(нКвартала, кКвартала)); // 4 Квартал 2003 г. конецПроцедуры // Выполнить
190. Проверьте синтаксис.
191. Сохраните обработку: Ctrl+S.
192. Запустите 1С:Предприятие: нажмите F11, выберите Начало | Пуск, нажмите Пуск
Функциютекущее время часто употребляют для замера времени вычислений, но только продолжительных, так как миллисекунды не возвращаются.
193. Выберите Модуль, закомментируйте Пример 21
194. Ничего не пропускайте! Введите код:
Пример 25.23. Время вычислений
// пример 22
процедура Выполнить( ) // Замеряет время вычислений
перем нЧас, нМин, нСек; // нСек - время начало вычислений
перем кЧас, кМин, кСек; // кСек - время конца вычислений
перем времяВычислений;
перем ин, с;
ТекущееВремя(нЧас, нМин, нСек); // Фиксируем время начала вычислений
// Некоторые вычисления
с = 0;
для ин = 1 по 500000 цикл
с = с + (ин * 2) / ин;
конецЦикла;
ТекущееВремя(кЧас, кМин, кСек); // время конца вычислений
// Время вычислений в секундах
времяВычислений = (кЧас - нЧас) * 3600 + (кМин - нМин) * 60 + (кСек - нСек);
Сообщить("Длительность процесса равна " + времяВычислений + "
сек.");
конецПроцедуры
195. Проверьте синтаксис.
196. Сохраните обработку: Ctrl+S.
197. Запустите 1С:Предприятие: нажмите F11, выберите Начало | Пуск, нажмите Пуск, у меня вышло 6 сек.