FILL AND DANCE 2 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| (не показаны 3 промежуточные версии этого же участника) | |||
| Строка 1: | Строка 1: | ||
| − | FILL_AND_DANCE_2 - это процедура из справочника [[R266]] | + | [[FILL_AND_DANCE_2]] - это процедура из справочника [[R266]] |
| − | + | Заполнить документ [[AND]] за период | |
| − | Заполнить документ [[AND]] за период | + | = Текст = |
| − | + | local ip, my, end_data | |
| − | = Текст | + | |
| − | + | ||
| − | local ip, my, end_data | + | |
| − | ip := InputPeriod( true ) | + | ip := [[InputPeriod]]( true ) |
| − | if Empty( ip ) | + | if [[Empty]]( ip ) |
return | return | ||
endif | endif | ||
| − | my := StoD( ip[1] ) | + | my := [[StoD]]( ip[1] ) |
| − | end_data := StoD( ip[2] ) + 1 | + | end_data := [[StoD]]( ip[2] ) + 1 |
while my <> end_data | while my <> end_data | ||
| − | Fill_and_dance( my ) | + | [[Fill_and_dance]]( my ) |
my := my + 1 | my := my + 1 | ||
end | end | ||
| + | = Смотрите также = | ||
| + | [[Полезные функции]] | ||
| + | |||
| + | [[Функции Delphi]] | ||
Текущая версия на 16:58, 2 августа 2017
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
