Выбор периода и вызов подпрограммы в цикле за каждый день этого периода — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «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 // по…») |
Hisava (обсуждение | вклад) м |
||
Строка 2: | Строка 2: | ||
ip := InputPeriod( true ) | ip := InputPeriod( true ) | ||
+ | |||
if Empty( ip ) | if Empty( ip ) | ||
return | return | ||
Строка 7: | Строка 8: | ||
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 | ||
+ | |||
// подпрограмма, например CAM_1901( my, _ ), где my - дата, а _ - таблица для заполнения | // подпрограмма, например CAM_1901( my, _ ), где my - дата, а _ - таблица для заполнения | ||
+ | |||
my := my + 1 | my := my + 1 | ||
+ | |||
end | end |
Версия 09:53, 30 января 2015
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
// подпрограмма, например CAM_1901( my, _ ), где my - дата, а _ - таблица для заполнения
my := my + 1
end