Дробная часть числа vba excel

Числа

Язык VBA поддерживает следующие числовые типы:

• Byte — целые числа от 0 до 255 . Занимает 1 байт;
• Integer — целые числа от -32 768 до 32 767 . Занимает 2 байта;
• Long — длинные целые числа. Диапазон значений от -2 147 483 648 до 2 147 483 647 . Занимает 4 байта;
• Single — вещественное число. Занимает 4 байта;
• Double — вещественное число двойной точности. Занимает 8 байт;
• Currency — числа с фиксированной точкой (четыре цифры после точки). Тип используется для хранения денежных величин. Занимает 8 байт;
• Decimal — десятичное масштабируемое число. Может содержать значения в диапазоне +/-79 228 162 514 264 337 593 543 950 335 или +/-7.9228162514264337593543950335 . Минимальное ненулевое значение равно +/-0.0000000000000000000000000001 . Обратите внимание на то, что объявить переменную данного типа явным образом нельзя. Тип Decimal является подтипом типа Variant и создается с помощью функции CDec() . Пример:

Создать объект целочисленного типа можно обычным способом:

Кроме того, можно указать число в восьмеричной или шестнадцатеричной форме. Такие числа будут автоматически преобразованы в десятичные целые числа. Восьмеричные числа начинаются с комбинации символов &O и содержат цифры от 0 до 7 :

Шестнадцатеричные числа начинаются с комбинации символов &H и могут содержать цифры от 0 до 9 и буквы от A до F :

Вещественное число может содержать точку и (или) быть представлено в экспоненциальной форме с буквой E (регистр не имеет значения):

При выполнении операций над вещественными числами следует учитывать ограничения точности вычислений. Например, результат следующей операции может показаться странным:

Ожидаемым был бы результат 0.0 , но, как видно из примера, мы получили совсем другой результат. Если необходимо производить операции с фиксированной точностью, то следует использовать тип Currency :

Функции для работы с числами

Для работы с числами предназначены следующие встроенные функции:

• CByte( ) — преобразует значение в число типа Byte . Если преобразование невозможно возбуждается исключение. Пример:

• CInt( ) — преобразует значение в число типа Integer . Если преобразование невозможно возбуждается исключение. Пример:

• CLng( ) — преобразует значение в число типа Long . Если преобразование невозможно возбуждается исключение. Пример:

• CSng( ) — преобразует значение в число типа Single . Если преобразование невозможно возбуждается исключение. Пример:

• CDbl( ) — преобразует значение в число типа Double . Если преобразование невозможно возбуждается исключение. Пример:

• CCur( ) — преобразует значение в число типа Currency . Если преобразование невозможно возбуждается исключение. Пример:

• CDec( ) — преобразует значение в число типа Decimal . Если преобразование невозможно возбуждается исключение. Пример:

• Val( ) — преобразует строку в целое или вещественное число. Строка просматривается слева направо пока не встретится недопустимый символ. В качестве десятичного разделителя должна быть указана точка. Пробелы, символы табуляции и символ перевода строки игнорируются. В строке могут быть указаны восьмеричные и шестнадцатеричные значения. Восьмеричные значения должны начинаться с комбинации символов &O , а шестнадцатеричные значения — с комбинации символов &H . Если преобразование невозможно функция возвращает значение 0 . Пример:

• Oct( ) — преобразует десятичное число в восьмеричное. Возвращает строковое представление числа. Пример:

• Hex( ) — преобразует десятичное число в шестнадцатеричное. Возвращает строковое представление числа. Пример:

• CStr( ) — преобразует значение в строку. Пример:

• str( ) — преобразует число в строку. Первый символ в строке резервируется под знак числа. Если число является положительным, то первый символ будет пробелом, а если отрицательным — то первым символом будет знак минус. Обратите также внимание на то, что при выводе десятичный разделитель отображается в виде точки, а не в виде запятой, как это было при использовании функции CStr() . Пример:

Функция str() возвращает значение типа Variant (String) . Чтобы получить значение типа String следует использовать функцию str$() , имеющую тот же самый формат. Пример:

• IsNumeric( ) — возвращает значение True , если значение можно преобразовать в число, и False — в противном случае:

Математические функции

Перечислим основные математические функции:

