Convertir a entero una división de 2 enteros.

[marcoszorrilla]

No he logrado convertir a entero una división de 2 enteros, es decir tengo dos campos 'Integer' y hago una divisón entre ellos y el resultado lo quiero guardar en otro campo también entero.

Lo he arreglado de la siguiente y chapucera manera.

Código Delphi [-]
procedure TDmPedido.IbDtsLinPedidosBULTOSChange(Sender: TField);
begin
DmPedido.IbDtsLinPedidosIMPORTE.Value:= DmPedido.IbDtsLinPedidosBULTOS.Value *
DmPedido.IbDtsLinPedidosFORMATO.Value * DmPedido.IbDtsLinPedidosPCOMREAL.Value;

DmPedido.IbDtsLinPedidosUNISKG.Value:=DmPedido.IbDtsLinPedidosBULTOS.Value *
DmPedido.IbDtsLinPedidosPESO.Value;

  if DmPedido.IbDtsLinPedidosUNISPALET.Value <> 0 then
  DmPedido.IbDtsLinPedidosPALETS.Value:=StrToInt(FormatFloat('0',int(DmPedido.IbDtsLinPedidosBULTOS.Value /
  DmPedido.IbDtsLinPedidosUNISPALET.Value)))
  else
  DmPedido.IbDtsLinPedidosPALETS.Value:=0;
end;

Un Saludo.

[roman]

¿No tendrías que usar Trunc o Round?

// Saludos

[[egostar]]

Esto no te sirve ?

Código Delphi [-]
DmPedido.IbDtsLinPedidosBULTOS.Value div DmPedido.IbDtsLinPedidosUNISPALET.Value

Saludos

[marcoszorrilla]

Son influencias de otro lenguaje, tienes razón, ya está en marcha:

Código Delphi [-]
 if DmPedido.IbDtsLinPedidosUNISPALET.Value <> 0 then
  DmPedido.IbDtsLinPedidosPALETS.Value:=Trunc(DmPedido.IbDtsLinPedidosBULTOS.Value /
  DmPedido.IbDtsLinPedidosUNISPALET.Value)
  else
  DmPedido.IbDtsLinPedidosPALETS.Value:=0;

Un Saludo.

[marcoszorrilla]

Eliseo, no me funciona tu código porque me da error.

Un Saludo.

[[egostar]]

Empezado por marcoszorrilla

Eliseo, no me funciona tu código porque me da error.

Un Saludo.

Ya veo, será por el .Value, lo bueno es que se solucionó con el trunc().

Saludos

[Casimiro Noteví]

Empezado por marcoszorrilla

Eliseo, no me funciona tu código porque me da error.
Un Saludo.

También habría que saber qué error es, que parecemos novatos

[roman]

Empezado por Casimiro Notevi

También habría que saber qué error es, que parecemos novatos

Han de ser esas influencias

Empezado por marcoszorrilla

Son influencias de otro lenguaje

// Saludos

[[Al González]]

Empezado por Casimiro Notevi

También habría que saber qué error es, que parecemos novatos

Remítelo a la guía de estilo, como haces con todo mundo. (es broma, compas)

[ecfisa]

Hola Marcos.

Sólo para agregar que la sugerencia de egostar funciona perfectamente cambiando Value por AsInteger.

Código Delphi [-]
  with DmPedido do
    IbDtsLinPedidosPALETS.AsInteger:= IbDtsLinPedidosBULTOS.AsInteger div IbDtsLinPedidosUNISPALET.AsInteger;

Saludos.