Fórum Insert com Loop? #298614
06/10/2005
0
Alguém pode me ajudar nessa tarefa ?
Preciso fazer um loop inserindo informações em uma tabela,
Tenho três informações:
Hora Inicial, Hora Final e Duração
Preciso incluir registro em uma tabela incrementando a duração na hora inicial até chegar na hora final.
Tentei com While mais não deu certo, alguém pode me ajudar ?
Obrigada.
Renatacoimbra
Curtir tópico
+ 0Posts
06/10/2005
Rjun
Gostei + 0
06/10/2005
Renatacoimbra
[quote]While iHora <> fHora do begin
iHora := ihora + Duracao;
//Inset
end;Gostei + 0
06/10/2005
Rjun
while iHora < fHora do iHora := ihora + Duracao;
Gostei + 0
06/10/2005
Renatacoimbra
while not i >= f do begin
i := i + Duracao;
// Insert
// ApplyUpdates
end;
Gostei + 0
06/10/2005
Rjun
Gostei + 0
06/10/2005
Renatacoimbra
i = HoraInicial // Iniciada com 08:00 por exemplo f = HoraFinal // Iniciada com 18:00 por exemplo Duracao = é o intervalo de um registro para o outro nos meus insert, o Valor dele pode ser 20 minutos Eu Uso o banco Oracle.
Gostei + 0
06/10/2005
Siam
E o campo duracao ?
Gostei + 0
06/10/2005
Renatacoimbra
[b:5083568bc7]i, f: TDateTime
Duracao: Inteiro[/b:5083568bc7]
Gostei + 0
06/10/2005
Siam
É isso mesmo que vc quer ?
Gostei + 0
06/10/2005
Renatacoimbra
Olha só:
i e f são TDateTime, eu uso só a hora dessas variaveis.
Duracao é inteiro, nessa variavel eu coloco a quantidade de minutos a incrementar, veja o código:
while not i >= f do begin
i := IncMinute(i, Duracao); // IncMinute da Unt DateUtils
// Insert // i e a hora atual e Duracao são min
// a incrementar na hora
end;
Gostei + 0
06/10/2005
Siam
while not (i >= f) do begin
Gostei + 0
06/10/2005
Renatacoimbra
perdir umas duas horas só por causa do ( ... ) :oops:
Brigada mesmo.
Gostei + 0
06/10/2005
Siam
Gostei + 0