日期检查

最新推荐文章于 2023-07-31 18:02:27 发布
最新推荐文章于 2023-07-31 18:02:27 发布
阅读量415 收藏
点赞数
文章标签： string exception function integer class
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/panzhengyu/article/details/1506209
版权

Option Strict On
Option Explicit On

Imports System.Data
Imports System.IO
Imports Microsoft.VisualBasic
Imports PW1.P09020201.Entity
Imports PW1.P09020201.DAO
Imports PW1.Common
Imports PW1.Common.Data
Imports PW1.Common.IO


Namespace PW1.P09020201.Business

    Public Class CakeikauteisiCheck

        Public Function CheckParameters(ByVal ScrInfo As Entity.ScreenInfo) As String
            Dim strMsg As String = String.Empty
            Dim systemDay As String = Format(Now, "yyyy/MM/dd")
            'Dim K As Integer
            'Dim str As String
            ''停止日の年
            If ScrInfo.KkhidukeYear.Equals(String.Empty) Then
                strMsg = "E3001" & "," & "停止日の年"
                Return strMsg
            ElseIf Utility.containsForbiddenChar(ScrInfo.KkhidukeYear) Then
                strMsg = "E3045" & "," & "停止日の月"
                Return strMsg
            ElseIf Not Utility.isValidInteger(ScrInfo.KkhidukeYear) Then
                strMsg = "E3010" & "," & "停止日の年"
                Return strMsg
            End If
            ''停止日の月
            If ScrInfo.KkhidukeMonth.Equals(String.Empty) Then
                strMsg = "E3001" & "," & "停止日の月"
                Return strMsg
            ElseIf Utility.containsForbiddenChar(ScrInfo.KkhidukeMonth) Then
                strMsg = "E3045" & "," & "停止日の月"
                Return strMsg
            ElseIf Not Utility.isValidInteger(ScrInfo.KkhidukeMonth) Then
                strMsg = "E3010" & "," & "停止日の月"
                Return strMsg
            End If
            ''停止日の日
            If ScrInfo.KkhidukeDay.Equals(String.Empty) Then
                strMsg = "E3001" & "," & "停止日の日"
                Return strMsg
            ElseIf Utility.containsForbiddenChar(ScrInfo.KkhidukeDay) Then
                strMsg = "E3045" & "," & "停止日の日"
                Return strMsg
            ElseIf Not Utility.isValidInteger(ScrInfo.KkhidukeDay) Then
                strMsg = "E3010" & "," & "停止日の日"
                Return strMsg
            End If
            '停止時間(開始)の時
            If ScrInfo.KkteijiTimeStart.Equals(String.Empty) Then
                strMsg = "E3001" & "," & "停止時間(開始)の時"
                Return strMsg
            ElseIf Utility.containsForbiddenChar(ScrInfo.KkteijiTimeStart) Then
                strMsg = "E3045" & "," & "停止時間(開始)の時"
                Return strMsg
            ElseIf Not Utility.isValidInteger(ScrInfo.KkteijiTimeStart) Then
                strMsg = "E3010" & "," & "停止時間(開始)の時"
                Return strMsg
            ElseIf Convert.ToDecimal(ScrInfo.KkteijiTimeStart) > 23 OrElse Convert.ToDecimal(ScrInfo.KkteijiTimeStart) < 0 Then
                strMsg = "E3007" & "," & "停止時間(開始)の時"
                Return strMsg
            End If
            ''停止時間(開始)の分
            If ScrInfo.KkteijiTimePmStart.Equals(String.Empty) Then
                strMsg = "E3001" & "," & "停止時間(開始)の分"
                Return strMsg
            ElseIf Utility.containsForbiddenChar(ScrInfo.KkteijiTimePmStart) Then
                strMsg = "E3045" & "," & "停止時間(開始)の分"
                Return strMsg
            ElseIf Not Utility.isValidInteger(ScrInfo.KkteijiTimePmStart) Then
                strMsg = "E3010" & "," & "停止時間(開始)の分"
                Return strMsg
            ElseIf Convert.ToDecimal(ScrInfo.KkteijiTimePmStart) > 59 OrElse Convert.ToDecimal(ScrInfo.KkteijiTimePmStart) < 0 Then
                strMsg = "E3007" & "," & "停止時間(開始)の分"
                Return strMsg
            End If
            ''停止時間(終了)の時
            ' If (ScrInfo.KkteijiTimeEnd.Equals(String.Empty)) Then
            If ScrInfo.KkteijiTimeEnd.Equals(String.Empty) Then
                strMsg = "E3001" & "," & "停止時間(終了)の時"
                Return strMsg
            ElseIf Utility.containsForbiddenChar(ScrInfo.KkteijiTimeEnd) Then
                strMsg = "E3045" & "," & "停止時間(終了)の時"
                Return strMsg
            ElseIf Not Utility.isValidInteger(ScrInfo.KkteijiTimeEnd) Then
                strMsg = "E3010" & "," & "停止時間(終了)の時"
                Return strMsg
            ElseIf Convert.ToDecimal(ScrInfo.KkteijiTimeEnd) > 23 OrElse Convert.ToDecimal(Not ScrInfo.KkteijiTimeEnd.Equals(String.Empty)) < 0 Then
                strMsg = "E3007" & "," & "停止時間(終了)の時"
                Return strMsg
            End If
            'End If
            ''停止時間(終了)の分
            'If (ScrInfo.KkteijiTimePmEnd.Equals(String.Empty)) Then
            If ScrInfo.KkteijiTimePmEnd.Equals(String.Empty) Then
                strMsg = "E3001" & "," & "停止時間(終了)の分"
                Return strMsg
            ElseIf Utility.containsForbiddenChar(ScrInfo.KkteijiTimePmEnd) Then
                strMsg = "E3045" & "," & "停止時間(終了)の分"
                Return strMsg
            ElseIf Not Utility.isValidInteger(ScrInfo.KkteijiTimePmEnd) Then
                strMsg = "E3010" & "," & "停止時間(終了)の分"
                Return strMsg
            ElseIf Convert.ToDecimal(ScrInfo.KkteijiTimePmEnd) > 59 OrElse Convert.ToDecimal(ScrInfo.KkteijiTimePmEnd) < 0 Then
                strMsg = "E3007" & "," & "停止時間(終了)の分"
                Return strMsg
            End If
            'End If
            If 60 < Utility.getStringBytes(ScrInfo.KkriyuuReasons) Then
                strMsg = "E3028" & "," & "停止理由" & "," & "60"
                Return strMsg
            End If

            '' 停止日妥当性チェック
            'If (Not ScrInfo.KkhidukeYear.Equals(String.Empty)) _
            'AndAlso (Not ScrInfo.KkhidukeMonth.Equals(String.Empty)) _
            'AndAlso (Not ScrInfo.KkhidukeDay.Equals(String.Empty)) Then

            Dim strTmpYear As String
            Dim strTmpMon As String
            Dim strTmpDay As String

            strTmpYear = ScrInfo.KkhidukeYear
            strTmpYear = Format(Convert.ToInt16(strTmpYear), "0000")
            ScrInfo.KkhidukeYear = strTmpYear

            strTmpMon = ScrInfo.KkhidukeMonth
            strTmpMon = Format(Convert.ToInt16(strTmpMon), "00")
            ScrInfo.KkhidukeMonth = strTmpMon

            strTmpDay = ScrInfo.KkhidukeDay
            strTmpDay = Format(Convert.ToInt16(strTmpDay), "00")
            ScrInfo.KkhidukeDay = strTmpDay

            If Not Microsoft.VisualBasic.IsDate(strTmpYear & "/" & strTmpMon & "/" & strTmpDay) Then
                strMsg = "E3007" & "," & "停止日"
                Return strMsg
            End If

            If (strTmpYear & "/" & strTmpMon & "/" & strTmpDay) < systemDay Then
                strMsg = "E3055" & "," & "停止日"
                Return strMsg
            End If


            '停止時間妥当性チェック()
            ' If (Not ScrInfo.KkteijiTimeStart.Equals(String.Empty)) _
            'AndAlso (Not ScrInfo.KkteijiTimePmStart.Equals(String.Empty)) _
            'AndAlso (Not ScrInfo.KkteijiTimeEnd.Equals(String.Empty)) _
            'AndAlso (Not ScrInfo.KkteijiTimePmEnd.Equals(String.Empty)) Then

            'Dim strTmpStart As String
            'Dim strTmpEnd As String


            'strTmpStart = Format(Convert.ToInt16(ScrInfo.KkteijiTimeStart), "00") & Format(Convert.ToInt16(ScrInfo.KkteijiTimePmStart), "00")
            'strTmpEnd = Format(Convert.ToInt16(ScrInfo.KkteijiTimeEnd), "00") & Format(Convert.ToInt16(ScrInfo.KkteijiTimePmEnd), "00")

            'If strTmpStart >= strTmpEnd Then
            '    strMsg = "E3015" & "," & "停止時間"
            '    Return strMsg
            'End If

            'Dim strHiduke As String = ScrInfo.KkhidukeYear & ScrInfo.KkhidukeMonth & ScrInfo.KkhidukeDay
            'Dim strTeijiTime As String = Format(Convert.ToInt16(ScrInfo.KkteijiTimeStart), "00") & Format(Convert.ToInt16(ScrInfo.KkteijiTimePmStart), "00")
            'Dim strTeijiTime As String = ScrInfo.KkteijiTimeStart & ScrInfo.KkteijiTimePmStart

            'If ExistsChk.Select(" KKHIDUKE = '" & strHiduke & "' and KKTEIJITIME = '" & strTeijiTime & "'").Length > 1 Then
            '    strMsg = "E3018" & "," & "停止時間"
            '    Return strMsg
            'End If


            Return String.Empty
        End Function

        Public Shared Sub ExecuteEventLogic(ByRef UpdInfo As CakeikuteisiEntity, ByVal pid As String)
            Try
                tUpdataDataCakeikakut.UpdateProc(UpdInfo, pid)
            Catch ex As Exception
                Throw
            End Try
        End Sub

    End Class
