I am trying to figure out how many TenThousands; Thousands; Hundreds; Tens are in a Number. (Sum ({@Line Total}, {tblMemPay.Member}) being the number). I keep getting an Error - The remaining text does not appear to be part of the formula.Can someone please help?Code:Global CurrencyVar NoTenThou; Global CurrencyVar NoThou; Global CurrencyVar NoHund; Global CurrencyVar NoTen; Global CurrencyVar Remain; if Sum ({@Line Total}, {tblMemPay.Member}) >= 10000 then NoTenThou = int(Sum ({@Line Total}, {tblMemPay.Member})/10000) //Error Here Remain = NoTenThou Mod ToNumber((Sum ({@Line Total}, {tblMemPay.Member})/10000)) else if Sum ({@Line Total}, {tblMemPay.Member}) >= 1000 then NoTenThou = 0 NoThou = int(Sum ({@Line Total}, {tblMemPay.Member})/1000) Remain = NoThou Mod ToNumber((Sum ({@Line Total}, {tblMemPay.Member})/1000)) NoHund = int(remain/100) Remain = NoHund Mod ToNumber(Remain/100) NoTen = int(Remain/10) else if Sum ({@Line Total}, {tblMemPay.Member}) >= 100 then NoTenThou = 0 NoThou = 0 NoHund = int(remain/100) Remain = NoHund Mod ToNumber(Remain/100) NoTen = int(Remain/10) else if Sum ({@Line Total}, {tblMemPay.Member}) >= 10 then NoTenThou := 0 NoThou := 0 NoHund := 0 NoTen = int(Remain/10) else if Sum ({@Line Total}, {tblMemPay.Member}) >= 1 then NoTenThou := 0 NoThou := 0 NoHund := 0 NoTen := 0 End If




Reply With Quote