-----Mensaje original-----
De: Jose Zuñiga Vega <mzunigac@entelchile.net>
Para: vb-esp@ccc.uba.ar <vb-esp@ccc.uba.ar>
Fecha: Jueves 27 de Agosto de 1998 10:35 PM
Asunto: RE: (VB-ESP) Funcion???



No necesitas de una funcion, te explico
Si tu haces la siguiente operacion 29999 / 10000 da como resultado
2,9999 (la división)
pero si tu haces lo siguiente 29999 \ 10000 da como resultado 2
         (la parte entera sin redondear)


No la necesitará, siempre y cuando requiera de hacer una división. Por
añadidura, la limitación de la división entera (así como del módulo
aritmetico) se mide por los límites de un tipo de dato Integer. Si
sobrepasas 32767, obtendrás por resultado un error.

Ante esto, quisiera sugerir un par de funciones de división entera y Módulo
aritmético que no tengan tales limitantes:

*******************************************************
Public Function DivP(Valor1 As Variant, Valor2 As Variant) As Variant
  ' División entera personalizada.
  DivP = Fix(Valor1 / Valor2)
End Function

Public Function ModP(Valor1 As Variant, Valor2 As Variant) As Variant
  ' Módulo aritmético personalizado. Requiere DivP.
  ModP = Valor1 - (DivP(Valor1, Valor2) * Valor2)
End Function
*******************************************************

¡Ah! Dudo que la división entera se pueda considerar como función para la
conversión de números reales a enteros.

+---¡Saludos desde México!--+
| .+'~~'+. |
| * Tron * David.BAS |
| `+,__,+' |
+---------------------------+
 http://spin.com.mx/~adgarza
     adgarza@spin.com.mx