End Namespace 

panzhengyu
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
php检查日期函数checkdate用法实例
10-24
主要介绍了php检查日期函数checkdate用法,实例分析了php中checkdate函数的使用技巧,非常具有实用价值,需要的朋友可以参考下
Github的Repo创建日期检查器「Repo creation date checker for Github」-crx插件
03-10
在Github上检查创建日期和最后更新日期。 有没有想过一个项目已经有多久了？或者您很快就想知道上次更新的时间。这个简单的扩展在repo详细信息栏中添加了两个额外的标签，一个用于回购时创建，另一个用于上次更新时...
日期检测
weixin_30415801的博客
07-10 293
<html> <head><title>日期有效性检测--支持格式：yyyy-mm-dd,yyyy/mm/dd,mm/dd/yyyy,mm-dd-yyyy</title> <script language="JavaScript"> <!-- function validateDate(fld...
检查日期
ie421.Net
05-15 555
     function   checkDateInput(obj){     if   (obj.value.length==0)   return   false;     var   objValue=obj.value.replace(/[-/.]/g,"/");     try{     var   a=new   Date(objValue);     if   (isNaN(a))
Java检查日期字符串是否合法的方法总结（推荐方法3）
zgphacker2010的专栏
07-31 1773
Java检查日期字符串是否合法的方法总结
java 日期检查_如何在Java中检查日期
weixin_31632707的博客
02-19 593
忽然笑如@Maglob所示，基本方法是使用SimpleDateFormat.Analysis..这将捕获无效的日/月组合，如2008-02-31。然而，在实践中，这是不够的，因为SimpleDateFormat.Analysis是非常自由的。你可能会关注两种行为：日期字符串中的无效字符令人惊讶的是，2008-02-2x将“传递”为一个有效日期，例如locale Format=“yyyy-mm-dd...
JS检查日期有效性
12-15
一个超简单的Javascript检查日期的有效性，包括日期格式、闰年、平年、大月、小月...
JavaScript检查是否是正确的日期格式的代码
10-28
JavaScript 检查是否是正确的日期格式，不但判断格式，而且还可判断天数是否超出。
生日日期选择
06-06
为了确保数据的正确性，需要验证日期的有效性，比如检查是否为过去的日期，防止用户输入未来日期或者不存在的日期（如2月30日）。 接着，时间日期处理还涉及到编程语言中的日期和时间库。在Python中，可以使用内置...
Linux shell 之日期检查
大卫象专栏
12-02 2365
一、引言 编写任何程序必可不少的一个环节是前置检查和后置验证，shell脚本编写也不例外，其中一类是日期检查。现有给出的较多方法是判断长度，拆分字符串(echo $datestring|cut -c x-y)，利用日历功能cal $month $year| grep $day查询是否存在该日期。这种方法看似好用，但会存在Bug（见http://blog.csdn.net/zmxj/article
JavaScript 检查日期格式
修也
08-19 997
isDate(d){ // let regStr = "^(((\d+/0[1-9]/((0[1-9])|([1-2][0-9])|(3[0-1])))|(\d+/1[0-2]/((0[1-9])|([1-2][0-9])|(3[0-1]))))|((\d+-0[1-9]-((0[1-9])|([1-2][0-9])|(3[0-1])))|(\d+-1[0-2]-((0[1-9])|([1-2...
IsValid()函数在Coldfusion中的使用
chicuoming8446的博客
04-03 245
IsValid()函数在Coldfusion中的使用 很久没有更新BLOG了,呵呵 Coldfusion中这个函数挺不错,包含很多功能! 语法: IsValid(type, value) isValid("range", value, min, max) isValid("regex" or ...
判断字符串是否为合法整数
保持住思维的鲜活，才能充满活力。
07-14 1450
很简单直接上代码了(isValidInteger.c)： #include #include #include int isValidIntegerString(char *s) { int i; int len; len = strlen(s); for(i = 0; i < len; i++) { if(i == 0 && (
函数IsValid()
weixin_30297281的博客
01-11 1456
功能：检查对象变量是否已经实例化，即实例变量的值是否是个有效的对象句柄。 语法：IsValid(objectname) 参数：objectname:要检查的对象名。 返回值：Boolean。如果指定对象已经创建了对此案实例，那么IsValid()函数返回True,否则返回FALSE。如果参数obejctname的值为NULL，IsValid()函数返回NULL。 eg:IF IsVa...
安全技术交底记录.docx
最新发布
07-13
安全技术交底记录.docx
质量隐患整改通知单.docx
07-13
质量隐患整改通知单.docx
Java实现日期检查程序，6位日期，1990年一月到2049年12月
06-09
可以使用Java内置的日期类库来实现日期检查程序，以下是一个示例代码： ```java import java.text.ParseException; import java.text.SimpleDateFormat; import java.util.Date; public class DateChecker { public static void main(String[] args) { String input = "202112"; // 输入的日期字符串 SimpleDateFormat dateFormat = new SimpleDateFormat("yyyyMM"); dateFormat.setLenient(false); // 关闭宽松模式，不允许自动修正日期 try { Date date = dateFormat.parse(input); int year = date.getYear() + 1900; // Date类中的年份是从1900开始计算的 int month = date.getMonth() + 1; // 月份从0开始计算，需要加1 if (year < 1990 || year > 2049 || month < 1 || month > 12) { System.out.println("日期不在有效范围内"); } else { System.out.println("日期有效：" + input); } } catch (ParseException e) { System.out.println("日期格式不正确"); } } } ``` 代码中使用了`SimpleDateFormat`类来解析输入的日期字符串，并设置了日期格式为`yyyyMM`，即6位数字的年份和月份。然后通过`Date`类的`getYear`和`getMonth`方法获取年份和月份，并进行有效性判断。最后输出检查结果。注意要关闭`SimpleDateFormat`的宽松模式，否则输入非法日期时可能会自动修正。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值