ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как выполнит цикл от одной даты к другой
15 сообщений из 15, страница 1 из 1
Как выполнит цикл от одной даты к другой
    #39610635
Rustam Ergashev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rustam Ergashev
Гость
Нужно обработат этот запрос по дням.
Код: pascal
1.
2.
3.
4.
5.
6.
7.
for dat:= DBDateTimeEditEh2.Text to DBDateTimeEditEh3.Text do
  begin
     DMForm.qrQq.Close;
     DMForm.qrQoldiq2.ParamByName('dat').Value:=dat;
     DMForm.qrQoldiq2.ParamByName('vc').AsString:=vc;
     DMForm.qrQoldiq2.Open;
  end;



Это пример. У меня не получается организовать работу цикла.

Модератор: Пользуйтесь тегом (кнопкой) SRC для оформления кода, пожалуйста.
...
Рейтинг: 0 / 0
05.03.2018, 13:50
| Ответить | Цитировать | Написать  
Как выполнит цикл от одной даты к другой
    #39610637
LSV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LSV
Участник
дата это просто число.
Можно получить из дат целые числа и сделать цикл с Д1 по Д2.
...
Рейтинг: 0 / 0
05.03.2018, 13:55
| Ответить | Цитировать | Написать  
Как выполнит цикл от одной даты к другой
    #39610641
Rustam Ergashev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rustam Ergashev
Гость
Это как? что то не доходить, можно подробна.

типа
For i=datetoint(DATE1) to datetoint(DATE2) do

....
DMForm.qrQoldiq2.ParamByName('dat').Value:=inttodate(i);
i=i+1;
...
Рейтинг: 0 / 0
05.03.2018, 14:02
| Ответить | Цитировать | Написать  
Как выполнит цикл от одной даты к другой
    #39610664
pit_alex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pit_alex
Участник
Rustam Ergashev,

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
var
  d1, d2: TDateTime;
  i, j: integer;
begin
  d1 := EncodeDateTime(2018, 2, 01, 8, 0, 0,0);
  d2 := EncodeDateTime(2018, 2, 05, 9, 0, 0,0);

  j := 0;
  for i := Trunc(d1) to Trunc(d2) do begin
    ShowMessage(DateToStr(Trunc(IncDay(d1, j))));
    inc(j);
  end;
...
Рейтинг: 0 / 0
05.03.2018, 14:26
| Ответить | Цитировать | Написать  
Как выполнит цикл от одной даты к другой
    #39610672
Фотография DarkMaster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMaster
Участник
Rustam Ergashev,

Модуль DateUtils содержит все, что тебе нужно.
...
Рейтинг: 0 / 0
05.03.2018, 14:31
| Ответить | Цитировать | Написать  
Как выполнит цикл от одной даты к другой
    #39610673
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Док
Участник
Rustam Ergashev,

в цикле for..to..do переменная должна иметь перечислимый тип. TDateTime - вещественное число. Приведение datetoint(DATE1) приведет к ошибке, потому что 6018637 .

Задача у тебя хоть какая?
...
Рейтинг: 0 / 0
05.03.2018, 14:32
| Ответить | Цитировать | Написать  
Как выполнит цикл от одной даты к другой
    #39610679
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
StartDate := int(StrToDateTime(DBDateTimeEditEh2.Text));
N := int(StrToDateTime(DBDateTimeEditEh3.Text)) - int(StrToDateTime(DBDateTimeEditEh2.Text));
for i := 1 to N do
aDate := StartDate + i;
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
05.03.2018, 14:38
| Ответить | Цитировать | Написать  
Как выполнит цикл от одной даты к другой
    #39610710
Rustam Ergashev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rustam Ergashev
Гость
>>Задача у тебя хоть какая?


