各种数据验证函数

最新推荐文章于 2023-06-13 21:20:30 发布
最新推荐文章于 2023-06-13 21:20:30 发布
阅读量261 收藏
点赞数
原文链接：http://www.cnblogs.com/topboy168/archive/2006/03/20/354122.html
版权
Public Function InvalidNumeric(txtBox As Object) As Boolean
    On Error Resume Next
    Dim strtext As String
    strtext = txtBox.Text
    If strtext <> "" Then
        If strtext <> "." Then
            If (Not IsNumeric(strtext)) Or (Val(strtext) < 0) Then
                MsgBox "This TextBox can Number", vbInformation, MsgTitle
                InvalidNumeric = True
            Else
                InvalidNumeric = False
            End If
        Else
            InvalidNumeric = False
        End If
    End If
    If InvalidNumeric = True Then
        txtBox.Text = ""
        txtBox.SetFocus
    End If
End Function
Public Function InvalidNumeric1(txtBox As Object) As Boolean
    Dim strtext As String
    strtext = txtBox.Text
    If strtext <> "" Then
        If strtext <> "." Then
            If Not IsNumeric(strtext) Then
                MsgBox "This TextBox Write Number", vbInformation, MsgTitle
                InvalidNumeric1 = True
            Else
                InvalidNumeric1 = False
            End If
        Else
            InvalidNumeric1 = False
        End If
    End If
    If InvalidNumeric1 = True Then
        txtBox.Text = ""
        txtBox.SetFocus
    End If
   
End Function
Public Function InvalidTextLen(txtBox As Object, intLen As Integer) As Boolean
    Dim strtext As String
    strtext = txtBox.Text
    If Len(strtext) > intLen Then
        MsgBox "This TextBox can Only Write 20 ", vbInformation, "Msg"
        strtext = Left(strtext, intLen)
        txtBox.Text = strtext
        InvalidTextLen = True
    Else
        InvalidTextLen = False
    End If
End Function
Public Sub WinClear(frm As Form)
On Error Resume Next
Dim Ctl As Control
For Each Ctl In frm.Controls
    Ctl.Text = ""
Next
End Sub
Public Function DateInvalid(txt As Object)
    On Error Resume Next
    DateInvalid = False
    If txt.Text <> "" Then
        If Not IsDate(txt.Text) Then
            MsgBox "Plaese Write Date ", vbInformation + vbExclamation, MsgTitle
            DateInvalid = True
            txt.Text = ""
            txt.SetFocus
        End If
    End If
End Function
Public Function InvalidTime(txt As Object)
    If txt.Text <> "" Then
        If Not IsDate(txt.Text) Then
            MsgBox "Plaese Write Time ", vbInformation, MsgTitle
            txt.Text = ""
            txt.SetFocus
            Exit Function
        End If
        txt.Text = TimeValue(txt.Text)
    End If
End Function
Public Function FindAndReplaceString(obj As Object, strFind As String, Optional strReplace)
On Error Resume Next
       Dim intPosition As Integer
       'Dim strReplace As String
       If IsMissing(strReplace) Then
          strReplace = strFind
       End If
       If Len(Trim(obj.Text)) = 0 Then
           obj.Text = obj.Text & strReplace
       Else
           intPosition = InStr(1, obj.Text, strFind)
           If intPosition > 0 Then
               obj.Text = Mid(obj.Text, 1, intPosition - 1) & Trim(strReplace) & Mid(obj.Text, intPosition + Len(strFind))
           Else
               obj.Text = obj.Text & strReplace
           End If
       End If
      
End Function
Public Function FindAndReplaceString_S(obj As Object, strFind As String, Optional strReplace) As Integer
On Error Resume Next
       Dim intPosition As Integer
       If IsMissing(strReplace) Then
          strReplace = strFind
       End If
       If Len(Trim(obj.Text)) = 0 Then
           obj.Text = obj.Text & strReplace
       Else
           intPosition = InStr(1, obj.Text, strFind)
           If intPosition > 0 Then
               obj.Text = Mid(obj.Text, 1, intPosition - 1) & Trim(strReplace) & Mid(obj.Text, intPosition + Len(strFind))
           Else
               obj.Text = obj.Text & strReplace
           End If
       End If
       FindAndReplaceString_S = intPosition
      
End Function
Public Function calData(Data() As Single)
    On Error Resume Next
    Dim i As Integer
    Dim Result(0 To 4) As Single
    Dim sngCount As Single, maxData As Single, minData As Single, avgData As Single
    Dim S As Single, N As Integer
    Dim Cv As Single
