' VBScript File
function setCurrencyFormat(obj, digit)
    CheckNumber = true
    if not(obj.value = "" or isnull(obj.value)) then		
	    CheckNumber =  isnumeric(obj.value)
	    if CheckNumber then
            setCurrencyFormat = FormatNumber(obj.value, digit)
        else
            if(digit > 0) then
                setCurrencyFormat = "0.00"
            else 
                setCurrencyFormat = "0"
            end if
        end if
    else
        if(digit > 0) then
            setCurrencyFormat = "0.00"
        else 
            setCurrencyFormat = "0"
        end if
    end if
end function