用户登录  |  用户注册
首 页商业源码原创产品编程论坛
当前位置:PB创新网文章中心编程技巧Delphi

几个常用的小函数(二)

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2009-03-16 20:19:06
//opt1 小数     opt2   负数
//当opt2为1时检查num是否是负数
//当opt1为1时检查num是否是小数
//返回1是正确的,0是错误的
function chknbr(num,opt1,opt2)
{
    var i=num.length;
    var staus;
//staus用于记录.的个数
    status=0;
    if ((opt2!=1) && (num.charAt(0)==''-''))
    {
        //alert("You have enter a invalid number.");
        return 0;
    
    }
//当最后一位为.时出错
    if (num.charAt(i-1)==''.'')
    {
        //alert("You have enter a invalid number.");
        return 0;
    }

    for (j=0;j<i;j++)
    {
        if (num.charAt(j)==''.'')
        {
            status++;
        }
        if (status>1)
        {
        //alert("You have enter a invalid number.");
        return 0;        
        }
        if (num.charAt(j)<''0'' num.charAt(j)>''9'' )
        {
            if (((opt1==0) (num.charAt(j)!=''.'')) && (j!=0))
            {
                //alert("You have enter a invalid number.");
                return 0;
            }
        }
    }
    return 1;
}

//函数名:chkdate
//功能介绍:检查是否为日期
//参数说明:要检查的字符串
//返回值:0:不是日期  1:是日期
function chkdate(datestr)
{
    var lthdatestr
    if (datestr != "")
        lthdatestr= datestr.length ;
    else
        lthdatestr=0;
        
    var tmpy="";
    var tmpm="";
    var tmpd="";
    //var datestr;
    var status;
    status=0;
    if ( lthdatestr== 0)
        return 0

    
    for (i=0;i<lthdatestr;i++)
    {    if (datestr.charAt(i)== ''-'')
        {
            status++;
        }
        if (status>2)
        {
            //alert("Invalid format of date!");
            return 0;
        }
        if ((status==0) && (datestr.charAt(i)!=''-''))
        {
            tmpy=tmpy+datestr.charAt(i)
        }
        if ((status==1) && (datestr.charAt(i)!=''-''))
        {
            tmpm=tmpm+datestr.charAt(i)
        }
        if ((status==2) && (datestr.charAt(i)!=''-''))
        {
            tmpd=tmpd+datestr.charAt(i)
        }

    }
    year=new String (tmpy);
    month=new String (tmpm);
    day=new String (tmpd)
    //tempdate= new String (year+month+day);
    //alert(tempdate);
    if ((tmpy.length!=4) (tmpm.length>2) (tmpd.length>2))
    {
        //alert("Invalid format of date!");
        return 0;
    }
    if (!((1<=month) && (12>=month) && (31>=day) && (1<=day)) )
    {
        //alert ("Invalid month or day!");
        return 0;
    }
    if (!((year % 4)==0) && (month==2) && (day==29))
    {
        //alert ("This is not a leap year!");
        return 0;
    }
    if ((month<=7) && ((month % 2)==0) && (day>=31))
    {
        //alert ("This month is a small month!");
        return 0;
    
    }
    if ((month>=8) && ((month % 2)==1) && (day>=31))
    {
        //alert ("This month is a small month!");
        return 0;
    }
    if ((month==2) && (day==30))
    {
        //alert("The Febryary never has this day!");
        return 0;
    }
    
    return 1;
}
//函数名:chksafe
//功能介绍:检查是否含有"''",''\\'',"/"
//参数说明:要检查的字符串
//返回值:0:是  1:不是
function chksafe(a)
{    
    return 1;
/*    fibdn = new Array ("''" ,"\\", "、", ",", ";", "/");
    i=fibdn.length;
    j=a.length;
    for (ii=0;ii<i;ii++)
    {    for (jj=0;jj<j;jj++)
        {    temp1=a.charAt(jj);
            temp2=fibdn[ii];
            if (tem'';p1==temp2)
            {    return 0; }
        }
    }
    return 1;
*/    
}

//函数名:chkspc
//功能介绍:检查是否含有空格
//参数说明:要检查的字符串
//返回值:0:是  1:不是
function chkspc(a)
{
    var i=a.length;
    var j = 0;
    var k = 0;
    while (k<i)
    {
        if (a.charAt(k) != " ")
            j = j+1;
        k = k+1;
    }
    if (j==0)
    {
        return 0;
    }
    
    if (i!=j)
    { return 2; }
    else
    {
        return 1;
    }
}

Tags:

作者:佚名

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论
PB创新网ourmis.com】Copyright © 2000-2009 . All Rights Reserved .
页面执行时间:24,312.50000 毫秒
Email:ourmis@126.com QQ:2322888 蜀ICP备05006790号