ник: Lukas
Public Function funЦелое(Numeric) As Boolean
If IsNumeric(Numeric) Then funЦелое = Int(Numeric) = Numeric
End Function
Public Function funЧетное(Numeric) As Boolean
If IsNumeric(Numeric) Then funЧетное = Numeric Mod 2 = 0
End Function
|
Не совсем правильно будет работать.
При передаче в качестве аргумента значения, котрое функция IsNumeric не распознает как число, всегда будет выдавать False.