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

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

Версия 11:17, 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