ÿþDim myconnection As Connection

Dim myrecordset as Recordset



Set myconnection = New Connection



myconnection.Open "PROVIDER=MSDataShape;Data" & _ "PROVIDER=MSDASQL;dsn=ODBC_myBank;uid=popeye;pwd=nosvamohastabajo;"



Set myrecordset = New Recordset



fecha_calendario_banco_este_procedure = #01-01-2014#



for t = 1 to 365 'este es un comentario; intereses desde Enero de 2014 hasta Diciembre de 2014.



 myrecordset.open "select sum(depósito) - sum(retiro) as saldo " & _

 from tabla_depósitos, tabla_retiros where tabla_depósito.fecha <= #" & _       fecha_calendario_banco_este_procedure & " 11:45 pm# and tabla_retiros.fecha <= #" & _      fecha_calendario_banco_este_procedure & " 11:45 pm#", myconnection



 fecha_calendario_banco_este_procedure = fecha_calendario_banco_este_procedure + t



 intereses = myrecordset("saldo").(1 + inflación_2014/100)/365



 'Explicación:

 'C = c0.(1 + r)ºu = c0.(1 + r) si u = 1 año: esto es, los intereses simples son iguales a 	   'los intereses compuestos en 1 año.

 'saldo a las 11:45 p.m.



 myrecordset.close



wend