четверг, 1 сентября 2016 г.

Работа с типами Дата и Время

Взято с http://forum.infostart.ru/forum9/topic4593/
Работа с типами Дата и Время в 1С

Конфигурация использующая ВК, врятли получит сертификат 1С-Совместимо.

//время хранится в строковой переменной формата 99:99

// получение текущего времени в формате "время"
Функция ВремяТекущееВремя() Экспорт
ТЧ="";ТМ="";ТекущееВремя(ТЧ,ТМ);
Возврат Формат(Число(ТЧ),"Ч(0)2")+":"+Формат(Число(ТМ),"Ч(0)2");
КонецФункции


// Преобразование из формата "время" в "число"
Функция ЧислоВремя(Парам) Экспорт
Возврат Число(Сред(Парам,1,2))+Число(Сред(Парам,4,2))/60;
КонецФункции


// Преобразование из формата "число" в "время"
Функция ВремяЧисло(Парам) Экспорт
Возврат Формат(Цел(Парам),"Ч(0)2")+":"+Формат((Парам-Цел(Парам))*60,"Ч(0)2");
КонецФункции


// сложение двух параметров в формате "время" и возврат итога в том же формате
Функция СложитьВремя(Парам1,Парам2) Экспорт
Возврат ВремяЧисло(ЧислоВремя(Парам1)+ЧислоВремя(Парам2));
КонецФункции


// вычитание двух параметров в формате "время" и возврат итога в том же формате
Функция ВычестьВремя(Парам1,Парам2) Экспорт
Возврат ВремяЧисло(ЧислоВремя(Парам1)-ЧислоВремя(Парам2));
КонецФункции

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

Отправить комментарий