Re: RES: [delphi-br] Erro Estranho DateTime(mudei)

Bom dia amigo... Tenho três funções q desenvolvi aqui no trabalho, veja se te ajuda: Function CalcTime(Const TempoInic,TempoFim : TdateTime): string; var Calc : real; begin Calc:=Tempoparareal(TimeToStr(TempoFim))-Tempoparareal(TimeToStr(TempoInic)); if Calc 0 then Calc:=Calc+24;

RES: [delphi-br] Erro Estranho DateTime(mudei)

Dei uma mudada para diminuir os códigos, FUNÇÃO### function TRelfrmHoras.DifHora(Inicio, Fim: String): String; {Retorna a diferença entre duas horas} Var H1, H2, Total: TDateTime; begin H1 := StrToTime(Inicio); H2 := StrToTime(Fim); Total := H2 - H1; Result :=