1. 1C / Говнокод #12112

    −124

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    Function	 ms2Str(Миллисекунды) export
	КолВоЧасов=Цел(Миллисекунды/(60*60*1000));
	Остаток=Миллисекунды-КолВоЧасов*60*60*1000;
	КолВоМинут=Цел(Остаток/(60*1000));
	Остаток=Остаток-КолВоМинут*60*1000;
	КолВоСекунд=Цел(Остаток/1000);
	КолВоМиллисекунд=Остаток-КолВоСекунд*1000;
	h=Формат(КолВоЧасов,"ЧЦ=3;ЧН=;ЧВН=")+":";
	if КолВоЧасов=0 then
		 h="";
 endif;	 
   m=Формат(КолВоМинут,"ЧЦ=2;ЧН=;ЧВН=")+":";	 
 if КолВоМинут=0 then
	  m="";
	endif;  
	return h+m+Формат(КолВоСекунд,"ЧЦ=2;ЧН=;ЧВН=")+":"+Формат(КолВоМиллисекунд,"ЧЦ=3;ЧН=;ЧВН=");
endFunction

    Перевод время в миллисекундах в строку. Автор: Жуков А.П.

    Запостил: Danik, 13 Ноября 2012

    Комментарии (10) RSS

    • ava bormand 13.11.2012 07:00 # +1

      > ЧЦ
      Вспомнилось кц.
      Ответить

    • ava guest 13.11.2012 18:02 # +2

      Жуков уже не тот.
      Ответить

    • ava eth0 13.11.2012 18:56 # +3

      Я не понимать. Почему одноэсники так любят изобретать велосипеды - кое-как доходит. Но почему такие кривые? Судя по тому, что семёрочный формат (according to my data) форматной строки без "ЧВН", это восьмёрка. Для восьмёрки же стоит запомнить, что там есть понятие "нулевая дата" с минимальной единицей измерения в секунду. Т.о., можно вообразить некую функцию секунды в формат ("00:00:00"), состоящую из одной строки.
      Возврат Формат('00010101' + Сек, "ДФ=ЧЧ:мм:сс");

      Немного одноэсной магии и грязных костылей и при Сек = 3599, получим ожидаемый результат.
      С другой стороны, вся система, все конфигурации даже подземелья даже шайтан построены из спичек, говна и желудей.
      Ответить

    Добавить комментарий