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

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

Текущая версия на 15:48, 22 января 2020

local sql, 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