Function VrijemePiljenja(DanP As Date)
 Dim Db As Database
 Dim SQL As String
 Dim Rs As Recordset
 Dim DatumS As String

if  Format$(DanP)="" goto Kraj
 DatumS = "#" & Format(DanP, "mm-dd-yyyy") & "#"
 SQL = "SELECT sum(VrijemePiljenja) As V FROM Pila WHERE DatumPiljenja=" & DatumS

 Set Db = CurrentDb()
 Set Rs = Db.OpenRecordset(SQL)
 VrijemePiljenja = Rs.Fields(0)
 Rs.Close
 Set Db = Nothing
Kraj:
 End Function