Public Dim MinPrice As Double

Public Function GetMinPrice() As Double
	Return Round(MinPrice,1)
End Function

Public Function SetMinPrice(SomeValue As Double) As Double
	If MinPrice = 0 AND SomeValue >0 Then
 	      MinPrice = SomeValue
	End If
	If SomeValue < MinPrice AND SomeValue >0 Then
 	      MinPrice = SomeValue	      	    
	End If
	Return SomeValue
End Function

Public Dim MinPrice As Double = 5

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы