Всем добрый день.
Ударило мне в голову - мол хочу изучить VBA, поставил себе цель, сел изучать, купил книжку итд.
И вот в конце одной из первых глав в книжке такое задание.
авторДля закрепления материала этой и предыдущей глав советуем читателю написать программу, позволяющую определить значения, для которых выполняется условие CInt(x) = Int(x) = Fix (x) = Round (x). переменная x принимает значения -1.8 , -1.25 , 1.27, 1.68

Вот код того, что я сделал
авторSub aaa()
Dim c As Single
Dim x As Single
Dim a As Boolean
x = 1.27
a = CInt(x) = Int(x) And Round(x) = Fix(x) And Round(x) = Int(x)
c = CInt(x)
MsgBox (a)
End Sub

вопрос такой, почему при прогонке программы пошагово и наводе курсора на функции , при расчете переменной "а" - все выдают сообщения типа CInt (x) = 1 итд. Все, кроме функции Round. Расчитывает программа правильно вроде как, но вот этот Раунд меня напрягает. Это нормально или я что то где то накосячил*?
И еще вопрос - в чем отличие функций CInt от функции Int

big-dukeДаркТМ,
Порбуйте вот так


Вот так, при значении 1.27 выдается Фолс. Хотя по идее должна выдаваться Тру, ибо при 1.27 все функции округляют до 1.

ЗЫ
Спасибо, разобрался с разницей в функциях округления. Чтобы удостовериться - Cint - в отличии от Int - всегда возвращает нам переменную типа Integer*? Именно поэтому CInt(123456789.55) выдает Overflow*?

Спасибо всем большое!
Вспоминая школьные уроки паскаля, я делаю вывод, что Fix делает тоже самое, что и функция Trunk -)
Еще раз большое спасибо, правда, мне так кажется - это далеко не последний мой запрос о помощи и советах на этом форуме :)