Есть готовая функия в типовых?

да.

поделить на (60*24), поделить на 60

(2) Знаю, просто хотел посмотреть и сравнить с моим

(3) а что, могут быть варианты?

(4) Может мой код не компактный по сравнению с типовым

(5) думаешь, ихний код занимает меньше одной строчки?

(6) Просто интересно, какой у них метод. Просто спортивны

й интерес

свою покажи

Здесь имеется ввиду, что 480 минута - это 1 день            




ВсегоВремени  = Услуги.Итог("Время");
           Если ВсегоВремени < 60 Тогда
               ЭлементыФормы.Услуги.Колонки.Время.ТекстПодвала = Строка(ВсегоВремени)+" м.";
           ИначеЕсли ВсегоВремени = 60 Тогда
               ЭлементыФормы.Услуги.Колонки.Время.ТекстПодвала = " 1 ч.";
           ИначеЕсли ВсегоВремени > 60 И ВсегоВремени < 480 Тогда
               ЭлементыФормы.Услуги.Колонки.Время.ТекстПодвала = Строка(Цел(ВсегоВремени/60))+" ч."+Строка(ВсегоВремени%60)+" м.";
           ИначеЕсли ВсегоВремени = 480 Тогда
               ЭлементыФормы.Услуги.Колонки.Время.ТекстПодвала = "1 д.";
           ИначеЕсли ВсегоВремени > 480 Тогда
               //Здесь еще не дописал
           КонецЕсли;

жесть

продолжить надо так
ИначеЕсли ВсегоВремени = 540 Тогда
 ЭлементыФормы.Услуги.Колонки.Время.ТекстПодвала = "1 д. 1ч. ";
и т.д.

Дни = ЦЕЛ(Минуты / 60 / 24) и т.д., если не 0 тогда добавляй свой "Х д."
проще же

Строка(Цел(ВсегоВремени/86400))+" д. "+Строка(Цел(ВсегоВремени/3600))+" ч. "+Строка(Цел(ВсегоВремени/60))+" м. "+Строка(ВсегоВремени%60)+" с."

и попадешь в будущее или прошлое

(14) Это было шутка, да?

(16) почему?

(17) Ты проверь 3218 минут в этой формуле

(18) ну ВсегоВремени * 60 сделай сначала. он писал для секунд

2(16) не шутка, просто человек секунды преобразовал
тебе так:
Строка(Цел(145/1440))+" д. "+Строка(Цел(145/60))+" ч. "+Строка(145%60)+" м. "

а, ну да, не обратил внимание, что речь про минуты, а не секунды

автор, с похмелья чтоль?) не ожиданно как то

http://screencast.com/t/KouYxX2b6q

Строка(Цел(145/1440))+" д. "+Строка(Цел(145 - Цел(145/1440)*1440)/60)) и т.д.

ИначеЕсли ВсегоВремени = 480 Тогда
               ЭлементыФормы.Услуги.Колонки.Время.ТекстПодвала = "1 д.";
Это полный бред, это даже не полдня

(19) ок. А если всего 60 минут, тогда должна отображаться только "1 ч."
Здесь эта формула бессильна.
А еще, если всего 123 минута, тогда дни не должны отображатся.

(10) "Здесь еще не дописал" :D
Спасибо за поднятое с утра настроение ;)

(26) да ёшкин кот. а дописать слабо?

2(26) ну то есть ты никак не сможешь сконвертироватьсвой почти восьмилетний опыт сидения на форуме в какой-то код, который учтет это?

(28) Все таки твоя изяшная формула дорастет до размера моего кода, не так? :)

(30) нет

(30) нет
Дни = ...
Часы = ...
Месяцы = ...
Строка = ?(Дни >0, Строка(Дни) + " д.", "") + ....

при желании в одну строку слепить

*месяцы = минуты

?(ВсегоВремени>=1440,Строка(Цел(ВсегоВремени/1440))+" д. ","")+?(ВсегоВремени>=60,Строка(Цел(ВсегоВремени/60))+" ч. ","")+Строка(Цел(ВсегоВремени%60))+" м. "

Функция ФорматВремени( КоличествоСекунд )
   
   Если КоличествоСекунд < 24*60*60 Тогда
       
       Возврат Формат( Дата(1,1,1) + КоличествоСекунд , "ДФ='HH""ч."" mm""м.""'; ДП=0:00:00" );
       
   Иначе
       
       Возврат Формат( Дата(1,1,1) + КоличествоСекунд - 24*60*60, "ДФ='dd ""д."" HH""ч."" mm""м.""'; ДП=0:00:00" );
       
   КонецЕсли;
   
