| |
|
|
| | Как проверить?
Ну и заодно, как проверить дробность и четность.... | |
| |
| |
| |
|
|
| | Dim MyNumber
MyNumber = Int(99.8) ' Returns 99.
Данная функция возвращают целую часть числа.
Попробуйте [поле Число]-Int([поле Число]) | |
| |
| |
| |
|
|
| | Если необходимо проверить целое число в смысле тип Int, то это работать не будет, т.к. при проверке числа 98,0 разница получится равной 0, но 98,0 - это не integer. | |
| |
| |
| |
|
|
| |
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. | |
| |
| |
| |
|
|
| | Отлично!  | |
| |
| |