Форме есть два поля ввода для получения отчета по филиалам. Нужно получить отчет например от 1,02,2018 до 28,02,2018 но столбику на каждый день. отчет вывожу в Эксель
типа этого
_______________________________________________
Филиал | Остаток |
01.02.2018| 02.02.2018 | ....... |28.02.2018|
фил1 | 2560 | 1897 | 2158 | 3521 |
фил2 | 3652 | 2512 | 2540 | 4123 |
на один день уже сделал а вот на период не получается. С датами не получается.
...
Рейтинг: 0 / 0
05.03.2018, 15:29
| Ответить | Цитировать | Написать  
Как выполнит цикл от одной даты к другой
    #39610726
DesWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DesWind
Гость
Rustam Ergashev,

Код: pascal
1.
2.
3.
4.
  for c:=Trunc(Date1) to Trunc(Date2) do
  begin
    ....
  end;
...
Рейтинг: 0 / 0
05.03.2018, 15:58
| Ответить | Цитировать | Написать  
Как выполнит цикл от одной даты к другой
    #39610729
Rustam Ergashev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rustam Ergashev
Гость
DesWindRustam Ergashev,

Код: pascal
1.
2.
3.
4.
  for c:=Trunc(Date1) to Trunc(Date2) do
  begin
    ....
  end;



вот здесь как использовать .... Дату на запросе.
DMForm.qrQoldiq2.ParamByName('dat').Value:= Дата из цикла.
...
Рейтинг: 0 / 0
05.03.2018, 16:06
| Ответить | Цитировать | Написать  
Как выполнит цикл от одной даты к другой
    #39610736
s62
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
s62
Участник
Rustam Ergashev,

можно использовать функцию DateUtils.IncDay и цикл while или repeat until.
...
Рейтинг: 0 / 0
05.03.2018, 16:19
| Ответить | Цитировать | Написать  
Как выполнит цикл от одной даты к другой
    #39610763
DesWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DesWind
Гость
Rustam Ergashev,

DMForm.qrQoldiq2.ParamByName('dat').Value:= c
Дата это целая часть TdateTime, дробная время.
...
Рейтинг: 0 / 0
05.03.2018, 16:55
| Ответить | Цитировать | Написать  
Как выполнит цикл от одной даты к другой
    #39610781
Gerasimenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gerasimenko
Участник
Rustam Ergashev,

Код: pascal
1.
2.
3.
4.
5.
6.
var
 i:Integer;
begin
 for i:=0 to (Trunc(DateTimePicker2.DateTime) - Trunc(DateTimePicker1.DateTime))
  do Memo1.Lines.Add(DateToStr(DateTimePicker1.DateTime+i))
end;
...
Рейтинг: 0 / 0
05.03.2018, 17:17
| Ответить | Цитировать | Написать  
Как выполнит цикл от одной даты к другой
    #39610973
Пока пока.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пока пока.
Гость
s62Rustam Ergashev,
можно использовать функцию DateUtils.IncDay и цикл while или repeat until.+++
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
var
  D: TDateTime;
begin
  D := TDateTimePicker1.Date;
  while D <= TDateTimePicker2.Date do
  begin
    ... // 
    D := IncDay(D);
  end;
end;
...
Рейтинг: 0 / 0
06.03.2018, 07:23
| Ответить | Цитировать | Написать  
Как выполнит цикл от одной даты к другой
    #39611010
Rustam Ergashev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rustam Ergashev
Гость
GerasimenkoRustam Ergashev,

Код: pascal
1.
2.
3.
4.
5.
6.
var
 i:Integer;
begin
 for i:=0 to (Trunc(DateTimePicker2.DateTime) - Trunc(DateTimePicker1.DateTime))
  do Memo1.Lines.Add(DateToStr(DateTimePicker1.DateTime+i))
end;



Вот это имел введу.
Спасибо всем кто писал ответы. спасибо за понимания.
...
Рейтинг: 0 / 0
06.03.2018, 09:13
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как выполнит цикл от одной даты к другой
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&fpage=116&tid=2041173]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 194ms
get topic data:
 13ms
get forum data:
 2ms
get page messages:
 65ms
get tp. blocked users:
 2ms
others: 300ms
total:  606ms
созд. / загр.: 606ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]