КонецФункции

(34) Указал 60 минут, вот что выдает: "1ч. 0 м."

Так что не бинго :)

(36)  а что, это не так?

(37) В этом случае "0 м." не должен обображатся

(38) кто сказал?

(39) Ну клиент так хочеть

(0) шо - опять!?

(38) > (32)
З.ы. точно с похмелья ТС, это ж школьные алгоритмы

(42) Давайте профессор, удивите меня. Ваш код в студию плиз.

(35) малость не то, т.е. если 86400, то результат 00:00:00, а дни вообще не считает

(43)
Дни = Строка(Цел(ВсегоМин/1440);
Часы = Строка(Цел(ВсегоМин - Дни*1440)/60)) ;
Минуты= Строка(ВсегоМин %60)+" м. ";
Строка = ?(Дни >0, Строка(Дни) + " д.", "") + ?(Часы >0, Строка(Часы ) + " ч.", "") + ?(Минуты>0, Строка(Минуты) + " м.", "");  

на коленке писал, синтаксис подправиш если чо

*Минуты= Строка(ВсегоМин %60);

(45)
{Форма.ФормаОтчета(10)}: Операции сравнения на больше-меньше допустимы только для значений совпадающих примитивных типов (Булево, Число, Строка, Дата)
Результат = ?(Дни >0, Строка(Дни) + " д.", "") + ?(Часы >0, Строка(Часы ) + " ч.", "") + ?(Минуты>0, Строка(Минуты) + " м.", "");

пачему еще не было запроса? непорядок.

ВЫБРАТЬ
   РАЗНОСТЬДАТ(&Дата1, ДОБАВИТЬКДАТЕ(&Дата1, МИНУТА, &КолМинут), ДЕНЬ) КАК День,
   ЧАС(ДОБАВИТЬКДАТЕ(&Дата1, МИНУТА, &КолМинут)) КАК Час,
   МИНУТА(ДОБАВИТЬКДАТЕ(&Дата1, МИНУТА, &КолМинут)) КАК Минута

(47) всё за тебя делать? хватит издеваться то ёлки палки

(48) Тут есть маленький ньюанс.
Здесь день не 1440 минут, а 480 минут

(49) Ты давай, не отвлекайся. Доделай формулу :)

(51) учёл (46)?

код в студию полный

(50) че за планета? ))) умножай на 3

Короче, текст должен выглядеть так:
0 минут     = ""
1 минут     = "1м."
60 минут    = "1ч."
61 минут    = "1ч.1м."
480 минут   = "1д."
481 минут   = "1д.1м"
540 минут   = "1д.1ч"
541 минут   = "1д.1ч.1м"
581 минут   = "1.2ч.1м."

и т.д.

(55)
читай (45) и (47).

Дни = Строка(Цел(ВсегоМин/480);
Часы = Строка(Цел(ВсегоМин - Дни*480)/60));

(57) Ты же переменные привел к строке, а потом сравниваешь на больше с 0, поэтому наверное  и матерится, не?

лол

ВЫБРАТЬ
   РАЗНОСТЬДАТ(&Дата1, ДОБАВИТЬКДАТЕ(&Дата1, МИНУТА, &КолМинут*3), ДЕНЬ) КАК Дней,
   ЧАС(ДОБАВИТЬКДАТЕ(&Дата1, МИНУТА, &КолМинут-480*(РАЗНОСТЬДАТ(&Дата1, ДОБАВИТЬКДАТЕ(&Дата1, МИНУТА, &КолМинут*3), ДЕНЬ)))) КАК Часов,
   ЧАС(ДОБАВИТЬКДАТЕ(&Дата1, МИНУТА, &КолМинут-480*(РАЗНОСТЬДАТ(&Дата1, ДОБАВИТЬКДАТЕ(&Дата1, МИНУТА, &КолМинут*3), ДЕНЬ)))) КАК Минут

(58) да, это копипаст такой) на коленке писал, такие то ошибки автор сможет исправить?

Дни = Цел(ВсегоМин/480);
Часы = Цел(ВсегоМин - Дни*480)/60);
Минуты= ВсегоМин %60;
Строка = ?(Дни >0, Строка(Дни) + " д.", "") + ?(Часы >0, Строка(Часы ) + " ч.", "") + ?(Минуты>0, Строка(Минуты) + " м.", "");

