//****************************************************************************
//возвращает строку в формате времени "00:00:00"
Функция глФорматВремя(ЧасХ=0,МинХ=0,СекХ=0) Экспорт
Возврат Формат(ЧасХ,"Ч(0)2")+":"+Формат(МинХ,"Ч(0)2")+":"+Формат(СекХ,"Ч(0)2");
КонецФункции
//****************************************************************************
// По сроке формата времени возвращает
Процедура глВремяФормат(ВремяХ,ЧасХ,МинХ,СекХ) Экспорт
ЧасХ=Число(Лев(ВремяХ,2));
МинХ=Число(Сред(ВремяХ,4,2));
СекХ=Число(Прав(ВремяХ,2));
КонецПроцедуры
//***********************************************************************
// формирует хроно код на оси времени
Функция глХроноПозиция(ДатаХ,ВремяХ) Экспорт
Перем ЧасХ,МинХ,СекХ;
_ДатаГод*977616000+_ДатаМес*2678400+_ДатаЧисло*86400+ЧасХ*3600+МинХ*60+СекХ;
_ДатаХ=Число(ДатаХ);
глВремяФормат(ВремяХ,ЧасХ,МинХ,СекХ);
Возврат _ДатаХ*86400+ЧасХ*3600+МинХ*60+СекХ;
КонецФункции //
//*************************************************************************
// преобраззует хроно код в дату и время
//*************************************************************************
// преобраззует хроно код в дату и время
Функция глПозицияХроно(Знач ПозицияХ,ДатаХ=0,ВремяХ="00:00:00") Экспорт
_ДатаХ=Цел(ПозицияХ/86400);
ПозицияХ=ПозицияХ-(_ДатаХ*86400);
ЧасХ=Цел(ПозицияХ/3600);
ПозицияХ=ПозицияХ-(ЧасХ*3600);
МинХ=Цел(ПозицияХ/60);
ПозицияХ=ПозицияХ-(МинХ*60);
СекХ=ПозицияХ;
ДатаХ = Дата(_ДатаХ);
ВремяХ = глФорматВремя(ЧасХ,МинХ,СекХ);
Если ПустоеЗначение(ДатаХ)=1 Тогда
Возврат ВремяХ;
Иначе
Возврат ""+ДатаХ+"; "+ВремяХ;
КонецЕсли;
КонецФункции
шрифт кода покрупнее - нельзя! тогда строки не будуь влазить подлине и будут с переносами - будет ваще криво! именно из-за этого и уменьшили шрифт с моей наводки...
для правильной работы - юзай Оперу, жмешь серый плюс и получаешь масштаб + 10 процентов ...