Выбор периода и вызов подпрограммы в цикле за каждый месяц этого периода — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «local ip, m, data ip := InputPeriod() m := ( Year( StoD( ip[2] ) ) - Year( StoD( ip[1] ) ) ) * 12 + Month( StoD( ip[2] ) ) - Month( StoD( ip[1] ) ) data := Sto…») |
Hisava (обсуждение | вклад) м |
||
| (не показаны 23 промежуточные версии этого же участника) | |||
| Строка 1: | Строка 1: | ||
| − | local ip, m, data | + | local ip, m, data, ii |
| − | + | ip := inputperiod( true ) | |
| − | ip := | + | if empty( ip ) |
| − | + | return | |
| − | m := ( | + | endif |
| − | + | m := ( year( stod( ip[2] ) ) - year( stod( ip[1] ) ) ) * 12 + month( stod( ip[2] ) ) - month( stod( ip[1] ) ) | |
| − | data := | + | data := stod( ip[1] ) |
| − | + | for ii := 0 to m | |
| − | for | + | sql := [ select * From mtun] + ret_f_ext( data,, ii ) + [ where datdoc between '] + sqldate( ip[1] ) + [' and '] + sqldate( ip[2] ) + [' ] |
| − | + | next | |
| − | + | = Смотрите также = | |
| − | + | [[Шаблоны программ на внутреннем языке фабиуса для повторного использования]] | |
| − | next | + | |
Текущая версия на 14:07, 29 июля 2022
local ip, m, data, ii ip := inputperiod( true ) if empty( ip ) return endif m := ( year( stod( ip[2] ) ) - year( stod( ip[1] ) ) ) * 12 + month( stod( ip[2] ) ) - month( stod( ip[1] ) ) data := stod( ip[1] ) for ii := 0 to m sql := [ select * From mtun] + ret_f_ext( data,, ii ) + [ where datdoc between '] + sqldate( ip[1] ) + [' and '] + sqldate( ip[2] ) + [' ] next
Смотрите также
Шаблоны программ на внутреннем языке фабиуса для повторного использования
