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.
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
Can someone please help?