'    MaxDosage = -1001: MinDosage = 1001
    sngCount = 0: N = UBound(Data) - LBound(Data) + 1
    maxData = Data(LBound(Data)): minData = maxData
    For i = LBound(Data) To UBound(Data)
        sngCount = sngCount + Data(i)
        If Data(i) > maxData Then maxData = Data(i)
        If Data(i) < minData Then minData = Data(i)
    Next
    If N >= 1 Then
        avgData = sngCount / N
        sngCount = 0
        If N > 1 Then
            For i = LBound(Data) To UBound(Data)
                If Data(i) <> -1 Then
                    sngCount = sngCount + (Data(i) - avgData) ^ 2
                End If
            Next
            S = Sqr(sngCount / (N - 1))
            Cv = S / avgData
        End If
    End If
    Result(0) = minData: Result(1) = maxData
    Result(2) = avgData
    Result(3) = S
    Result(4) = Cv
    calData = Result
End Function
Public Function WFormat(Expression, FormatStyle) As Variant
On Error Resume Next
Dim strData As String
Dim myFormat As Variant
Dim i As Integer, j As Integer, k As Integer
Dim intTemp As Integer
Dim rStyle As Integer
 
    rStyle = 1
 
   Select Case rStyle
     Case 1
        strData = Format(Expression, "0.00000000*")
     Case 2
        strData = Format(Expression * 5, "0.00000000*")
     Case 5
        strData = Format(Expression * 2, "0.00000000*")
   End Select
       
        i = InStr(1, FormatStyle, ".", vbTextCompare)
        j = Len(FormatStyle)
        If i <> 0 Then
            k = j - i
        Else
            k = 0
        End If
        intTemp = k
        i = InStr(1, strData, ".", vbTextCompare)
        If i <> 0 And Len(strData) > i + k Then
            j = Mid(strData, i + k + 1, 1)
            If j = 5 And Val(Mid(strData, i + k + 2, Len(strData) - (i + k + 1))) = 0 Then
                If k <> 0 Then
                    j = Mid(strData, i + k, 1)
                Else
                    j = Mid(strData, i - 1, 1)
                End If
                If j Mod 2 = 0 Then
                    If k <> 0 Then
                        myFormat = Left(strData, i + k)
                    Else
                        myFormat = Left(strData, i - 1)
                    End If
                Else
                    Select Case k
                        Case 0
                            myFormat = Format(strData, "0")
                        Case 1
                            myFormat = Format(strData, "0.0")
                        Case 2
                            myFormat = Format(strData, "0.00")
                        Case 3
                            myFormat = Format(strData, "0.000")
                        Case 4
                            myFormat = Format(strData, "0.0000")
                        Case Else
                            myFormat = Format(strData, "0.00000")
                    End Select
                End If
            Else
                Select Case k
                    Case 0
                        myFormat = Format(strData, "0")
                    Case 1
                        myFormat = Format(strData, "0.0")
                    Case 2
                        myFormat = Format(strData, "0.00")
                    Case 3
                        myFormat = Format(strData, "0.000")
                    Case 4
                        myFormat = Format(strData, "0.0000")
                    Case Else
                        myFormat = Format(strData, "0.00000")
                End Select
            End If
        Else
            Select Case k
                Case 0
                    myFormat = Format(strData, "0")
                Case 1
                    myFormat = Format(strData, "0.0")
                Case 2
                    myFormat = Format(strData, "0.00")
                Case 3
                    myFormat = Format(strData, "0.000")
                Case 4
                    myFormat = Format(strData, "0.0000")
                Case Else
                    myFormat = Format(strData, "0.00000")
            End Select
        End If
    
    Select Case rStyle
     Case 1
        WFormat = myFormat
     Case 2
        If intTemp <> 0 Then
        WFormat = Format(myFormat / 5, "0." & String(intTemp, 0))
        Else
         WFormat = Format(myFormat / 5, "0")
        End If
     Case 5
        If intTemp <> 0 Then
        WFormat = Format(myFormat / 2, "0." & String(intTemp, 0))
        Else
         WFormat = Format(myFormat / 2, "0")
        End If
   End Select
End Function

