Erro Expression Evaluation not supported.... Somando horas

Delphi

31/07/2008

Eu estava querendo somar quantidade de horas entre o meu horarioInicial e horarioFinal, mas tá dando esse erro:



Expression Evaluation not supported



Esse é o codigo que estou montando:



with QryHoras do
    begin
      close;
      sql.Clear;
      sql.Add(´Select Aluno, Sum((HorarioInicial + HorarioFinal)) AS HorasMarcadas From Teoricas´
              +´ where Aluno = :Alu Group By Aluno Order By Aluno´);
      ParamByName(´Alu´).AsString := TxtCod.Text;
      open;
    end;

   Total :=  QryHoras.FieldByName(´HorasMarcadas´).AsInteger;
   Horas :=  Total / 86400;
   Edit1.Text := TimeToStr(Horas);



O que estou fazendo de errado ????


Robinhocne

Robinhocne

Curtidas 0

Respostas

Robsonbenedito

Robsonbenedito

31/07/2008

provavelmente o tipo que você estar usando pra horarioinicial e horario final é string. ai esta expressão não é suportada mesmo. você vai ter q fazer um casting pra time em cada campo e depois somar

Sum((cast(HorarioInicial as time)+ cast(HorarioFinal as time)))


GOSTEI 0
POSTAR