FILL AND DANCE 2 — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м
 
(не показаны 2 промежуточные версии этого же участника)
Строка 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

Смотрите также

Полезные функции

Функции Delphi