Hola :
Bueno te explico un poco Yo utilizo este Property en visual Basic 6.0 Lo utilizo para realizar unos calculos y bueno este me devuelve mas de un valor como podras ver , lo que pretendo es.................. teniendolo en mi base de datos como funcion podria acceder a esta y cambiarla y que esta modificacion afecte en cualquier modulo de mi capa cliente sin necesidad de estar modificando mi codigo fuente esto me ayudaria mucho
capa negocios
''''''''''''''''''''''''''''''''''''''''''''''''''''
type costos
dsct as double
Valor1 as double
ValorFinal as double
end type
Public Property Get CalculaCostos(ByVal Costo As Double, ByVal dsct As Double, ByVal igv As Double, ByVal impuesto As Double) As Costos
CalculaCostos.dsct = Costo * (dsct / 100)
CalculaCostos.Valor1 = Costo * (1 + igv / 100) - CalculaCostos.dsct
CalculaCostos.ValorFinal = CalculaCostos.Valor1 * 1 + (impuesto / 100)
End Property
capa clientes
''''''''''''''''''''''''''''''''''''''''''''''
Dim calculacosto As Prjnegocios.Costos
calculacosto = vnegocios.buscaconptarif ( txtCosto , txtdsct , txtigv, txtimpuesto)
txtdsc1= calculacosto.dsct
txytvalor1 = calculacosto.Valor1
txtvalorfinal = calculacosto.ValorFinal