Get the stock - value of an item per time (SBO 6.5)

Hi

Is it possible to get the stock - values per a given time?

I wanna code a function like this:

sv=GetStockValue('A1002','01.07.2003')

A1002-> ItemCode

TIA

Philipp