Выбор периода и вызов подпрограммы в цикле за каждый день этого периода — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
(не показано 13 промежуточных версий этого же участника) | |||
Строка 1: | Строка 1: | ||
− | local ip, my, end_data | + | local sql, ip, my, end_data |
− | + | ip := inputperiod( true ) | |
− | ip := | + | if empty( ip ) |
− | + | ||
− | if | + | |
return | return | ||
− | endif | + | endif |
+ | my := stod( ip[1] ) | ||
+ | end_data := stod( ip[2] ) + 1 | ||
+ | while my <> end_data | ||
− | my := | + | my := my + 1 |
+ | end | ||
− | + | m->qwrtitle := ' ( ' + stod( ip[1] ) + ' - ' + stod( ip[2] ) + ' )' | |
− | + | = Пример = | |
− | + | [[DRILL_AND_FILL]] | |
− | + | = Смотрите также = | |
− | + | [[Шаблоны программ на внутреннем языке фабиуса для повторного использования]] | |
− | + | ||
− | + | ||
− | + | [[QwrTitle]] |
Текущая версия на 15:48, 22 января 2020
local sql, ip, my, end_data ip := inputperiod( true ) if empty( ip ) return endif my := stod( ip[1] ) end_data := stod( ip[2] ) + 1 while my <> end_data
my := my + 1 end
m->qwrtitle := ' ( ' + stod( ip[1] ) + ' - ' + stod( ip[2] ) + ' )'
Пример
Смотрите также
Шаблоны программ на внутреннем языке фабиуса для повторного использования