running sum ili tekuca suma

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

Mozes li da mi pojasnis malo ovu fn?

Pozdrav