Как сделать свой тип данных например от -111 до 567? - VB

Формулировка задачи:

Как сделать свой тип данных например от -111 до 567?

Решение задачи: «Как сделать свой тип данных например от -111 до 567?»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Dim mValue As Double
 
Public Property Let Value(ByVal Z As Double)
    If Z < -111 Or Z > 567 Then Err.Raise 6 Else mValue = Z
End Property
Public Property Get Value() As Double
    Value = mValue
End Property
                        

Оцени полезность:

7 голосов , оценка 3.714 из 5

Похожие ответы