Function Nabaviti(NabavnaK As Single, Stanje As Single)

If Stanje < 0 Then
Nabaviti = NabavnaK
Else
Nabaviti = NabavnaK - Stanje
End If
End Function