[NeoNew]

Código Delphi [-]
Function TimeBetween(xTimeFrom,xTimeTo: TTime): TTime;
var
  t12,t24 : TTime;
begin
  t12 := StrToTime('12:00:00');
  t24 := StrToTime('23:59:59');
  if xTimeFrom > t12  then
  begin
    Result := t24 - xTimeFrom + xTimeTo;
  end else
  begin
    Result := xTimeTo - xTimeFrom;
  end;
end;