(60) Зачем ему самому доделывать? Он тут нашел негров и понукает (51). Я бы не стал с ним возиться.

(60) судя по его стартовому алгоритму и замечаниям - по этому поводу есть сомнения...:)

ЧислоСекунд = Число(ТекущаяДата()-НачалоДня(ТекущаяДата()));
Т = Дата("00010101") + ЧислоСекунд;
   
ЧасыМинутыСекунды = "" + ?(Час(Т)<>0,СокрЛП(Час(Т))+"ч.","") + ?(Минута(Т)<>0,СокрЛП(Минута(Т))+"м.","") + ?(Секунда(Т)<>0,СокрЛП(Секунда(Т))+"с.","");
   
Сообщить(ЧасыМинутыСекунды);
Возврат;

(63) у него в сутках 8 часов. рабочее время считает видимо

(60) Неа.
Опять облом

(65) конкретней

Часы = Цел(ВсегоМин)/60);
Дни = ?(Часы>8, ЦЕЛ(Часы/3), 0);
Часы = Часы - Дни*3;
Минуты= ВсегоМин %60;
Строка = ?(Дни >0, Строка(Дни) + " д.", "") + ?(Часы >0, Строка(Часы ) + " ч.", "") + ?(Минуты>0, Строка(Минуты) + " м.", "");

(66)
4 = "0,066666666666666666666666667 ч.4 м"

(68) скобку передвинь, чо и это за тебя делать? я не тестирую

в (67) правильней имхо будет

* Дни = ?(Часы>8, ЦЕЛ(Часы/8), 0);

Ффу. Наконецо реши. Вот Код:

Функция ПреобразоватьЧислоВВремя(ВсегоВремени) Экспорт
   Перем Остаток,Остаток2,Д,Ч;
   Если ВсегоВремени = 0 Тогда
       Возврат "";
   КонецЕсли;    
   Д        = ?(Цел(ВсегоВремени/480)=0,"",Строка(Цел(ВсегоВремени/480))+"д.");
   Остаток     = Всеговремени%480;
   Ч         = ?(Цел(Остаток/60)=0,"",Строка(Цел(Остаток/60))+"ч.");
   М         =?(ВсегоВремени%60=0,"",Строка(ВсегоВремени%60)+"м.");
   Возврат Д+Ч+М;
КонецФункции    


ЗЫ. Если кто нибудь надйте более короткий код или найдет в этом коде изьян, тому респект.
Всем спасибо.

что такое "более короткий"? без переводов строк и лишних переменных - будет ли считаться более коротким?

(75) Проверить текс кода через
СтрДлина(Заменить(ТекстКода,""," "))

У кого самый короткий, тот круче :)
Это кодомер, у кого короче :)

код не должен быть коротким. Он должен быстрее работать. А длиннее, короче - нефига не критерий.

(76) Однако зачем там Остаток2 у вас? Это как бы резервная переменная? Она находится на подхвате, если остальные переменные глюканут?

(77) имеется ввиду: скорость такая же, но код короче

(78) Я в спешке постанул, потом убрал его

вот после преобразования:

Функция ПреобразоватьЧислоВВремя(ВсегоВремени) Экспорт
   Д        = ?(Цел(ВсегоВремени/480)=0,"",Строка(Цел(ВсегоВремени/480))+"д.");
   Ч         = ?(Цел(Всеговремени%480/60)=0,"",Строка(Цел(Всеговремени%480/60))+"ч.");
   М          =?(ВсегоВремени%60=0,"",Строка(ВсегоВремени%60)+"м.");
   Возврат ?(ВсегоВремени=0,"",Д+Ч+М);
КонецФункции

(79) улучшайзинг - зло отнимающее время. Лучше его на какие нибудь курсы это время потратить.

(82) Отцепись, а?

(81) нашел вот старую программу, вроде короче:

   Минут = Вр % 60;
   ДнейЧасов = (Вр - Минут) / 60;
   Если ДнейЧасов < 24 Тогда
       Возврат Прав("0" + СокрЛП(ДнейЧасов), 2) + ":" + Прав("0" + СокрЛП(Минут), 2);
   Иначе
       Часов = ДнейЧасов % 24;
       Дней = (ДнейЧасов - Часов) / 24;
       Возврат СокрЛП(Дней) + "д" + Прав("0" + СокрЛП(Часов), 2) + ":" + Прав("0" + СокрЛП(Минут), 2);
   КонецЕсли;

(84) проверь через:
СтрДлина(Заменить(ТекстКода,""," "))