<!--

// VB in JS v1.1 by Gustavo Gatto

function cstr(x) {
        return x.toString();
}

function len(x) {
        var x = cstr(x);
        return x.length;
}

function mid(x,y,z) {
        var x = cstr(x);
        return x.substr((y-1),z);
}

function left(x,y) {
        var x = cstr(x);
        return mid(x,1,y);
}

function strreverse(x) {
        var r = "";
        var x = cstr(x);
        for (var i=0; i<=len(x); i++) {
                r = x.charAt(i) + r;
        }
        return r;
}

function right(x,y) {
        var x = cstr(strreverse(x));
        return strreverse((mid(x,1,y)));
}

function instr(x,y,z) {
        if (isnumeric(x) == true) {
                var y = cstr(y);
                var z = cstr(z);
                return mid(y,x,len(y)-x).indexOf(z)+1;
        } else {
                return (false);
        }
}

function ltrim(x) {
        var c = 0;
        var x = cstr(x);
        if (x.indexOf(" ") + 1 > 0) {
                for (var i=0; i<=len(x)-1; i++) {
                        if (x.charAt(i) == " ") {
                                c++;
                        } else {
                                break;
                        }
                }
                return right(x,len(x)-c);
        } else {
                return x;
        }
}

function rtrim(x) {
        var c = 0;
        var x = cstr(x);
        var x = strreverse(x);
        if (x.indexOf(" ") + 1 > 0) {
                for (var i=0; i<=len(x)-1; i++) {
                        if (x.charAt(i) == " ") {
                                c++;
                        } else {
                                break;
                        }
                }
                return left(x,len(x)-c);
        } else {
                x = strreverse(x);
                return x;
        }
}

function trim(x) {
        var x = cstr(x);
        return strreverse(ltrim(rtrim(x)));
}

function isnumeric(x) {
        if (isNaN(x) == true) {
                return (false);
        } else {
                return (true);
        }
}

function int(x) {
        if (isnumeric(x) == true) {
                return Math.floor(x);
        } else {
                return (false);
        }
}

function cint(x) {
        if (isnumeric(x) == true) {
                return Math.round(x);
        } else {
                return (false);
        }
}

function space(x,y) {
        if (isnumeric(x) == true && isnumeric(y) == true) {
                var s = "";
                if (y == 1) {
                        var c = "&nbsp;";
                } else {
                        var c = " ";
                }
                for (var i=1; i<=x; i++) {
                        s = c + s;
                }
                return s;
        } else {
                return (false);
        }
}

function string(x,y) {
        if (isnumeric(y) == true) {
                var c = "";
                var x = cstr(x);
                for (var i=1; i<=y; i++) {
                        c = x + c;
                }
                return c;
        } else {
                return (false);
        }
}

/* Função em testes - BETA
function formatnumber(x,y) {
        if (isnumeric(x) == true) {
                if (instr(1,x,'.') > 0) {
                        var v1 = left(x,instr(1,x,'.') - 1);
                        var v2 = right(x,len(x) - instr(1,x,'.'));
                        if (len(v1) >= 4) {
                                var t = "";
                                for (var i=1; i<=len(v1); i++) {
                                        if ((i%4) == 0) {
                                                t = t + ".";
                                        }
                                        if ((len(v1)-i+1) > 0) {
                                                alert(v1.charAt(len(v1)-i+1));
                                        } else {
                                                alert(v1.charAt(len(v1)));
                                        //t = t + v1.charAt(len(v1)-i+1);
                                        }
                                }
                        }
                        return strreverse(t);
                }
        }
}
*/

function replace(x,y,z) {
        var t = "";
        var x = cstr(x);
        var y = cstr(y);
        var z = cstr(z);
        for (var i=0; i<=len(x)-1; i++) {
                if (x.charAt(i) == y) {
                        t = t + z;
                } else {
                        t = t + x.charAt(i);
                }
        }
        return t;
}

function redirect(x) {
        var x = cstr(x);
        location.href = x;
}

function write(x) {
        var x = cstr(x);
        document.write (x);
}

function lcase(x) {
        var x = cstr(x);
        return x.toLowerCase();
}

function ucase(x) {
        var x = cstr(x);
        return x.toUpperCase();
}

function day() {
        var dt = new Date();
        var d = dt.getDate();
        if (d < 10) {
                d = "0" + d;
        }
        return d;
}

function weekday() {
        var dt = new Date();
        return dt.getDay() + 1;
}

function month(x) {
        if (x != "" && isnumeric(x) == false) {
                return (false);
        }
        var dt = new Date();
        var m = dt.getMonth() + 1;
        if (m < 10 && x == 1) {
                m = "0" + m;
        }
        return m;
}

function year() {
        var dt = new Date();
        var y = dt.getYear();
        if (y < 2000) {
                y = "19" + y;
        }
        return y;
}

function hour() {
        var dt = new Date();
        var h = dt.getHours();
        if (h < 10) {
                h = "0" + h;
        }
        return h;
}

function minute() {
        var dt = new Date();
        var m = dt.getMinutes();
        if (m < 10) {
                m = "0" + m;
        }
        return m;
}

