mod vba

Ответ от Андрей Севастьянов[гуру]
Проверьте принадлежность последней цифры множеству [0 2 4 6 8].

Ответ от Пишу гадости[гуру]
дели на 2 float значения и смотри число после точки, если нет то это тот же нуль при использовании мода, соответственно число после точки есть остаток

Ответ от BloodKad[новичек]
в basic не знаю но на с++ это будет так if(x%2==0){}, попробуй может зароботает))

Ответ от Александр Погребняк[гуру]
1. Умножить число на 5
2. Преобразовать в строковую переменную
3. Если последний символ равен нулю, тогда четное
Только зачем эти извращения?
Sub chet()
Dim n As Integer
Dim m As Integer
Dim s As String
n = InputBox("Введите целое число")
m = n * 5
s = Str(m)
If Mid(s, Len(s), 1) = "0" Then
MsgBox (n & " четное")
Else
MsgBox (n & " нечетное")
End If
End Sub

Ответ от ...[гуру]
В VBA никто не отменял AND (соотв. проверка последнего бита). Операция быстрее чем деление.
Число AND 1 даст 0, если число четное, 1 если нечетное. Проще и быстрее ИМХО невозможно.
Пример:
Dim i as Integer
i = 11
MsgBox IIf(i And 1, "Нет", "Да")
P.S: Да я знаю про Little и Big Endian, но не припомню, чтобы MSO пакет да ещё и с VBA работал на чем-то отличном от Little Endian.

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]