• Sin( ) , Cos( ) , Tan( ) — стандартные тригонометрические функции (синус, косинус, тангенс);
• Atn( ) — арктангенс числа. Получим значение числа Пи :

• Exp( ) — экспонента;
• Log( ) — логарифм;
• Sqr( ) — квадратный корень:

• abs( ) — возвращает абсолютное значение:

• Sgn( ) — позволяет определить знак числа. Возвращает одно из следующих значений:

• 1 — если число больше нуля;
• 0 — если число равно нулю;
• -1 — если число меньше нуля.

Округление чисел

Для округления чисел предназначены следующие функции:

• Fix( ) — возвращает значение, округленное до целого числа. Дробная часть числа просто отбрасывается:

• Int( ) — возвращает значение, округленное до целого числа. Для положительных чисел дробная часть просто отбрасывается, а для отрицательных чисел возвращается ближайшее меньшее значение:

Для округления чисел можно также воспользоваться функцией CInt() :

Генерация псевдослучайных чисел

Для генерации псевдослучайных чисел используются следующие функции и процедуры:

• Rnd([ ]) — возвращает псевдослучайное вещественное число типа Single меньше 1 , но большее или равное 0 . Если параметр не указан или задано положительное значение, то функция возвращает следующее псевдослучайное число из последовательности:

Если в качестве параметра указать отрицательное значение, то будет генерироваться одно и тоже число, соответствующее значению:

Если указано значение 0 , то функция возвращает последнее сгенерированное число:

• Randomize [ ] — настраивает генератор псевдослучайных чисел на новую последовательность.

Создадим генератор паролей произвольной длины (листинг 5.1). Для этого добавляем в массив arr все разрешенные символы, а далее в цикле получаем случайный элемент, сгенерировав индекс с помощью пользовательской функции Rand() , возвращающей целое число в указанном диапазоне.

Листинг 5.1. Генератор паролей

Статьи по Visual Basic for Applications (VBA)

Помощь сайту

ПАО Сбербанк:
Счет: 40817810855006152256
Реквизиты банка:
Наименование: СЕВЕРО-ЗАПАДНЫЙ БАНК ПАО СБЕРБАНК
Корреспондентский счет: 30101810500000000653
БИК: 044030653
КПП: 784243001
ОКПО: 09171401
ОКОНХ: 96130
Скриншот реквизитов

Источник

Int, Fix functions

Возвращает целую часть числа.

Синтаксис

Int(number) Fix(number)

Обязательный аргумент number — это double или любое допустимое числовое выражение. Если аргумент число содержит нулевое значение, возвращается нулевое значение.

Замечания

Функции Int и Fix удаляют дробную часть элемента число и возвращают результирующее целочисленное значение.

Разница между Int и Fix заключается в том, что если число является отрицательным, Int возвращает первое отрицательное целое число меньше или равно числу, а исправление возвращает первое отрицательное целое число больше или равно числу. Например, функция Int преобразует –8,4 в –9, а Fix преобразует –8,4 в –8.

Fix(number) эквивалентен Sgn(number) * Int(Abs(number)).

Пример

В этом примере показано, как функцииInt и Fix возвращают целые части чисел. Если используется отрицательный числовой аргумент, функция Int возвращает первое отрицательное целое число, которое меньше или равно этому числу; функция Fix возвращает первое отрицательное целое число, которое меньше или равно этому числу.

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Источник

Функции VBA для работы с числовыми значениями

