誰能幫助我獲得math.round（）來得到下面的輸出

Question

DecimalValue =（Math.Round（VARDECIMAL/8,1）

「VARDECIMAL」的價值將不斷變化，但在輸出後小數我只需要＃0.0或＃0.5

例如

9/8 = 1.1 - >但我需要這個1.5
11/8 = 1.4 - >但我需要這個1.5
21/8 = 2.6 - >但我需要這個3.0
27/8 = 3.4 - >但我需要這個3.5
8分之33= 4.1 - >但我需要這個4.5
8分之39= 4.9 - >但我需要這個5.0
45/8 = 5.6 - >但我需要這個6.0

的想法是小數點後高於0應四捨五入到0.5以上0.5應四捨五入1

Answer 1

這就是它看起來像在C＃中，但它應該很容易地移植到VB.Net：

http://goo.gl/ztLJC2

Math.Ceiling((double)value * 2)/2 

Answer 2

你可以嘗試使用這種微小的方法。

Public Function Round(num As Double) As Double 
    Dim intVal = CInt(Math.Truncate(num)) 
    Dim remainder = num - intVal 

    If remainder = 0 Then 
     Return num 

    ElseIf remainder <= 0.5 Then 

     remainder = 0.5 


     Return (intVal + remainder) 
    Else 


     intVal += 1 


     Return CDbl(intVal) 
    End If 

End Function 

Answer 3

使用Math.Ceiling()

Math.Ceiling(value) 
//Do your computations to get the .5 

https://msdn.microsoft.com/en-us/library/zx4t0t48(v=vs.110).aspx

Answer 4

這應該工作：math.round（（值* 2）+0.5）/ 2）