Public Function MFormat(Expression, FormatStyle, RestrictStyle) As Variant
On Error Resume Next
Dim strData As String
Dim myFormat As Variant
Dim i As Integer, j As Integer, k As Integer
Dim intTemp As Integer
Dim rStyle As Integer
  If IsMissing(RestrictStyle) Then
    rStyle = 1
  Else
    rStyle = RestrictStyle
  End If
   Select Case rStyle
     Case 1
        strData = Format(Expression, "0.00000000*")
     Case 2
        strData = Format(Expression * 5, "0.00000000*")
     Case 5
        strData = Format(Expression * 2, "0.00000000*")
   End Select
       
        i = InStr(1, FormatStyle, ".", vbTextCompare)
        j = Len(FormatStyle)
        If i <> 0 Then
            k = j - i
        Else
            k = 0
        End If
        intTemp = k
        i = InStr(1, strData, ".", vbTextCompare)
        If i <> 0 And Len(strData) > i + k Then
            j = Mid(strData, i + k + 1, 1)
            If j = 5 And Val(Mid(strData, i + k + 2, Len(strData) - (i + k + 1))) = 0 Then
                If k <> 0 Then
                    j = Mid(strData, i + k, 1)
                Else
                    j = Mid(strData, i - 1, 1)
                End If
                If j Mod 2 = 0 Then
                    If k <> 0 Then
                        myFormat = Left(strData, i + k)
                    Else
                        myFormat = Left(strData, i - 1)
                    End If
                Else
                    Select Case k
                        Case 0
                            myFormat = Format(strData, "0")
                        Case 1
                            myFormat = Format(strData, "0.0")
                        Case 2
                            myFormat = Format(strData, "0.00")
                        Case 3
                            myFormat = Format(strData, "0.000")
                        Case 4
                            myFormat = Format(strData, "0.0000")
                        Case Else
                            myFormat = Format(strData, "0.00000")
                    End Select
                End If
            Else
                Select Case k
                    Case 0
                        myFormat = Format(strData, "0")
                    Case 1
                        myFormat = Format(strData, "0.0")
                    Case 2
                        myFormat = Format(strData, "0.00")
                    Case 3
                        myFormat = Format(strData, "0.000")
                    Case 4
                        myFormat = Format(strData, "0.0000")
                    Case Else
                        myFormat = Format(strData, "0.00000")
                End Select
            End If
        Else
            Select Case k
                Case 0
                    myFormat = Format(strData, "0")
                Case 1
                    myFormat = Format(strData, "0.0")
                Case 2
                    myFormat = Format(strData, "0.00")
                Case 3
                    myFormat = Format(strData, "0.000")
                Case 4
                    myFormat = Format(strData, "0.0000")
                Case Else
                    myFormat = Format(strData, "0.00000")
            End Select
        End If
    
    Select Case rStyle
     Case 1
        MFormat = myFormat
     Case 2
        MFormat = Format(myFormat / 5, "0." & String(intTemp + 1, "0"))
     Case 5
        MFormat = Format(myFormat / 2, "0." & String(intTemp + 1, "0"))
   End Select
End Function

转载于:https://www.cnblogs.com/topboy168/archive/2006/03/20/354122.html

