Ajuda em uma instrução lógica
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:
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.
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
Curtidas 0
Respostas
Roberto Rossi
22/09/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
_______________________
Roberto,
Editei o tópico anterior, ok?
Sandra/Moderação
GOSTEI 0
Djjunior
22/09/2004
não testei mais é mais ou menos isso ai.
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);
GOSTEI 0