Micro Focus QTP (UFT) Forums

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

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

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.

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

Ishul

sshukla12

swathi

Surya