Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > microsoft.public.excel.programming > #107997

Re: VBA Rounding

Show all headers | View raw

Looks like you want a sort of bankers' rounding but to a 1 place decimal

One way, but warning only lightly tested with your example data

arr = Array(2.45, 2.75, 2.89, 2.67, 2.56, 2.32)

For i = 0 To UBound(arr)
Debug.Print arr(i), Int((arr(i) * 10 + Int(arr(i) * 10) Mod 2)) / 10
Next

 2.45          2.4
 2.75          2.8
 2.89          2.8
 2.67          2.6
 2.56          2.6
 2.32          2.4

Curiosity, what's the purpose for such rounding?

Regards,
Peter T


"Gene Haines" <Gene.Haines.1023e9c8@excelbanter.com> wrote in message 
news:Gene.Haines.1023e9c8@excelbanter.com...
>
> I am trying to see if the VBA rounding function will round to even. As
> an example:
>
> Cell  A1:A6
> 2.45
> 2.75
> 2.89
> 2.67
> 2.56
> 2.32
>
> Result from above
> 2.4
> 2.8
> 2.8
> 2.6
> 2.6
> 2.4
>
> I cannot find anything online that will accomplish this. Does anyone
> know the code in VBA that may work?
>
> Thank you
>
> Gene Haines

Back to microsoft.public.excel.programming | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread

Thread

VBA Rounding Gene Haines <Gene.Haines.1023e9c8@excelbanter.com> - 2015-08-26 22:29 +0100
  Re: VBA Rounding "Peter T" <askformy@gmail.com> - 2015-08-27 09:50 +0100
  Re: VBA Rounding Gene Haines <Gene.Haines.10256579@excelbanter.com> - 2015-08-28 01:05 +0100
    Re: VBA Rounding witek <witek7205@gazeta.pl.invalid> - 2015-08-27 20:49 -0500

csiph-web