Código Delphi [-]var Tm02,Tm04,TmDif Double; begin //ejecutas la consulta con la primera condición: Tm02:=Query1.Fields[0].AsFloat; //ejecutas la consulta con la segunda condición: Tm04:=Query1.Fields[0].AsFloat; TmDif:=Tm02 - Tm04; ShowMessage(FormatFloat(',0.00'.TmDif)); end;
var Tm02,Tm04,TmDif Double; begin //ejecutas la consulta con la primera condición: Tm02:=Query1.Fields[0].AsFloat; //ejecutas la consulta con la segunda condición: Tm04:=Query1.Fields[0].AsFloat; TmDif:=Tm02 - Tm04; ShowMessage(FormatFloat(',0.00'.TmDif)); end;