Type proizvodi
ime As String
jedmj As String
nabavna As String
cijena As String
tarifa As Integer
znak As String
pdv As String
datum As Date
vrsta As String
sifra As Integer
broj As Integer
proizvod As String
End Type
Function SqlDecimal(v As Variant) As String
    SqlDecimal = Replace(Format(Nz(v, 0), "0.00"), ",", ".")
End Function