module1.bas

来自「***** 展会管理系统 V1.1 共享版 ************** 」· BAS 代码 · 共 59 行

Attribute VB_Name = "Module1"
Global Browser As String
Global PublicFindStr As String
Global TranStr As String
Global RepeatS As Boolean
Global FileName As String

Function VerifyDate(DateStr As String) As Boolean
   Dim TempL As String, TempY As String, TempR As String
    TempL = Mid(DateStr, 1, 4)
     TempY = Mid(DateStr, 6, 2)
      If Val(TempY) <= 0 Or Val(TempY) > 12 Then
         VerifyDate = False
          Exit Function
           End If
             TempR = Mid(DateStr, 9, 2)
               If Val(TempR) <= 0 Or Val(TempR) > 31 Then
                 VerifyDate = False
                  Exit Function
                   End If
                    Select Case Val(TempY)
                     Case 2
                        If Val(TempL) / 400 = Int(TempL / 400) Then
                           If Val(TempR) > 29 Then
                             VerifyDate = False
                              Exit Function
                             End If
                           ElseIf Val(TempR) > 28 Then
                            VerifyDate = False
                           Exit Function
                        End If
                      Case 4
                     If Val(TempR) > 30 Then
                    VerifyDate = False
                    Exit Function
                  End If
                  Case 6
                 If Val(TempR) > 30 Then
                VerifyDate = False
                Exit Function
               End If
             Case 9
            If Val(TempR) > 30 Then
           VerifyDate = False
           Exit Function
         End If
        Case 11
       If Val(TempR) > 30 Then
      VerifyDate = False
      Exit Function
    End If
   End Select
 VerifyDate = True
End Function