Информационный портал для профессионалов в области САПР
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Форумы CADUser → Программирование → VBA → Выделение целой и дробной части типа Double
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Всем здравствуйте!
Если кто-нибудь знает, подскажите, пожалуйста, есть ли в VBA такая функция и если нет, то чем её можно заменить? Нужно вот для чего: есть очень большое число типа Double, которое надо разделить нацело на другое число. Оператор "\" не срабатывает, потому что не может привести большое число к типу Long или Integer, ибо тот переполняется. Буду очень рада лююбым полезным советам. Спасибо.
Осенило! :) Версия выделения целой части для положительного числа:
Function IntPart(x As Double) As Double
Dim s As String
Dim pos As Integer
s = CStr(x)
pos = 0
pos = InStr(1, s, ".")
If pos = 0 Then
pos = InStr(1, s, ",")
End If
IntPart = CDbl(Mid(s, 1, pos - 1))
End FunctionИ всё-таки интересно, неужели нет стандартной функции?... Неужели никому, кроме меня, не надо было?...
> masha
первое, что приходит в голову - перевести его в String, сделать Split по точке (или запятой, не помню что там), и с 2-мя получившимися значениями делать что хочешь...
число неможет быть integer или long поэтому либо использовать double либо string
dim j as double
dim str as string
j=1.2546545649038E+18
j=j/901238
str=str(j)
................................
Ну да, я сделала через String... Но как-то это через ж... немножко. :)
Кстати, если j=1.2546545649038E+18, то в какую строку оно должно преобразовываться: "1.2546545649038E+18" или
"1254654564903800000" ? Тогда надо ещё дополнительно рассматривать нулевую дробную часть... У меня вообще-то всё проще, дробная часть будет по-любому, поэто можно не отслеживать, но мне хотелось, чтобы оно работало всегда, а не только в текущей задачке. :)
из хелпа...
Dim MyNumber
MyNumber = Int(99.8) ' Returns 99.
MyNumber = Fix(99.2) ' Returns 99.
MyNumber = Int(-99.8) ' Returns -100.
MyNumber = Fix(-99.8) ' Returns -99.
MyNumber = Int(-99.2) ' Returns -100.
MyNumber = Fix(-99.2) ' Returns -99.
это разве не то?
? Fix(1.2546545649038E+18)
1,2546545649038E+18
а это не дебугер просто так показывает сокращая???
если взять
? Fix(1.2546545649038E+12)
будет
1254654564903
в любом случае можно использовать Round(j,0)
правда результат разный
? round(1.2546545649038E+12)
уже
1254654564904
=)
> Артём
Оно, противное :)
ну если округленное число тогда
j=round(j)
а если нужен обрубок тогда
j=fix(j)
Я пыталась сначала пореобразовывать с помощью CInt(), и видимо, в этом была моя роковая ошибка.
В Хелпе меня смутила фраза "return the resulting integer value". Как оно его может вернуть, если оно в целый тип не помещается? Однако пробразование с Int() действительно, работает. :) Вроде бы пока работает... Спасибо всем большое!
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форумы CADUser → Программирование → VBA → Выделение целой и дробной части типа Double
Форум работает на PunBB, при поддержке Informer Technologies, Inc
