FILL AND DANCE 2 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Смотрите также) |
||
Строка 23: | Строка 23: | ||
= Смотрите также = | = Смотрите также = | ||
[[Полезные функции]] | [[Полезные функции]] | ||
+ | |||
+ | [[Функции Delphi]] |
Версия 11:37, 10 апреля 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