Взято с 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));
КонецФункции
Работа с типами Дата и Время в 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));
КонецФункции
Комментариев нет:
Отправить комментарий