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

<*> 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/
 


Reply via email to