Rounding up numeric value

[Guest]

Hello,
I am using the following statement to determine the amount of time to charge.

TotFractTime: Val(Hour([ElapseTime]))+(Int((Minute ([ElapseTime])+14)/15)/4)

I now need to round this up to the next whole number, even if the result is
4.25, it needs to round up to 5.

Thanks!
Mary

 

[Guest]

Hi Mary.

Try Int().
Int(Val(Hour([ElapseTime]))+(Int((Minute ([ElapseTime])+14)/15)/4))

 

[Guest]

Sorry,

Int() will force to be the integer part of the value.

Int(Val(Hour([ElapseTime]))+(Int((Minute ([ElapseTime])+14)/15)/4) +.5)

 

[Guest]

Hi Mary,

Never mind. It still not right. Let me check something else.

Sorry,

Int() will force to be the integer part of the value.

Int(Val(Hour([ElapseTime]))+(Int((Minute ([ElapseTime])+14)/15)/4) +.5)

Hello,
I am using the following statement to determine the amount of time to charge.

TotFractTime: Val(Hour([ElapseTime]))+(Int((Minute ([ElapseTime])+14)/15)/4)

I now need to round this up to the next whole number, even if the result is
4.25, it needs to round up to 5.

Thanks!
Mary

 

[Guest]

Hi Mary,

Try Round().

Round(Val(Hour([ElapseTime]))+(Int((Minute ([ElapseTime])+14)/15)/4)+.5)

 

[Guest]

JL, I get an error that the Round statement contains an undefined function.
Do I need to set that up as function first?

Thanks,
Mary

Hi Mary,

Try Round().

Round(Val(Hour([ElapseTime]))+(Int((Minute ([ElapseTime])+14)/15)/4)+.5)

Hello,
I am using the following statement to determine the amount of time to charge.

TotFractTime: Val(Hour([ElapseTime]))+(Int((Minute ([ElapseTime])+14)/15)/4)

I now need to round this up to the next whole number, even if the result is
4.25, it needs to round up to 5.

Thanks!
Mary

 

[Brendan Reynolds]

If I remember correctly, the Round function was new in Access 2000/VBA 6. If
you're using an earlier version (or if the behaviour of the built-in
function doesn't suit your needs) try this custom VBA rounding function ...

http://www.mvps.org/access/modules/mdl0054.htm

--
Brendan Reynolds (MVP)

JL, I get an error that the Round statement contains an undefined
function.
Do I need to set that up as function first?

Thanks,
Mary

Hi Mary,

Try Round().

Round(Val(Hour([ElapseTime]))+(Int((Minute ([ElapseTime])+14)/15)/4)+.5)

Hello,
I am using the following statement to determine the amount of time to
charge.

TotFractTime: Val(Hour([ElapseTime]))+(Int((Minute
([ElapseTime])+14)/15)/4)

I now need to round this up to the next whole number, even if the
result is
4.25, it needs to round up to 5.

Thanks!
Mary

 

[Guest]

Hi Mary,

If you are using Office 2000 and above, you are likely missing your library
references. Hit Alt+F11. It will bring you to the VBA Editor. Under Tools
and Reference. Make sure you have at least the following checked.

- Visual Basic For Applications
- Microsoft Access 9.0 Object Library
- OLE Automation
- Microsoft ActiveX Data Objects 2.5 Library
- Microsoft DAO 3.6 Objecdt Library

JL, I get an error that the Round statement contains an undefined function.
Do I need to set that up as function first?

Thanks,
Mary

Hi Mary,

Try Round().

Round(Val(Hour([ElapseTime]))+(Int((Minute ([ElapseTime])+14)/15)/4)+.5)

Hello,
I am using the following statement to determine the amount of time to charge.

TotFractTime: Val(Hour([ElapseTime]))+(Int((Minute ([ElapseTime])+14)/15)/4)

I now need to round this up to the next whole number, even if the result is
4.25, it needs to round up to 5.

Thanks!
Mary