function second() {
        var dt = new Date();
        var s = dt.getSeconds();
        if (s < 10){
                s = "0" + s;
        }
        return s;
}

function weekdayname(x,y) {
        if (y == 1) {
                var s = new Array("sunday","monday","tuesday","wednesday","thursday","friday","saturday");
        } else {
                var s = new Array("domingo","segunda-feira","terça-feira","quarta-feira","quinta-feira","sexta-feira","sábado");
        }
        return s[x-1];
}

function monthname(x,y) {
        if (y == 1) {
                var m = new Array("january","february","march","april","may","june","july","august","september","october","november","december");
        } else {
                var m = new Array("janeiro","fevereiro","março","abril","maio","junho","julho","agosto","setembro","outubro","novembro","dezembro");
        }
        return m[x-1];
}

function codename() {
        return navigator.appCodeName;
}

function browser() {
        return navigator.appName;
}

function version() {
        return navigator.appVersion;
}

function agent() {
        return navigator.userAgent;
}

function abs(x) {
        if (isnumeric(x) == true) {
                if (x < 0) {
                        var x = x*-1;
                }
                return x;
        } else {
                return (false);
        }
}

function sin(x) {
        if (isnumeric(x) == true) {
                return Math.sin(x);
        } else {
                return (false);
        }
}

function rnd(x) {
        if (isnumeric(x) == true) {
                var dt = new Date();
                return int(abs(sin(dt.getTime())*1000000)) % x;
        } else {
                return (false);
        }
}

function fcase(x) {
        var x = cstr(x);
        return ucase(left(x,1)) + lcase(right(x,len(x)-1));
}

function isdate(x) {
        if (len(x) >= 8) {
                var dt = x.split("/");
                var d = dt[0];
                var m = dt[1];
                var a = dt[2];
                if (isnumeric(d) == false || isnumeric(m) == false || isnumeric(a) == false) {
                        return (false);
                }
                if (d < 1 || d > 31) {
                        return (false);
                }
                if (m < 1 || m > 12) {
                        return (false);
                }
                if (a < 1900 || a > 2900) {
                        return (false);
                }
                if (m == 4 || m == 6 || m == 9 || m == 11) {
                        if (d > 30) {
                                return (false);
                        }
                } else {
                        if (m == 2) {
                                if (a%4 == 0) {
                                        if (d > 29) {
                                                return (false);
                                        }
                                } else {
                                        if (d > 28) {
                                                return (false);
                                        }
                                }
                        }
                }
                return (true);
        } else {
                return (false);
        }
}

function now(x) {
        if (isnumeric(x) == true) {
                if(x == 1) {
                        return month(1) + "/" + day() + "/" + year() + " " + hour() + ":" + minute() + ":" + second();
                } else {
                        return day() + "/" + month(1) + "/" + year() + " " + hour() + ":" + minute() + ":" + second();
                }
        } else {
                return (false);
        }
}

function tan(x) {
        if (isnumeric(x) == true) {
                return Math.tan(x);
        } else {
                return (false);
        }
}

function sgn(x) {
        var x = cstr(x);
        if (eval(x) < 0) {
                return -1;
        } else {
                if (eval(x) == 0) {
                        return 0;
                } else {
                        if (eval(x) > 0) {
                                return 1;
                        }
                }
        }
}

function sqr(x) {
        if (isnumeric(x) == true) {
                return Math.sqrt(x);
        } else {
                return (false);
        }
}

function atn(x) {
        if (isnumeric(x) == true) {
                return Math.atan(x);
        } else {
                return (false);
        }
}

function time() {
        return hour() + ":" + minute() + ":" + second();
}

function fix(x) {
        var x= cstr(x);
        return left(x,instr(1,x,'.')-1);
}

function mod(x,y) {
        return x%y;
}

function date(x) {
        if (x == 1) {
                return (month(1) + "/" + day() + "/" + year());
        } else {
                return (day() + "/" + month(1) + "/" + year());
        }
}

function istime(x) {
        if (len(x) >= 5 && len(x) <= 8) {
                var t = x.split(":");
                var h = t[0];
                var m = t[1];
                var s = t[2];
                if (isnumeric(h) == false || isnumeric(m) == false || isnumeric(s) == false) {
                        return (false);
                }
                if (h < 0 || h > 23 || m < 0 || m > 59 || s < 0 || s > 59) {
                        return (false);
                }
                return (true);
        } else {
                return (false);
        }
}

function datenow(x,y) {
         if (isdate(x) == true) {
              var dt = x.split("/");
              var d = dt[0];
              var m = dt[1];
              var a = dt[2];
              var data = a.toString() + m.toString() + d.toString();
              var data_atual = year().toString() + month(1).toString() + day().toString();

              if (y == -1) {
                  if (data < data_atual) {
                      return (true);
                  }
              } else if (y == 0) {
                  if (data_atual == data) {
                      return (true);
                  }
              } else if (y == 1) {
                  if (data > data_atual) {
                      return (true);
                  }
              }
         }
         return (false);
}

//-->