Hallo,
Ik wil vanuit VBA een berekende waarde toekennen aan een veld in een formulier.
Dit lukt wel, maar deze waarde is dan voor alle records hetzelfde.
Hoe krijg ik het voor elkaar dat per record gekeken wordt naar de berekening in VBA en dan de juiste waarde wordt toegekend?
Wat ik wil is het volgende:
Ik moet aan het einde van een kwartaal waarden van een inleg berekenen per kwartaal, waarbij de registratiedatum van de inleg bepalend is. Het maximaal aantal dagen waarover de berekening uitgevoerd mag worden is maximaal de duur van het kwartaal (bijv 90 dagen). Als de registratiedatum in een vorig kwartaal ligt is het aantal dagen (einde kwartaal - datum inleg) groter dan het aantal dagen van dat kwartaal. Hoe krijg ik het nu voor elkaar dat als de datum van de inleg ligt voor het begin van het kwartaal het maximaal aantal dagen de duur van dat kwartaal is, waarbij het volgende record, waarvan de datum inleg in het kwartaal valt, op de juiste manier wordt berekend.
Probleem wat ik nu heb dat de waarde van de 1e record op alle records van kracht is.
Record1: Datum inleg 01-01-07
Inleg: 100,00
Winstpercentage: 1%
Waarde inleg einde 1e kwartaal: 101,00
=([huidige waarde 1e kwartaal]*([winstpercentage]/100))*([dagen inleg 1e kwartaal]/[aantal dagen 1e kwartaal])
Waarde inleg einde 2e kwartaal: 102,01
=([huidige waarde 1e kwartaal]*([winstpercentage]/100))*([dagen inleg 2e kwartaal]/[aantal dagen 2e kwartaal])
Record2: Datum inleg 02-04-07
Inleg: 1.000,00
Winstpercentage: 1%
Waarde inleg einde 1e kwartaal: 0,00
Waarde inleg einde 2e kwartaal: 1.010,00
=([huidige waarde 2e kwartaal]*([winstpercentage]/100))*([dagen inleg 2e kwartaal]/[aantal dagen 2e kwartaal])
Dit alles doe ik in VBA, waarbij de uitkomst voor record 2 enz. de waarde is van record 1.
Misschien moet ik iets doen met return of gosub o.i.d.
Alvast bedankt!
