Array
(
)

Ajuda em uma instrução lógica

Roberto Rossi
   - 22 set 2004

Tenho um valor do tipo time e preciso compará-lo com outros cinco valores e saber em qual deles esse valor se aproxima mais. Especificando melhor:
#Código

08:00

09:00

12:00
15:15
13:00

18:00


no caso ele se aproxima mais de 13:00. Essa aproximação pode ser tanto para mais como para menos. Alguém sabe uma instrução lógica para eu chegar neste resultado.


Roberto Rossi
   - 22 set 2004

na pergunta acima a hora a ser comparada é: 15:15. ficou estranho porque o mecanismo do forum tirou os espaços.



_______________________
Roberto,
Editei o tópico anterior, ok?

Sandra/Moderação


Djjunior
   - 22 set 2004

não testei mais é mais ou menos isso ai.


Citação:

var time1, time2, time3, time4: Real;
i: integer;
time1 := strToTime(edTime1.text);
time3 := 0;
time4 := 0;
for i := 0 to ListaTimes.count - 1 do
begin
time2 := strToTime(listaTimes.text[i];
time3 := time1 - time2;
if time3 < time4 then
time4 := time3
end;
editResult.Text := TimeToStr(time4);