Выбор периода и вызов подпрограммы в цикле за каждый день этого периода — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
(не показано 14 промежуточных версий этого же участника) | |||
Строка 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] ) | |
− | my := | + | end_data := stod( ip[2] ) + 1 |
− | + | while my <> end_data | |
− | end_data := | + | |
− | + | ||
− | while my <> end_data | + | |
− | + | 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] ) + ' )'
Пример
Смотрите также
Шаблоны программ на внутреннем языке фабиуса для повторного использования