I was making my balance sheets and found the tax calculations to be cumbersome. So I wrote some tax functions. why not. (I do not guarantee accuracy!)

REM  *****  BASIC  *****

function fedIncomeTaxRate(value)
    if value >= 0      and value <= 7825   then fedIncomeTaxRate=.1
    if value >= 7826   and value <= 31850  then fedIncomeTaxRate=.15
    if value >= 31851  and value <= 77100  then fedIncomeTaxRate=.25
    if value >= 77101  and value <= 160850 then fedIncomeTaxRate=.28
    if value >= 160851 and value <= 349700 then fedIncomeTaxRate=.33
    if value >= 349701                     then fedIncomeTaxRate=.35
end function

function fedIncomeTax(value)
    fedIncomeTax = fedIncomeTaxRate(value) * value
end function

function nyIncomeTax(value)
    if value >= 0 and value < 12000 then 
        nyIncomeTax = value * 0.02907
    end if    
    if value >= 12000 and value < 25000 then
        nyIncomeTax = 349 + ((value - 12000) * 0.03534)
    end if        
    if value >= 25000 and value < 50000 then
        nyIncomeTax = 808 + ((value - 25000) * 0.03591)
    end if        
    if value >= 50000 then
        nyIncomeTax = 1706 + ((value - 50000) * 0.03648)
    end if
end function