• ABS() — эта функция возвращает абсолютное значение переданного ей числа (то же число, но без знака). Например, ABS(3) и ABS(-3) вернут одно и то же значение 3.
• Int() , Fix() и Round() позволяют по разному округлять числа:
  • Int() возвращает ближайшее меньшее целое;
  • Fix() отбрасывает дробную часть;
  • Round() округляет до указанного количества знаков после запятой.

  Однако Round может вернуть не совсем ожидаемый результат, т.к. функция применяет финансовое округление. По правилам данного округления если за последней к округлению цифрой стоит 5, то округляемую цифру увеличивают в том случае, если она нечетная и уменьшают, если четная.
  Математическое же округление всегда округляет цифру в большую сторону, если за ней идет цифра 5 и выше, и отбрасывает остаток если 4 и меньше.
  Т.е. если мы выполним такую строку кода

  MsgBox Round(2.505, 2)

  то результатом будет 2,5 , хотя предполагалось получить 2,51 . Поэтому порой для округления лучше использовать Format :

  MsgBox Format(2.505, «#,##0.00»)

  но в этом случае мы получим не число в чистом виде, а текст. И если нужно именно число, то придется производить дополнительные преобразования:

  MsgBox CDbl(Format(2.505, «#,##0.00»))

  Так же, для математического округления, можно использовать и такой вариант:

  MsgBox Application.Round(2.505, 2)

  Но здесь стоит учитывать, что это не чистый VB и этот метод сработает только в Excel, т.к. по сути мы обращаемся к встроенной в Excel функции округления ОКРУГЛ (ROUND) , которая применяет именно математическое округление.
  Rnd и команда Randomize используются для получения случайных значений (очень удобно для генерации имен файлов и в других ситуациях). Перед вызовом функции Rnd() необходимо выполнить команду Randomize для инициализации генератора случайных чисел.

  Dim lRundNum As Long, lMinNum As Long, lMaxNum As Long lMinNum = 1: lMaxNum = 100 Randomize lRundNum = Int(lMinNum + (Rnd() * lMaxNum)) MsgBox lRundNum

  Источник

  Выделение целой и дробной части типа Double

  Форумы CADUser → Программирование → VBA → Выделение целой и дробной части типа Double

  Чтобы отправить ответ, вы должны войти или зарегистрироваться

  Сообщения 12

  #1 Тема от masha 12 октября 2006г. 15:55:18

  • 
  • masha
  • Восстановленный участник
  • На форуме с 18 мая 2006г.
  • Сообщений: 175
  • Спасибо: 0

  Тема: Выделение целой и дробной части типа Double

  Всем здравствуйте!
  Если кто-нибудь знает, подскажите, пожалуйста, есть ли в VBA такая функция и если нет, то чем её можно заменить? Нужно вот для чего: есть очень большое число типа Double, которое надо разделить нацело на другое число. Оператор «» не срабатывает, потому что не может привести большое число к типу Long или Integer, ибо тот переполняется. Буду очень рада лююбым полезным советам. Спасибо.

  #2 Ответ от masha 12 октября 2006г. 16:23:04

  • 
  • masha
  • Восстановленный участник
  • На форуме с 18 мая 2006г.
  • Сообщений: 175
  • Спасибо: 0

  Re: Выделение целой и дробной части типа Double

  Осенило! 🙂 Версия выделения целой части для положительного числа:

  И всё-таки интересно, неужели нет стандартной функции. Неужели никому, кроме меня, не надо было.

  #3 Ответ от Serj! 12 октября 2006г. 16:24:39

  • 
  • Serj!
  • Восстановленный участник
  • На форуме с 27 апреля 2006г.
  • Сообщений: 52
  • Спасибо: 0

  Re: Выделение целой и дробной части типа Double

  > masha
  первое, что приходит в голову — перевести его в String, сделать Split по точке (или запятой, не помню что там), и с 2-мя получившимися значениями делать что хочешь.

  #4 Ответ от Артём 12 октября 2006г. 16:26:16

  • 
  • Артём
  • Восстановленный участник
  • На форуме с 30 августа 2006г.
  • Сообщений: 47
  • Спасибо: 0

  Re: Выделение целой и дробной части типа Double

  число неможет быть integer или long поэтому либо использовать double либо string
  dim j as double
  dim str as string
  j=1.2546545649038E+18
  j=j/901238
  str=str(j)
  .

  #5 Ответ от masha 12 октября 2006г. 16:40:03

  • 
  • masha
  • Восстановленный участник
  • На форуме с 18 мая 2006г.
  • Сообщений: 175
  • Спасибо: 0

  Re: Выделение целой и дробной части типа Double

  Ну да, я сделала через String. Но как-то это через ж. немножко. 🙂
  Кстати, если j=1.2546545649038E+18, то в какую строку оно должно преобразовываться: «1.2546545649038E+18» или
  «1254654564903800000» ? Тогда надо ещё дополнительно рассматривать нулевую дробную часть. У меня вообще-то всё проще, дробная часть будет по-любому, поэто можно не отслеживать, но мне хотелось, чтобы оно работало всегда, а не только в текущей задачке. 🙂

  Источник