how to get mantissa and decimal part

[Ishul]

Hi All,

I have a decimal number 4.5, if decimal part less than 0.5 it should display
4, if decimal part greater than 0.5 it should display then next number 5.
without using built in function.






Thanks in advance

---

Hi All,

I have a decimal number 4.5,

if in that number , if decimal part is >0.5 it should display number as 4
and if the decimal part is <0.5 it should display number as the next number 5
how to do this without using built in functions.



Thanks in advande

[sshukla12]

Hi,

U can create a function that splits ur number. Get the number after decimal part if its <5 then display the 4 as result and if decimal part is > than 5 then add 1 in 4.
It would be a simple function. try this and let me know if u are facing some issues.

Regards,
Sankalp

[swathi]

Code:

Dim oNum  
oNum=4.5
oDecNum=oNum- int(oNum)  

oDeccpart=.5
If oDecNum > oDeccpart   then
oNum=int(oNum)
msgbox  oNum
else
oNum=int(oNum)+1
msgbox  oNum
end if

Please check the above code.

[Surya]

Try this as well

Code:

oNum = 4.5
If Split(oNum, ".")(1) > 0.5 Then
  Msgbox Int(oNum)
Else
  msgbox Int(oNum)+1
End If