[Resolvido] calculo de horas

[daemon 0]

Boa tarde, meu primeiro post, gostaria de tirar uma dúvida com horas.

 

Vou resumir...

 

Gostaria de saber o número de intervalos de uma determinada hora.

exemplo:

 

 

valor 15 
de 08:00 até 20:00 

Quantos 15 precisa para chegar até 20:00 ?

 

valor 40 
de 08:00 até 20:00 
Quantos 40 precisa para chegar até 20:00 ?

 

e assim por diante, vai ser dinamico pode ser qualquer valor..

 

 

Para fazer isso preciso dividir a diferença entre a hora final e a hora inicial pelo intervalo, ou seja:

(Hora Final - Hora Inicial)/Intervalo ....

 

 

 

 

Mas não está funcionando, nunca trabalhei com horas.

 

var 
x,y,z : TTime 
t1 : String; 

x:= ((StrToTime('20:00') - StrToTime('08:00')) * 60); 
t1:= '00:'+IntToStr(tconsulta); 
z:= (x / StrToTime(t1));

ShowMessage(TimeToStr(z));

volta 00:00:00

 

e com showmessage FloatStr... mostra 80

Qualquer ajuda é bem vinda.

 

Obrigado

[marcio.theis 3]

Nada complicado, você pode usar a unit DateUtils, declare a mesma no seu Uses, depois pode fazer:

 

var
	hora1, hora2: TTime;
	intervalo: integer;
begin
intervalo:=15;
hora1:=StrToTime('08:00:00');
hora2:=StrToTime('20:00:00');
ShowMessage(IntToStr(MinutesBetween(hora1,hora2) div intervalo));

Resultando o quanto precisa de intervalo para se atingir a diferença de horas X

[daemon 0]

Muito obrigado Marcio.

 

Funcionou legal

 

valeu

[marcio.theis 3]

beleza... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif