FILL AND DANCE 2 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «FILL_AND_DANCE_2 - это процедура из справочника R266») |
Hisava (обсуждение | вклад) м |
||
Строка 1: | Строка 1: | ||
FILL_AND_DANCE_2 - это процедура из справочника [[R266]] | FILL_AND_DANCE_2 - это процедура из справочника [[R266]] | ||
+ | |||
+ | Заполнить документ [[AND]] за период | ||
+ | |||
+ | = Текст программы = | ||
+ | |||
+ | local 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 | ||
+ | Fill_and_dance( my ) | ||
+ | my := my + 1 | ||
+ | end |
Версия 11:44, 4 мая 2016
FILL_AND_DANCE_2 - это процедура из справочника R266
Заполнить документ AND за период
Текст программы
local 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 Fill_and_dance( my ) my := my + 1 end