Rounding

[cranebill]

Does anyone know of a simple way to possibly round up to the nearest 2? I can do it in Excel but have yet to find a way to do it in Access... for example

1.1=2

1.9 = 2

27.6 = 28

I guess rounding up to an even integer may work but still do not know how to do that.

Any help appreciated.

Bill

 

[RiazKhanmohamed]

try this function. I wrote it to round to mine specs, but i've amended it for yours:

Public Function Round(TQ As Variant) As Double
Dim A, B, C As Double

A = TQ - Int(TQ)
If A = 0 Then
B = 0
Else
B = 1
End If
C = B + Int(TQ)

Round = C
End Function

 

[cranebill]

Thanx for the help... I had to modify it a tad. I was using test data and for some reason it sometimes would go to an odd number so I added .5 and it seems to be working well. Here is the way i modified it:

Private Sub Command243_Click()
Dim A, B, C As Double
Dim TQ As Double
TQ = 60.1

A = TQ - Int(TQ)
If A = 0 Then
B = 0
Else
B = 1
End If
C = B + Int(TQ)
C = Round(C + 0.5)


MsgBox C, , test
End Sub

Can you tell me though what does this function you wrote do:

Int(TQ)

Thanx again,

Bill

 

[RiazKhanmohamed]

int(x) strips x of it's decimal data, so int(5.67) = 5

i coded it round to .5 as well if required, but you can amend as required

 

[danvlas]

thread701-638828
might help

Good luck



Daniel Vlas
Systems Consultant

http://www.geocities.com/danvlas/AutoMail.html

 

[spiralmind]

2*(int(x)/2+1)


- may seeds of dreams fall from my hands
and by yours be pressed into the ground