weixin_30858241
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
js各种校验函数
01-25
在开发过程中的一些对邮件，电话，手机，端口等的javascript校验，比较全面，大家参考下。
数据校验函数
记忆_2012_有你 的专栏
12-23 970
数据校验函数
javascript常用数据验证函数
xuman0927的博客
02-29 478
造型出现在
简单数据校验函数封装
weixin_45440813的博客
01-17 248
数据校验是项目开发中经常遇到的问题，为了项目的精简，所以自己对基本的数据校验做简单封装。代码如下： class Formvalidate { constructor(rules) { this.rules = rules; } //不为空的校验规则 requirde(val = '') { return val.length > 0; } //最小长度为6的校验规则 minlength(val = '') { return val.length >=
Excel学习日记：L17-Iferror函数&数据验证
qq_32833675的博客
09-20 705
目录一、iferror函数二、资料验证 一、iferror函数 二、资料验证
javascript数据类型校验常用函数
HRM2454的博客
05-09 289
// 判断是否为JSON对象 function isJson(obj) { return typeof(obj) == "object" && Object.prototype.toString.call(obj).toLowerCase() == "[object object]" && !obj.length; } // 判断是否为数值 function isNumber(obj) { var reg_exp = /^[0-9]+$/; if (obj == ".
Excel学习笔记：P17-IFERROR函数与数据验证
InnerPeaceHQ的博客
07-28 1372
文章目录一、IFERROR函数二、数据验证 一、IFERROR函数 根据上一篇博客所提到的问题，我们将错误代码替换成简单的文字信息或使用更加醒目的弹出对话框。 我们可以使用IFERROR函数来完成此功能，其使用格式如图 因此，如果我们只需将输入的VLOOKUP函数放在第一个参数栏，然后将一些简单的提示放在第二栏，如"查无此人"。 我们来进行实际的操作。 此时总平均和成绩栏都是 “查无此人”，比较啰嗦，可以让其空白。 此查询表仍存在一些问题。比如现在我查询了一个不存在的学号，下次再准备查询时，
EXCEL进阶：如何在数据验证中使用函数
最新发布
pengch987的专栏
06-13 212
示例1：当数1+数2<=1000时，才允许输入！方法：选中需要进行数据验证的区域，选择：数据验证，选择：自定义，设置公式：=$A2+$B2<=1000。
计算机数据验证怎么做,巧用数据验证功能、Choose嵌套函数制作二级下拉菜单
weixin_29432863的博客
07-25 607
在实际的工作中，应用到下拉菜单的地方非常多，一把情况下都是为了规范数据的输入，放置数据冗余，且都是一级的。如果要制作二级下拉菜单，且必须是联动的，该如何去实现呢？目的：根据下图，当在一级菜单中选择相应的课程时，在二级菜单中只能选择对应的讲师。一、必备函数：Choose+Match。(一)Choose。功能：根据给定的索引值，从参数中选出相应的值或操作。语法结构：=Choose(索引值,返回值1,返...
单向数据流动的函数式 View Controller（上）
08-14 120
View Controller 向来是 MVC (Model-View-View Controller) 中最让人头疼的一环，MVC 架构本身并不复杂，但开发者很容易将大量代码扔到用于协调 View 和 Model 的 Controller 中。你不能说这是一种错误，因为 View Contr...
Vue笔记-组件Component-组件通信之单向数据流和props数据验证
一只勤勤恳恳的小前端
03-18 270
1、 单向数据流 父->子 props接受普通数据类型时：父组件数据影响子组件，子组件的数据改变不会影响父组件 ​props接受对象或数组这种引用数据类型：子组件直接改变props接受值，是会改变父组件里面的数据的，因为传递过来的时引用的地址而不是单纯的拷贝 注意在 JavaScript 中对象和数组是通过引用传入的，所以对于一个数组或对象类型的 prop 来说，在子组件中改变变更这个对象或数组本身将会影响到父组件的状态。 子级直接修改父级传过来的引用地址是不被允许的(直接赋值)
几个常用的验证函数
echojson的专栏
03-19 631
/** 02.* 判断是否为网址 03.* 04.* @param string $url 网址 05.* @return bool 06.*/ 07.function isUrl($url) 08.{ 09.return preg_match("/^http:\/\/[_a-zA-Z0-9-]+(.[_a-zA-Z0-9-]+)*$/"
解决Invalid numeric Value:Leading zeroes not allowed问题
qq_55076730的博客
09-25 7158
解决Invalid numeric Value:Leading zeroes not allowed
spring boot报错Invalid numeric value: Leading zeroes not allowed
iamlzyoco的博客
06-05 5062
场景：用swagger测试接口时，传递的参数中有0开头的，如下： 接口返回结果报错：Invalid numeric value: Leading zeroes not allowed 解决方案：在application.yml中，加上 spring.jackson.parser.allow-numeric-leading-zeros：true 即可。 ...
springboot项目中使用redis对数据进行解析报Invalid numeric value: Leading zeroes not allowed错误
今晚摸鱼
03-23 6450
错误分析 在使用redis获取发送的短信验证码，偶尔会报如下错误信息 2019-01-15 10:32:15.104 [http-nio-8080-exec-10] WARN org.springframework.web.servlet.PageNotFound:1176 - No mapping found f lowed at [Source: [B@2836aebe; line: 1,...
useradd: invalid numeric argument
cuixie2370的博客
11-08 801
直到删除删除了命令中所有多余的空格， 命令才得以成功执行 。 好像隐含加入了单引号 。 [root@rac001 etc]# useradd -g oinstall -G dba, oper, asmdba...
JSON parse error: Invalid numeric value: Leading zeroes not allowed
liutianliang9720的博客
01-02 6422
JSON parse error: Invalid numeric value: Leading zeroes not allowed 分享一个小小的错误问题，无意之中踩的坑。近期学习elasticsearch，进行索引数据的添加，用postman调试接口时，发现报了以下的错误。 我百思不得其解，怀疑自己的JSON格式错误格式，去解析一遍JSON格式发现没有问题，于是又回过头来看错误信息，定位到...
请求参数存在以0开头的正整数，报JSON parse error：Invalid numeric value：Leading zeroes not allowed错误
热门推荐
正能量炯哥的博客
01-10 1万+
spring boot项目中，请求参数存在以0开头的正整数，报JSON parse error：Invalid numeric value：Leading zeroes not allowed错误，错误提示就是说不允许以0开头   用swagger接口测试的时候传的参数值中有以0开头的正整数     最后的解决方式是添加一个配置类来解决，然后传的参数值05将自动被转换为5存入数据...
JavaScript数据验证函数集锦
在网页开发中，数据验证是确保用户输入符合预期的重要环节，JavaScript作为客户端脚本语言，常用于实现这种实时的前端验证。这里提供了一系列的JavaScript验证函数，包括字符串字节长度计算以及对数字、自然数、整数...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值