Base de datos

Public Class Calculos
'Se definen los property para los calculos de impuesto tanto para la importación como para exportación
Private _cargo As Integer
Public Property Cargo() AsInteger
Get
Return _cargo
End Get
Set(ByVal value As Integer)
_cargo = value
End Set
End Property
Private _totalSinIPE As IntegerPublic Property TotalSinIPE() As Integer
Get
Return _totalSinIPE
End Get
Set(ByVal value As Integer)
_totalSinIPE = value
End SetEnd Property
Private _subTotal As Integer
Public Property SubTotal() As Integer
Get
Return _subTotal
End Get
Set(ByVal value As Integer)_subTotal = value
End Set
End Property
'Defino la funcion para realizar el cálculo de la Exportación
Function ImpuestoExpor(ByVal cantidadProd As Integer, ByVal valorUnitario AsInteger) As Integer
'Declaro la variable que retornará el resultado del cálculo de la Exportación
Dim IPE As Double = 0.15 'Declaro el IPE
TotalSinIPE = cantidadProd *valorUnitario
Dim costo_totalExpor As Integer = TotalSinIPE - (TotalSinIPE * IPE)
Return costo_totalExpor
End Function
'Defino la función para realizar el cálculo de laImportación
Function ImpuestoImpor(ByVal cantidadProd As Integer, ByVal valorUnitario As Integer, ByVal porcentajeRecarga As Integer) As Integer
'Declaro la variable que retornará el resultadodel cálculo de la Importación
TotalSinIPE = cantidadProd * valorUnitario
Cargo = CInt((TotalSinIPE * porcentajeRecarga) / 100)
SubTotal = TotalSinIPE + Cargo
Dimcosto_totalImpor As Integer = SubTotal * 1.15
Return costo_totalImpor
End Function
End Class






Cass module1

Imports ClassCalculos
Module Module1
'Este es el MAIN...