Функция TRUNC (в екслель ОТБР)

[Jaroslav]

Добрый день. Пишу такой код:

MsgBox TRUNC(Range("F10"))

Выдает ошибку
Compile error:
Sub or function not defined

Если пишу формулу на листе ексель - все работает.
Ребята, а у Вас эта функция в VBA работает?

[аналитика]

нет такой функции
если тебе до целого надо, то вот это тоже самое делает:

MsgBox Fix(Range("F10"))

[IgorGO]

TRUNC - это не функция VBA, это функция листа
MsgBox worksheetfunction.TRUNC(Range("F10" ))

[аналитика]

Сообщение от IgorGO

TRUNC - это не функция VBA, это функция листа
MsgBox worksheetfunction.TRUNC(Range("F10" ))

к сожалению этой функции там нет, видимо из-за того, что ее легко заменить встроенными средствами, напр

fix(Num*(10^iDec))/(10^iDec)

[IgorGO]

Опа, оказалось среди worksheetfunction TRUNC не числится... извините

[sasha_prof]

Сообщение от IgorGO

TRUNC - это не функция VBA, это функция листа
MsgBox worksheetfunction.TRUNC(Range("F10" ))

Возможно ли задать округление до определенного количества знаков и не к меньшему а к ближайшему числу???

[аналитика]

Function dhRound(dblNumber As Double, iDecimals As Integer) As Double
   Dim dblFactor As Double
   Dim dblTemp As Double
   
   dblFactor = 10 ^ iDecimals
   dblTemp = dblNumber * dblFactor + 0.5
   dhRound = Int(dblTemp) / dblFactor
End Function

[IgorGO]

возможно - round

[Jaroslav]

Спасибо, ребята

[аналитика]

по-поводу ОТБР

MsgBox [TRUNC(F10,2)]
MsgBox Evaluate("TRUNC(F10,1)")