Well to be completely honest, I'm not sure, depends on whether you want to round up, down or to the nearest.
-----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of edsynergy Sent: Saturday, 24 June 2006 9:29 p.m. To: Jason Subject: [delphi-en] Re: Rounding problem Jason which mode should be used for a financial application ? best wishes Ed. --- In [email protected], "Jason Coley" <[EMAIL PROTECTED]> wrote: > > Check the rounding mode is what you expect before running your code. > > GetRoundMode; > SetRoundMode(); > > Regards Jason > > > -----Original Message----- > From: [email protected] [mailto:[EMAIL PROTECTED] On > Behalf Of edsynergy > Sent: Saturday, 24 June 2006 5:20 a.m. > To: Jason > Subject: [delphi-en] Rounding problem > > Hi > > > > I have a routine that does the following. Cycles through a record set > and uses a procedure to get an invoice total for a particular day. > > This roughly how the code goes. > > > > Var > > Amount:currency; > > InvoiceTotal:currency > > > > Amount:= 0; > > While not eof begin > > InvoiceTotal:= 0; > > Getdailytotal(invoicetotal); > > Amount:= amount + InvoiceTotal; > > > > next > > End; > > > > Finally I post this into a database record > > > > Field = roundto(amount,-2); > > > > > > When I run it on my pc it works as advertised giving the exact total. > > When running on my clients pc its always very slightly out. ( but we are > talking money here ) > > e.g I might get a value 332.00 but my client gets 330.71 > > > > My pc is running windows 2000 prof my client is running Windows xp. > > > > Any help appreciated > > > > Ed. > > > > > > > > > > ------------------------ Yahoo! Groups Sponsor -------------------- ~--> > See what's inside the new Yahoo! Groups email. > http://us.click.yahoo.com/2pRQfA/bOaOAA/yQLSAA/i7folB/TM > -------------------------------------------------------------------- ~-> > > ----------------------------------------------------- > Home page: http://groups.yahoo.com/group/delphi-en/ > To unsubscribe: [EMAIL PROTECTED] > Yahoo! Groups Links > ------------------------ Yahoo! Groups Sponsor --------------------~--> Great things are happening at Yahoo! Groups. See the new email design. http://us.click.yahoo.com/TISQkA/hOaOAA/yQLSAA/i7folB/TM --------------------------------------------------------------------~-> ----------------------------------------------------- Home page: http://groups.yahoo.com/group/delphi-en/ To unsubscribe: [EMAIL PROTECTED] Yahoo! Groups Links ------------------------ Yahoo! Groups Sponsor --------------------~--> Check out the new improvements in Yahoo! Groups email. http://us.click.yahoo.com/6pRQfA/fOaOAA/yQLSAA/i7folB/TM --------------------------------------------------------------------~-> ----------------------------------------------------- Home page: http://groups.yahoo.com/group/delphi-en/ To unsubscribe: [EMAIL PROTECTED] Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/delphi-en/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
