Private Sub POSTARINA_AfterUpdate()
Dim Vrijeme As Date

Vrijeme = Time
If Vrijeme < "12:00:00" Then
Me.POSTARINA = Me.POSTARINA + 50
End If

End Sub