Выбор периода и вызов подпрограммы в цикле за каждый день этого периода — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м
Строка 10: Строка 10:
 
   my := my + 1
 
   my := my + 1
 
  end
 
  end
 +
 +
M->QwrTitle := ' ( ' + StoD( ip[1] ) + ' - ' + StoD( ip[2] ) + ' )'
 
= Пример =
 
= Пример =
 
[[DRILL_AND_FILL]]
 
[[DRILL_AND_FILL]]

Версия 11:16, 8 декабря 2017

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
  my := my + 1
end
M->QwrTitle := ' ( ' + StoD( ip[1] ) + ' - ' + StoD( ip[2] ) + ' )'

Пример

DRILL_AND_FILL

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

Шаблоны программ на внутреннем языке фабиуса для повторного использования

QwrTitle