modul nazvati fnrunsum()
Option Compare Database
Public RuningSum As Double
Public dat1knj As Date
Public Function fnRunSum(MyVal As Double, datknj As Date) As Double
If dat1knj > datknj Then
RuningSum = 0
End If
dat1knj = datknj
RuningSum = RuningSum + Nz(MyVal, 0)
fnRunSum = RuningSum
End Function
funkciju pozivate fnrunsum(polje koje se racuna, datknj-datum nemora biti po redu)
ps zakljucajte polja inace funkcija se non stop osvjezava