Germany | Finland | Saint Petersburg | Drive

TimeFrame_Translate()

Опубликовано в QPILE

Вот функция, которая переводит количество секунд, которое определяет интервал графика  в "человекочитабельный" вид. Согласитесь, если в таблице, формируемой роботом на экране стоит число 7200 секунд, это одно, а если строка "2 часа" - совсем другая песня. 

' Переводит таймфрейм в секундах в строковое представление. Возвращает строку с названием таймфрейма
' Максимальный таймфрейм - День
' При ошибке возвращается пустая строка
FUNC TimeFrame_Translate(result)
          result = trim(substr(" 1 мин 2 мин 3 мин 4 мин 5 мин 6 мин 10 мин15 мин30 мин1 час 2 часа4 часаДень ",(1+Find_In_List("60,120,180,240,300,360,600,900,1800,3600,7200,14400,86400",result))*6,6))
END FUNC

или макросом (что гораздо удобнее и быстрее)

define(TimeFrame_Translate,trim(substr(" 1 мин 2 мин 3 мин 4 мин 5 мин 6 мин 10 мин15 мин30 мин1 час 2 часа4 часаДень ",(1+Find_In_List("60,120,180,240,300,360,600,900,1800,3600,7200,14400,86400",`$1'))*6,6)))
Добавить комментарий